كيف أغلق عدة أعمدة واخفى المعادلات

[mazeno]

السلام عليكم أيها الأخوة برجاء مساعدتى فى أمر فى الملف المرفق

أريد أن أجعل الأعمدة المشار إليها مغلقة وأخفى المعادلات عند التوقف عليها دون أن يتأثر الماكرو أويتوقف عن العمل فكلما أغلقت الأعمدة بالطريقة المعروفة يتوقف الماكرو عن العمل

ولكم جزيل الشكر

شيت1.rar

[عبدالله المجرب]

السلام عليكم

هل تقصد هكذا

شيت1.rar

[mazeno]

الأستاذ/ عبد الله

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

فتح الله لك وزادك علما هذا ما أريده لكن كيف أفعل ذلك برجاء التوضيح

آسف جدا لإزعاجك

تم تعديل فبراير 20, 2012 بواسطه mazeno

[الشهابي]

أخي العزيز / mazeno

أولا أهلا بك في منتدى أوفسينا

ومرحباً بك بين أخوتك في هذا المنتدى

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

أو اتركها فارغة إذا أردتها بدون تأمين وبدون إخفاء

ثم تذهب إلى علامة التبويب مراجعة في شريط المهام واختر حماية ورقة

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

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

ومرفق ملف فديو يشرح الطريقة

لآ أدري هناك مشكلة في إدراج المرفق لا أعرف ما سببها

[mazeno]

الأخ الأستاذ/ الشهابى

أشكرك شكرا جزيلا على اهتمامك زادك الله علما وأدام عليك حسن خلقك

[dr magdy]

شكرا

لدى سؤال

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

موضوع حماية المعادلات صحيح و لكنه منع عمل القائمة المنسدلة و كلما اخترت اسم تلميذ لا تظهر بياناته

ما هو الحل

شكرا

[ريان أحمد]

أرفق ملف من فصلك لكي يتم المحاولة

[أبو حنــــين]

السلام عليكم

الاخ الذي يريد جعل الأعمدة المشار إليها مغلقة جرب هذا عسى ان يكون هو الحل

[أبو حنــــين]

الاخفاء

Private Sub CommandButton1_Click()

For i = 1 To 255

If Cells(2, i) = "مج" Or Cells(2, i) = "مج كلى" Then

Columns(i).EntireColumn.Hidden = True

End If

Next

End Sub

الاظهار

Private Sub CommandButton2_Click()

For i = 1 To 255

If Cells(2, i) = "مج" Or Cells(2, i) = "مج كلى" Then

Columns(i).EntireColumn.Hidden = False

End If

Next

End Sub

شيت1.rar

تم تعديل أبريل 5, 2012 بواسطه belkacem64

[منير لبيب]

الاخ عبد الله 

 

عندما نسخت الصفحة التى بها الحماية الى صفحة اخري  زالت الحماية هل من حل 

شيت1.rar