tufan18
Altın Üye
- Katılım
- 22 Ocak 2022
- Mesajlar
- 27
- Excel Vers. ve Dili
- türkçe
- Altın Üyelik Bitiş Tarihi
- 29-09-2025
Kod:
Option Explicit
Public islem As String
Dim hak As Byte '0 ile 255 kadar değer
Private Sub btnGiris_Click()
If txtKullanıci.Text = Sheets("Ayarlar").Range("B1") And txtSifre.Text = Sheets("Ayarlar").Range("B2") Then
stBar.Panels(5).Text = "Giriş Onaylandı..."
Application.Wait Now + TimeValue("00:00:02")
Unload frmlogin
frmAnaForm.Show
Exit Sub
Else
hak = hak + 1
stBar.Panels(4).Text = hak
txtKullanıci = ""
txtSifre = ""
On Error Resume Next
txtKullanıci.SetFocus
If hak = 3 Then btnvazgec_Click
End If
End Sub
Private Sub btnvazgec_Click()
Unload Me
Application.ActiveWorkbook.Save
Application.Quit
End Sub
Son düzenleme: