البحث في الموقع
Showing results for tags 'تطبيق كود'.
تم العثور علي 1 نتيجه
-
السادة عباقرة وأساتذة الإكسيل الكرام بعد التحية الرجاء من سيادتكم تطبيق الكود الأتى على الشيت المرفق حيث أننى لا أعرف كيف يتم تطبيقة مع شرح فيديو لو أمكن بعد إذنكم 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
