Aşağıdaki kodları deneyiniz.
Private Sub CommandButton1_Click()
If TextBox2.Value = "Süleyman" Or TextBox2.Value = "1234" Then
MsgBox "Programa girişiniz onaylanmıştır.", vbInformation
UserForm1.Show
Unload Me
Else
Unload UserForm2
MsgBox "Üzgünüm girdiğiniz parola hatalı.", vbCritical, "HATA"
Exit Sub
End If
End Sub
Süleyman Bey
Sorunuzu örnekler katagorisine açmışsınız.