بسم الله الرحمن الرحيم
اهلا بكم متابعى موقع ومدونة عالم الاوفيس
الاجابة بسيطة جد ان شاء الله
لنفرض ان حضرتك تملك ملف معين وعندك مجموعة من المستخدمين يعملون على هذا الملف وتريد ان تحفظ الماكرو الخاص بك او الاكواد من العبث كيف لى ان اصنع باسورد على زر معين
الاجابة من خلال الكود التالى
Sub show_worksheet()
Dim password As String, x As Long
password = "1234"
If Application.InputBox("inter password", "login") <> password Then
MsgBox "worng password", vbInformation, "error"
Exit Sub
End If
Sheet2.Activate
End Sub
ولمتابعة اكثر عن الكود يرجى مشاهدة شرح الفيديو