- Katılım
- 17 Kasım 2019
- Mesajlar
- 16
- Excel Vers. ve Dili
- türkçe
userforma 2 kullanıcı tanımladım bu kullanıcılarıı aktif olduklarında label yada textbox ta olur kullanıcının adı info olarak görünsün!!!
Private Sub CommandButton1_Click()
If TextBox1.Value = "Bombacı" Or TextBox1.Value = "Volkan" Then
GoTo Kontrol2
Else
Unload UserForm1
MsgBox "Üzgünüm girdiğiniz kullanıcı adı hatalı.", vbCritical, "HATA"
ActiveWorkbook.Close 0
Exit Sub
End If
Kontrol2:
If TextBox2.Value = "5555" Or TextBox2.Value = "5523" Then
MsgBox "Programa girişiniz onaylanmıştır.", vbInformation
Unload Me
UserForm4.Show
Application.Visible = True
Else
Unload UserForm1
MsgBox "Üzgünüm girdiğiniz parola hatalı.", vbCritical, "HATA"
ActiveWorkbook.Close 0
Exit Sub
End If
End Sub
Private Sub CommandButton1_Click()
If TextBox1.Value = "Bombacı" Or TextBox1.Value = "Volkan" Then
GoTo Kontrol2
Else
Unload UserForm1
MsgBox "Üzgünüm girdiğiniz kullanıcı adı hatalı.", vbCritical, "HATA"
ActiveWorkbook.Close 0
Exit Sub
End If
Kontrol2:
If TextBox2.Value = "5555" Or TextBox2.Value = "5523" Then
MsgBox "Programa girişiniz onaylanmıştır.", vbInformation
Unload Me
UserForm4.Show
Application.Visible = True
Else
Unload UserForm1
MsgBox "Üzgünüm girdiğiniz parola hatalı.", vbCritical, "HATA"
ActiveWorkbook.Close 0
Exit Sub
End If
End Sub
Son düzenleme:
