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

[وردة النرجس]

المطلوب كود او اي امر لعدم ظهور ورقة الشيت نهائيا ولو لومضه واحدة . عند فتح ملف الاكسيل معالعلم ان وحدات الميكرو قد تم تمكينها..

هل من حل

[محمد هشام.]

Option Explicit

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

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Application.Visible = True
End Sub