- Katılım
- 4 Mart 2023
- Mesajlar
- 7
- Excel Vers. ve Dili
- Office 2021 (64bit)
Bu satırlardaki kod hatasını çözüp eklediğim dosyayı düzenleyip tekrar yükleyebilirseniz sevinirim
---------------------------------------------
Kullanıcı adı şifre ile giriş - Boş/Dolu Durumu
---------------------------------------------
--------------------------------------
veri baglantı yenilemek -Açık /Kapalı Durumu
-------------------------------------
İNDİRME ADRESİ
---------------------------------------------
Kullanıcı adı şifre ile giriş - Boş/Dolu Durumu
---------------------------------------------
Kod:
Private Sub CommandButton1_Click()
Dim username As String
Dim password As String
'Kullanıcı adı ve şifreyi "data" sayfasından al
username = ThisWorkbook.Sheets("data").Range("H13").Value
password = ThisWorkbook.Sheets("data").Range("H14").Value
If username = "" Or password = "" Then
'Hücreler boşsa doğrudan giriş yap
MsgBox "Hücreler boş. Doğrudan giriş yapılıyor.", vbInformation
'Giriş panelini kapat
Unload Me
Else
'Hücreler doluysa şifre iste
If Me.TextBox1.Value = username And Me.TextBox2.Value = password Then
'Giriş başarılıysa mesaj göster
MsgBox "Giriş başarılı!", vbInformation
'Giriş panelini kapat
Unload Me
Else
'Giriş başarısızsa hata mesajı göster
MsgBox "Kullanıcı adı veya şifre hatalı!", vbExclamation
End If
End If
End Sub
veri baglantı yenilemek -Açık /Kapalı Durumu
-------------------------------------
Kod:
Sub RefreshTime()
If Sheets("Data").Range("J15").Value = "açık" Then
MsgBox Sheets("Data").Range("H15").RefreshDate - Sheets("Data").Range("H15").Value
End If
End Sub
İNDİRME ADRESİ