المساعدة فى طلب كود تنبية

[M288N55]

كود لتنفيذ ماكرو مع ادخال كلمة سر للتنفيذ

[عبدالله بشير عبدالله]

السلام عليكم

حسب فهمى لطلبك وبدون ارفاق ملف منكم اليك الكود

Sub RunMacroWithPassword()
    Dim password As String
    Dim userInput As String

    password = "1234"

    userInput = InputBox("من فضلك أدخل كلمة السر لتشغيل الماكرو:", "كلمة السر")

    If userInput = password Then
        MsgBox "كلمة السر صحيحة، سيتم الآن تشغيل الماكرو.", vbInformation
       
        Call MyProtectedMacro
    Else
        MsgBox "كلمة السر غير صحيحة. لن يتم تشغيل الماكرو.", vbCritical
    End If
End Sub

Sub MyProtectedMacro()
    MsgBox "تم تشغيل الماكرو بنجاح!", vbInformation
    ' أضف الكود الحقيقي هنا...
End Sub

الكود الاول   Sub RunMacroWithPassword()    وفيه المطالبة بكلمة السر وهي 1234

والكود الثاني Sub MyProtectedMacro()    وهو الذي سيتم تنفيذه بعد وضع كلمة السر

مثال

تنفيذ ماكرو مع ادخال كلمة سر.xlsb

تم تعديل منذ 4 ساعات بواسطه عبدالله بشير عبدالله