عمل واجهة للاكسيل

[Khalid Jnb]

عند عمل واجهة يوزر فورم بالاكسل عن طريق اسم مستخدم وكلمة مرور 
بعد الادخال و تشغيل برنامج الاكسيل تظهر واجهة الاكسل اولا ثم تختفي وتظهر واجه اليوزر فورم 
علما انني استخدمت الكودات التالية
Private Sub Workbook_Open()
Application.Visible = False
form1.Show
End Sub
-----------------------------------------
Private Sub CommandButton1_Click()
ThisWorkbook.Save
Application.Quit
End Sub
Private Sub TextBox2_Afterupdate()
If TextBox2.Value = "123" Then
MsgBox "open", , "open"
form1.Hide
Application.WindowState = xlNormal
Application.Visible = True
Else
MsgBox ("ßáãÉ ÇáÓÑ ÛíÑ ÕÍíÍÉ")
End If
End Sub

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