Sayfada bir buton var ilk kez tıklanınca şifre istesin. Belli bir süre sonra (1 saat gibi) tekrar butona tıklayınca şifre istesin.
- Kod: Tümünü seç
Private Sub CommandButton1_Click()
If InputBox("Şifre") = "123" Then
MsgBox "Başarılı giriş"
Else
MsgBox "Hatalı şifre"
End If
End Sub