مشكله في ملف اكسل

[ابو حمادة]

السلام عليكم ورحمة الله تعالي وبركاته

الاخوة الاعزاء الكرام

عندي مشكله في فتح ملف الاكسل

وهي ببساطه عند فتح ملف الاكسل عن طريق فور وبعد ادخال بيانات الدخول وعند ظهور صفحة الاكسل بيتم منع الكتابه والصفحه بتهنج مش عارف السبب

اتمني ان يكون هناك حل

علما ان المشكله غالبا في هذا الكود

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

[الـعيدروس]

السلام عليكم

استخدام حلقة لعمل مسلسل للثواني مرهق للذاكره

   والتهنيج مؤقت انقر مرتين في اي خليه 

   

[ابو حمادة]

اخي العيدروس

شكرا لردك

ولكن اريد حل هذه المشكله ان لم يكن هناك حل اخر

[ابو حمادة]

مافيش حل للمشكله دي ولا ايه يريت حد يفدني