عمل ازرار لكودين

[الشيباني1]

اخواني الاعزاء تحية طيبه الحاجة ماسة الى عمل زر لتفعيل الكود في المرفق وآخر لالغاء التفعيل مع الامتنان

حماية الخلايا التي فيها معادلات.zip

[طارق محمود]

السلام عليكم

تفضل المرفق

حماية الخلايا التي فيها معادلات2.rar

[الشيباني1]

استاذنا الكبير اشكرك وادامك الرحمن لنا منقذا

[الشيباني1]

استاذنا العزيز مع جزيل شكري وامتناني لما تقدمون من اسعاف للمحتاج اتساءل عن امكانية طلب باسوورد عند الرغبه بتعطيل عمل الكود حيث ان تعطيله ممكن حالياعن طريق( ادوات - حماية - الغاء حماية ورقة ) مع التقدير

[الشيباني1]

استاذنا الكريم تحية طيبه لا زلت منتظرا لأني لن يخيب بأذن الله ظني

[طارق محمود]

السلام عليكم

أخي العزيز

المرفق به التغيرات التالية

الباسوورد للحماية 55 وتستطيع تغييرها من داخل الكود

كود الزرين أصبح

Sub RoundedRectangle2_Click()

ActiveSheet.Unprotect Password:="55"

[AA1] = 0

End Sub

Sub RoundedRectangle1_Click()

[AA1] = 7

End Sub

وكود حدث التغير بالصفحة أصبح

Private Sub Worksheet_Selectionchange(ByVal Target As Range)


If Target.HasFormula And [AA1] = 7 Then

ActiveSheet.Protect Password:="55"

Else

ActiveSheet.Unprotect Password:="55"

End If

End Sub

وكما تلاحظ ، الباسوورد موجود بثلاث أماكن بالأكواد عليك تغييرها جميعا

تفضل المرفق

حماية الخلايا التي فيها معادلات3.rar

[الشيباني1]

استاذنا الكبير اشكرك جدا وادامك الرحمن لنا منقذا