حل مشكلة الملف

[mahmoudtaim]

السلام عليكم ورحمة الله وبركاته قمت بعمل برنامج على الاكسل عن طريق الفورم 

قمت بكتابة كود هو اخفاء الشيت واظهار الفورم 

ولكن الفورم الذي كتبه بالكود فورم الخطأ وهذ الفورم ليس لدي اي زر حتى زر اغلاق متوقف

هل يوجدحل

برنامج الخاص.rar

[checles]

Private Sub Workbook_Open()
Application.Visible = False
openuser.Show
End Sub

[أسامة البراوى]

السلام عليكم

يمكن اتباع الخطوات التالية لفتح الملف : 

1- ممكن تفتح الملف بالضغط على زر الماوس الايمن ثم اختيار  protected view  

2- سوف يفتح الاكسل بدون عرض الفورم مع رسالة تحذير 

 

3- قم باظهار محرر الفيجيوال بيسك قبل الموافقة على التحرير  

 

4- قم بالموافقة على التحرير سوف تظهر الفورم ولكن محرر الفيجوال بيسك فى الخلفية يمكنك ايقاف التنفيذ لاخفاء الفورم والعودة الى الملف  

5- الغى هذا الاكواد حتى الانتهاء من عملك : 

Private Sub Workbook_Open()
Application.Visible = False
mainform.Show
End Sub

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
If CloseMode = 0 Then
Cancel = True
End If
End Sub

وومككن تشغله لما تخلص تصميم وتضيف الازرار المناسبة

[mahmoudtaim]

شكرا لكم وبارك الله فيكم