السلام عليكم ورحمة الله تعالي وبركاته
الاخوة الاعزاء الكرام
عندي مشكله في فتح ملف الاكسل
وهي ببساطه عند فتح ملف الاكسل عن طريق فور وبعد ادخال بيانات الدخول وعند ظهور صفحة الاكسل بيتم منع الكتابه والصفحه بتهنج مش عارف السبب
اتمني ان يكون هناك حل
علما ان المشكله غالبا في هذا الكود
Sub Date_Time()
With Me
1 DoEvents
n = Now
.L_Time.Caption = Format(n, "[$-F400]h:mm:ss AM/PM")
.L_Year.Caption = Format(n, "yyyy")
.L_Day.Caption = Format(n, "dd")
.L_DayD.Caption = Format(n, "dddd")
.L_Month.Caption = Format(n, "mmmm")
T = T + 1
For R = 1 To 10000000: Next R
GoTo 1
End With
End Sub
Private Sub TB_H_Click()
With Me
If .TB_H.Value = True Then
.TB_H.Caption = "ميلادي "
VBA.Calendar = vbCalGreg
Date_Time
Else
.TB_H.Caption = "هجري "
VBA.Calendar = vbCalHijri
Date_Time
End If: End With
End Sub
لان عند الغاء هذا الكود يعمل الملف طبيعي دون مشاكل
اتمني يكون هناك حل لهذا الكود بحيث يتناسب مع الملف المرفق
ولكم جزيل الشكر والاحترام
منع الكتابه.rar
منع الكتابه.rar