في الأكسيل هل يمكن عمل زر أمر لفك حماية صفحه ؟

تم تعديل المشاركة

Sub Pr1()

    ActiveSheet.Protect Password:=1234, DrawingObjects:=True, Contents:=True, Scenarios:=True



End Sub



Sub Pr2()

x = InputBox("please enter PAssword '1234'", "Password", 123)

If x <> 1234 Then

 MsgBox "Sorry You are not Allowed !!! "

 Exit Sub

End If





    ActiveSheet.Protect Password:=1234, DrawingObjects:=False, Contents:=False, Scenarios:=False



End Sub

و الكود السابق في الموديول

و يتم استدعاؤه فى كود الزر كما يلي

Private Sub Potectit_Click()

Call Pr1

End Sub



Private Sub Solution_Click()

Call Pr2

End Sub

unprotectsheet.rar

- لم أستطع نقل المعادله لكي أصمم بها زر الأمر فما هي الطريقه .

خالص شكري وتقديري

أنزل المثال المرفق

من شريط القوائم اختار مجموعة ال visual basic

اضغط علي زر التصميم

انقر نقرا مذدوجا علي الزر لتري الكود

أو اضغط ALT+F11

لتري الكود الخاص بكل زر

حيث

Private Sub Potectit_Click()

هو الروتين الفرعي الخاص باجراء الضغط علي الزر المسمي protectit

Private Sub Solution_Click()

هو الروتين الفرعي الخاص باجراء الضغط علي الزر المسمي Solution

و الاكواد موجودة فى الجزئ الخاص بورقة العمل فان لك تكن ظاهرة فبعد ضغط ALT+F11

انقر مرتين علي ورقة العمل فى شاشة محر الفيجوال بيزيك لتري الاكواد

- الكود واضح ولكن كيف أستطيع أن آخذ هذا الكود وأضيفه الي زر أمر فك الحمايه عن الورقه بملف آخر موجود لدي .

- حاولت نسخ الكود ووضعه بزر الأمر ولكن لم تفلح .

- ببساطه .. لدي ملف آخر وبه زر أمر يقوم بعمل حمايه واريد أن أقوم بعمل زر آخر يلغي الحمايه ويطلب كلمة السر بالظبط كما تفضلت بالمثال المرفق من قبلكم . وحاولت عمل ذلك ولم أفلح

اصنع زر امر كما فعلت فى الزر الاول

ثم غير الكود به الي

x = InputBox("please enter PAssword '123'", "Password", 123)

If x <> 123 Then

 MsgBox "Sorry !!! "

 Exit Sub

End If





    ActiveSheet.Protect DrawingObjects:=False, Contents:=False, Scenarios:=False

- ظبطت معايا .... تسلم أيدك يا فنان يا كبير

بصراحه أنت متمكن من الأكسيل بشكل غير طبيعي ولازم نمسك الخشب ويارب لا تمل من كثر الأسئله .

أشكرك مرة أخرى

ملحوظه غايه في الأهميه .

الآن وعند عمل حمايه للصفحه بالضغط على زر الحمايه وجدت أنه من الممكن أن تفك الحمايه دون الحاجه للضغط على زر ألغاء الحمايه بكلمة السر وذلك بالضغط على ( أدوات ) ( حمايه ) ( ألغاء الحمايه ) وهنا لا يسئل الملف عن كلمة السر المعينه ويفك الحمايه مباشرة .

فهل من حل لهذه المشكله ؟؟؟

يمكن اضافة كلمة السر الي الكود

Sub Pr1()

    ActiveSheet.Protect Password:=1234, DrawingObjects:=True, Contents:=True, Scenarios:=True



End Sub



Sub Pr2()

x = InputBox("please enter PAssword '1234'", "Password", 123)

If x <> 1234 Then

 MsgBox "Sorry You are not Allowed !!! "

 Exit Sub

End If





    ActiveSheet.Protect Password:=1234, DrawingObjects:=False, Contents:=False, Scenarios:=False



End Sub

unprotectsheetpass.rar

ملاحظة : تم تعديل الكود فى المشاركة الاولي

بنقل الكود الي موديول و استدعاؤه

بالنسب للمشاركة الاخيرة ، كلمة السر هلي 1234

و القيمة الافتراضية التي تظهر عند طلب كلمة السر هي 123

و لكن كلمة السر الناجحة هي 1234

- خايف أقول أنك خطير جدا في الأكسيل تقول بيحسدني .. بجد ماشاء الله عليك

بالفعل نجحت الطريقه والآن الحمايه متكامله .

خالص شكري

- أستفسار أخير .

كلمة السر تظهر بأرقامها وأنا أكتبها لفك الحمايه .. فهل من وسيله لجعلها تظهر على شكل نجوم لكي تختفي عن الآخرين وأنا كتبها ؟؟

أشكرك

أعتقد أن هذا سيتطلب حل آخر

و هو استبدال ال Inputbox

ب نموذج تقوم بتصميمه لكي تستطيع التحكم فى خصائصه

اما بالطريقة الحالية فلا يمكن علي ما أعلم