هل يمكن وضع كلمة سر علي الماكرو

[commandos1975]

السلام عليكم

اريد طريقة لكي لا يعمل الماكرو الا عند كتابة  كلمة مرور (PASSWORD)

وشكرا

تم تعديل يوليو 27, 2013 بواسطه commandos1975

[حمادة عمر]

الاخ الكريم / commandos1975

بارك الله فيك

من الافضل اخي الكريم ان ترفق ملف به طلبك ليتم العمل عليه

حيث ان الطلب بدون مرفق وبدون شرح يصبح مبهم بعض الشئ

واليك اخي الكريم الكود التالي

لا يقوم بتنفيذ الماكرو او الكود الا بعد وضع الباسورد الصحيح

الباسورد هو   :  123

Public ss As Byte
Private Sub CommandButton1_Click()
pass = "123"
sama = InputBox("إدخل الباسورد لتنفيذ الماكرو")
If sama <> pass Then
MsgBox ("الباسورد خطاء (الإدخال الخاطئ اكثر من 3 محاولات يقفل البرنامج)")
ss = ss + 1
If ss> 3 Then
  Application.DisplayAlerts = False
  Application.Quit
End If
Exit Sub
End If
Range("a3").Value = "صرح اوفيسنا العملاق"
MsgBox ("تم تنفيذ الماكرو")
End Sub

جزاك الله خيرا

 

 

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

 

 

[حمادة عمر]

رمضـــان كـــريـــم

[commandos1975]

شكرا يا أخي وهذا ملف يساعدني كيف اضع الكود لكي لا يعمل الماكرو الا اذا تم كتابة الرقم السري

 

password.rar

[حمادة عمر]

الاخ الكريم

اليك هذا الكود ايضا لتنفيذ طلبك علي حسب فهمي

بطريقة اخري ... لمنغ فتح الشت الا بعد استخدام الباسورد المحدد لذلك

Sub Oval4_Click()
Dim pwd As String:  pwd = "123"
Cells(Rows.Count, Columns.Count).Activate
    If Application.InputBox("ÈÑÌÇÁ ÅÏÎÇá ßáãÉ ÇáãÑæÑ ááÏÎæá ", "ÊÕÑíÍ ÏÎæá ", "???") <> pwd Then
        Sheets("control").Activate
        MsgBox " ßáãÉ ÇáãÑæÑ ÛíÑ ÕÍíÍÉ !! ãä ÝÖáß ÑÇÌÚ Ðáß  ", 0, "ÚÝæÇð ÇáÏÎæá ãÍÙæÑ"
    Else
        MsgBox "ãÑÍÈÇð Èß !! ßáãÉ ÇáãÑæÑ ÕÍíÍÉ !! ÊÝÖá ÈÇáÏÎæá ......", 32, "ÏÎæá äÇÌÍ"
    Sheets("Msheet").Activate
             Range("A1").Activate
    End If
End Sub

واليك في الملف المرفق مثالان بالكود الاول والكود الثاني

ارجو ان يتناسبا مع طلبك

جزاك الله خيرا

 

 

password-sama.rar

[commandos1975]

شكرا يا غالي ...بارك الله فيك  ولكني اريد الخطوات  لتوضيح عمل ذلك

تم تعديل يوليو 28, 2013 بواسطه commandos1975

[commandos1975]

الأخ الغالي //حمادة عمر

بعد التحيه

شكرا لسيادتكم علي المجهود الرائع

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

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

[commandos1975]

ارجوووو المساعدة

[أبو أنس80]

شی جمیل جدا

الله طولعمركم و عمر منتدی