كود وضع كلمة سر و تغييرها

[علي عبد المنعم]

برجاء المساعدة و المطلوب هو وضع كلمة سر لاظهار اليوزر فورم و عمل زر لتغيير كلمة السر لو حد عرفه 

بحث.rar

تم تعديل أبريل 12, 2018 بواسطه علي عبد المنعم

[سليم حاصبيا]

استبدل ماكرو الزر بهذا

Sub mm()
Dim my_pas$
my_pass = Application.InputBox("Plese Enter Password", "Password")
If my_pass <> "123" Then
  MsgBox ("I am sorry your password is wrong" & Chr(10) & "I can't oppen the user form" _
  & Chr(10) & "I will exit")
  Exit Sub
  End If
UserForm1.Show
End Sub

 

[علي عبد المنعم]

شكرا لسرعة الاستجابة ولكن المطلوب بعد وضع كلمة السر هو امكانية تغيير كلمة السر من خلال عمل زر يطلب كلمة السر القديمة و كتابة كلمة السر الجديدة بحيث لا يتم الدخول الى الكود و تغيرر كلمة السر

 

[شوقي ربيع]

السلام عليكم

بحث.xlsm

[Ali Mohamed Ali]

ملف رائع بارك الله فيك أستاذ شوقى وجعله فى ميزان حسناتك

وعود حميد أخى الكريم وحشتنا كتير

 

[علي عبد المنعم]

استاذ شوقي شكرا لحضرتك ولكن الملف لايعمل معي وانا اعمل على اوفيس 2007 وتظهر تلك الرسالة

تم تعديل أبريل 14, 2018 بواسطه علي عبد المنعم

[شوقي ربيع]

السلام عليكم

تفضل اخي

mot_de_passe.xlsm

[علي عبد المنعم]

استاذ شوقي شكرا لحضرتك