كود غلق الفورم والدخول لصفحة معينة فى ملف الإكسيل

[ورد2019]

عندي ملف اكسل عليه فورم ادخال اسم المستخدم والرقم السري. كيف يمكنني الاضافة عليه بحيث يفتح على صفحة معينة sheets(8 والكود مكتوب كالتالي:

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

 

[Ali Mohamed Ali]

كان عليك من البداية رفع الملف لكى تكون المساعدة أدق 

ولكن مثلا ضع هذا الكود في كوماند بوتن Enter في الفورم

Private Sub CommandButton2_Click()
UserForm1.Hide
Application.Visible = True
Sheets("Sheet8").Select
End Sub

 

[ورد2019]

أخي علي هذا هو الكود الموجود في كوماند بوتن enter 

Private Sub CommandButton1_Click()
Application.ScreenUpdating = False
Application.EnableEvents = False
Application.Calculation = xlCalculationManual
If TextBox1.Value = Sheet10.[AZ1].Text And TextBox2.Value = Sheet10.[AZ2].Text Then
Unload Me
Application.Visible = True
Exit Sub
Else
MsgBox "nom d'utilisateur ou mot de passe incorrecte"
End If
TextBox1.Value = ""
TextBox2.Value = ""
TextBox1.SetFocus
Application.ScreenUpdating = True
Application.EnableEvents = True
Application.Calculation = xlCalculationAutomatic
End Sub
Private Sub CommandButton2_Click()
ActiveWorkbook.Close True
End Sub
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
Application.ScreenUpdating = False
Application.EnableEvents = False
Application.Calculation = xlCalculationManual
If CloseMode = 0 Then
Cancel = True
MsgBox " pour sortir appuier sur le boutton quiter "
End If
Application.ScreenUpdating = True
Application.EnableEvents = True
Application.Calculation = xlCalculationAutomatic
End Sub

 

[Ali Mohamed Ali]

وده اللى انا قلته لك من الأول تجنبا لعدم اهدار الوقت

فعليك برفع الملف نفسه طالما لم توفق في الكود المرسل لك