تطبيق كود

[Yasser Fathi Albanna]

السادة عباقرة وأساتذة الإكسيل الكرام

بعد التحية

الرجاء من سيادتكم تطبيق الكود الأتى على الشيت المرفق حيث أننى لا أعرف كيف يتم تطبيقة

مع شرح فيديو لو أمكن بعد إذنكم

 

Private Sub Workbook_Open()
MsgBox "مرحبا بك فى شركة فارما أوفر سيز "
Sheet1.Select
Dim pwd As String:  pwd = "Yasser"
    If Application.InputBox("برجاء إدخال كلمة المرور", "تصريح دخول", "Yasser Fathi Al-Banna") <> pwd Then
        MsgBox "كلمة المرور غير صحيحة "
    ThisWorkbook.Close
    Else
        MsgBox "مرحبا بك", 1, "تم"
      
    End If
End Sub
 

[قنديل الصياد]

اخى العزيز

هذا هو الملف بعد تطبيق الكود

كلمة السر : Yasser

 

 

 

الملف بعد التعديل

 

Daily.rar

[قنديل الصياد]

الاخ العزيز الاستاذ / ياسر

ملف فيدو مطبق على الملف الخاص بحضرتك

 

[Yasser Fathi Albanna]

أستاذى وأخى الفاضل قنديل الصياد ألف ألف شكر لحضرتك وشرحك وافى جدا جدا

ربنا يوفقك دائما ويجعلك من المتألقين

[قنديل الصياد]