اذهب الي المحتوي
أوفيسنا

حدثت معى مشكلة فى وضع بعض الأكواد مرفق ملف


الردود الموصى بها

المشكلات بإختصار

1. الزراير فى الصفحة الرئيسية ترفض التحرك لتنسيق مكانها ومحاذاتها

2. فى صفحة النتيجة بعد فتحها بالباسوورد تظهر جميع أعمدتها بينما أريد أن تظل الأعمدة من AD إلى العمود قبل الأخير مخفية دائماً

3.صفحة الشهادات لا تظهر بياناتها حتى بعد وضع الباسوورد تظل الأعمدة كلها مخفية وقد كانت قبل ذلك تظهر خلف الويندو بتاعة وضع الباسوورد قبل وضع الباسوورد

والمطلوب أن تكون الصفحة كلها غير ظاهرة قبل وضع الباسوورد وبعد وضع الباسوورد تفتح الصفحة وتظهر فقط الأعمدة البيضاء وعمود واحد أو إثنين فقط من الأعمدة الزرقاء

دمتم لنا استاذنا الغالى خبور خير

وجازاك الله خيراً فى كل ما تمتد إليه يداك

وجعل السعادة لا تفارقك وعائلتك ابداً

وتحية خاصة للعزيز ابو تامر لو مر بالموضوع

فقد كان كريماً جداً معى كما هى عادته دائماً لا يرد أى سائل

ربنا يزيده من العلم ويبارك له فى كل ماله من مال وأعمال وعيال

والدعوة مفتوحة لمن يريد أن يدلو بدلوه فى هذه المشكلة

New_Folder.zip

رابط هذا التعليق
شارك

السلام عليكم ورحمة الله وبركاتة

1. الزراير فى الصفحة الرئيسية ترفض التحرك لتنسيق مكانها ومحاذاتها

ألغى حماية الورقة ستتحرك الازرار

2. فى صفحة النتيجة بعد فتحها بالباسوورد تظهر جميع أعمدتها بينما أريد أن تظل الأعمدة من AD إلى العمود قبل الأخير مخفية دائماً

فى الكود الخاص بهذه الورقة

استبدل السطر التالى

Me.Columns.Hidden = False
بالسطرين التاليين
Me.Columns.Hidden = False
Columns("AD:IU").EntireColumn.Hidden = True
3.صفحة الشهادات لا تظهر بياناتها حتى بعد وضع الباسوورد تظل الأعمدة كلها مخفية وقد كانت قبل ذلك تظهر خلف الويندو بتاعة وضع الباسوورد قبل وضع الباسوورد والمطلوب أن تكون الصفحة كلها غير ظاهرة قبل وضع الباسوورد وبعد وضع الباسوورد تفتح الصفحة وتظهر فقط الأعمدة البيضاء وعمود واحد أو إثنين فقط من الأعمدة الزرقاء
اولا ألغى حماية الورقة (لذلك لا احبذ استخدام معالج الاخطاء "On Error Resume Next" الا اذا كان يتحتم استخدامة ولا مفر من ذلك فهو يخفى توافق الاحداث فى الورقة مع الاكواد ثم فى كود هذه الورقة استبدل السطر الذى اشرت اليه سايقا بالسطرين بالتاليين
Me.Columns.Hidden = False
Columns("X:IU").EntireColumn.Hidden = True

مع هذا الكود يجب رفع الحماية عن الاوراق

اخى اذا واجهت صعوبه فى التطبيق يمكننى التعديل نيابة عنك

مع تحياتى

تم تعديل بواسطه أبو تامر
رابط هذا التعليق
شارك

أبو تامر الغالى

جارى العمل حسب نصائحك

عملاً بالمقولة الجميلة

علمنى الصيد أو أعطنى سنارة أفضل من أعطنى سمكة

ولو فشلت أو صادفتنى مشاكل سأطلب المساعدة

شاكر جداً يا غالى

رابط هذا التعليق
شارك

السلام عليكم

علم يا استاذ وكله تمام

ولكن لى ملحوظة لى شيت نفذت فيه ذلك الكود وكله تمام بس تظهر رسالة وضع الباسوورد وخلفها جزء ظاهر من الصفحة بس طبعا وكانها مجمدة ولا تستطيع تحريكها كيف يمكن تلافى تلك المشكلة

بارك الله فيك

رابط هذا التعليق
شارك

3.صفحة الشهادات لا تظهر بياناتها حتى بعد وضع الباسوورد تظل الأعمدة كلها مخفية وقد كانت قبل ذلك تظهر خلف الويندو بتاعة وضع الباسوورد قبل وضع الباسوورد

والمطلوب أن تكون الصفحة كلها غير ظاهرة قبل وضع الباسوورد وبعد وضع الباسوورد تفتح الصفحة وتظهر فقط الأعمدة البيضاء وعمود واحد أو إثنين فقط من الأعمدة الزرقاء

اولا ألغى حماية الورقة

(لذلك لا احبذ استخدام معالج الاخطاء "On Error Resume Next" الا اذا كان يتحتم استخدامة ولا مفر من ذلك

فهو يخفى توافق الاحداث فى الورقة مع الاكواد

ثم فى كود هذه الورقة

استبدل السطر الذى اشرت اليه سايقا بالسطرين بالتاليين

Me.Columns.Hidden = False
Columns("X:IU").EntireColumn.Hidden = True

مع هذا الكود يجب رفع الحماية عن الاوراق

اخى اذا واجهت صعوبه فى التطبيق يمكننى التعديل نيابة عنك

مع تحياتى

عزيزى الفاضل

جازاك الله خيراً

تم المطلوب حسب توجيهاتك

وقد تغلبت على ضرورة فك الحماية عن الشيت بالطريقة الآتية

أولاً قمت بتوسيع الصف الفارغ بين طرف الشهادة العلوى والأزرار بحيث لا يظهر من الشهادة إلا طرفها العلوى فقط

وقمت بحماية الورقة بعد ذلك

فأصبحت ويندو الباسوورد تظهر أمام الشيت ولكن لاتظهر بيانات الشهادة إلا لو وضعنا الباسوورد

الف شكر لك مرة أخرى

المشكلة الوحيدة التى لم أستطع حلها تنسيق مكان الأزرار فى الصفحة الرئيسية

فحتى بعد فك حماية الورقة وإلغاء تأمين الزر نفسه من خصائصه لم يتزحزح من مكانه

ولكن هذه مسألة شكلية ولن تؤثر على مضمون العمل

والحمدلله على هذا

وجازاكم الله خيراً

رابط هذا التعليق
شارك

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information