السلام عليكم و رحمة الله و بركاته
عيد مبارك
كود الأستاذ محمدي عبد السميع لتغيير الكتابة للغة العربية :
Private Sub Workbook_Open()
hosami "00000401", 1 End Sub
وهذا الكود الموجود في الملف لكلمة المرور :
Private Sub Workbook_Open()
Dim pwd As String: pwd = "123456"
Cells(Rows.Count, Columns.Count).Activate
If Application.InputBox("برجاء إدخال كلمة المرور للدخول للبرنامج", "كلمة المرور", "") <> pwd Then
Sheets("شاشة دخول").Activate
MsgBox "الباسورد غير صحيحة ", 0, "كلمة المرور"
Application.DisplayAlerts = False
ThisWorkbook.Close
Application.Quit
Exit Sub
Else
MsgBox "مرحباً بك", 32, "دخول ناجح"
Range("A1").Activate
End If
Feuil1.Activate
hosami "00000401", 1 End Sub
عليك سيدي الفاضل أن تضع بين عينيك دائما و أبدًا أنه لا يمكن في THISWORKBOOK كتابة الأجزاء الملونة بالآحمر مرتين أو ثلاثة أو أربعة..مثلا عندك كوديْن أو ثلاثة طبعا كلها سوف تبدأ بنفس الأجزاء الملونة بالأحمر
ما عليك فعله هو أخد عبارة PRIVATE SUB WORKBOOK OPENوتكتبها أعلى الكود وتأخذ عبارة END SUB و تضعها أسفل الكود وتقوم بجمع كل أكوادك التي سوف تضعها في ال THISWORKBOOK بدون هذه الأجزاء الملونة بالآحمر شاهد الصورة والجزء الخاص بتغيير اللغة العربية باللون بالأخضر أين هو
تحياتي / عبد العزيز البسكري
MAYAM 3.rar