userform la kullanıcı girişi yaptım problemsiz calışıyor fakat farkettimki makro güvenlik düzeyini yüksege ayarladıkmı userform calışmıyor böylece sayfa açıkta bunun bir çaresi varmı userformmun kodları altta
Private Sub CommandButton1_Click()
On Error GoTo Exit_sub
If TextBox1.Text = kullanici_adi(1, 1) And TextBox2.Text = şifreler(1, 1) Then
MsgBox ("SİSTEME GİRİŞİNİZ ONAYLANMIŞTIR!")
GoTo Exit_sub
ElseIf TextBox1.Text = kullanici_adi(2, 1) And TextBox2.Text = şifreler(2, 1) Then
MsgBox ("DOĞRU GİRİŞ YAPTINIZ.")
GoTo Exit_sub
ElseIf TextBox1.Text = kullanici_adi(1, 2) And TextBox2.Text = şifreler(1, 2) Then
MsgBox ("DOĞRU GİRİŞ YAPTINIZ.")
GoTo Exit_sub
End If
MsgBox ("MAALESEF DOĞRU GİRİŞ YAPMADINIZ..AÇMAYA ÇALIŞTIĞINIZ SAYFA KAPATILACATIR.!")
TextBox1 = ""
TextBox2 = ""
Unload Me
Application.Visible = True
ThisWorkbook.Close
Exit Sub
Exit_sub:
Application.Visible = True
Unload Me
UserForm1.Show
End Sub
Private Sub CommandButton1_Click()
On Error GoTo Exit_sub
If TextBox1.Text = kullanici_adi(1, 1) And TextBox2.Text = şifreler(1, 1) Then
MsgBox ("SİSTEME GİRİŞİNİZ ONAYLANMIŞTIR!")
GoTo Exit_sub
ElseIf TextBox1.Text = kullanici_adi(2, 1) And TextBox2.Text = şifreler(2, 1) Then
MsgBox ("DOĞRU GİRİŞ YAPTINIZ.")
GoTo Exit_sub
ElseIf TextBox1.Text = kullanici_adi(1, 2) And TextBox2.Text = şifreler(1, 2) Then
MsgBox ("DOĞRU GİRİŞ YAPTINIZ.")
GoTo Exit_sub
End If
MsgBox ("MAALESEF DOĞRU GİRİŞ YAPMADINIZ..AÇMAYA ÇALIŞTIĞINIZ SAYFA KAPATILACATIR.!")
TextBox1 = ""
TextBox2 = ""
Unload Me
Application.Visible = True
ThisWorkbook.Close
Exit Sub
Exit_sub:
Application.Visible = True
Unload Me
UserForm1.Show
End Sub