تحميل مجانى شيت اكسل المخازن ( وارد – منصرف – مرتجعات – اهلاك – تقارير)

بسم الله الرحمن الرحيم

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

سؤال ورد الينا من احد الاصدقاء عن  كيفية عمل باسورد لزر تنفيذ الماكر و ؟

الاجابة بسيطة جد ان شاء الله 

لنفرض ان حضرتك تملك ملف معين وعندك مجموعة من المستخدمين يعملون على هذا الملف وتريد ان تحفظ الماكرو الخاص بك او الاكواد من العبث كيف لى ان اصنع باسورد على زر معين 

الاجابة من خلال الكود التالى 

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

ولمتابعة اكثر عن الكود يرجى مشاهدة شرح الفيديو

لتحميل ملف العمل من هنا