اريد كود طلب باسورد لتشغيل ماكرو

[mmgamal]

اريد كود لطلب باسورد لتشغيل ماكرو

[أ / محمد صالح]

يا ريت توضح اكثر ....

هل تقصد عند الضغط على زر معين 

يطلب من المستخدم إدخال كلمة مرور 

فإذا كانت صحيحة يتم تنفيذ الأكواد المخصصة للزر وإلا فلا ينفذ

؟؟؟؟

[mmgamal]

Dell.xlsm فى المثال المرفق يمكن ان يوضح طلبى شكرا للاهتمام

[أ / محمد صالح]

يمكنك استعمال هذا الإجراء

Sub clr_with_pw()
If InputBox("من فضلك أدخل كلمة المرور.", "حماية") = "1234" Then
Range("A2:D15").ClearContents
Range("A2").Select
Else: MsgBox "كلمة المرور خطأ": End If
End Sub

حيث أن كلمة المرور لتنفيذ هذا الإجراء هي 1234

ويمكن استعمال ذلك الكود مع أي ماكرو بوضع اكواد الماكرو مكان السطرين الثالث والرابع وتغيير 1234 إلى كلمة المرور المطلوبة

بالتوفيق

[mmgamal]

الف شكر