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

[ابو حمادة]

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

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

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

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

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

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

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

 

تم تعديل ديسمبر 19, 2015 بواسطه ابو حمادة