1.Kullanıcı Formu Oluşturma:
- Kullanıcı formunu oluşturup, iki TextBox (Kullanıcı Adı ve Şifre için) ve bir CommandButton (Giriş butonu) ekleyin.
2.Kullanıcı Formu Kodunu Güncelleme:
- Kullanıcı Formu kodunu aşağıdaki gibi güncelleyin:
Private Sub CommandButton1_Click()
Dim username As String
Dim password As String
username = TextBox1.Text
password = TextBox2.Text
' Doğru kullanıcı adı ve şifre
If username = "dogruKullaniciAdi" And password = "dogruSifre" Then
' Dosya açılır ve işlem yapılabilir
Me.Hide
Application.EnableEvents = True
Application.Interactive = True
MsgBox "Giriş Başarılı!", vbInformation
Else
' Yanlış kullanıcı adı veya şifre girildiğinde dosya kapanır
MsgBox "Yanlış kullanıcı adı veya şifre!", vbCritical
Application.DisplayAlerts = False
ThisWorkbook.Saved = True
Application.Quit
End If
End Sub
3.Giriş Yapılmadan İşlem Yapılmasını Engelleme:
- Çalışma kitabınızın "ThisWorkbook" kod penceresine aşağıdaki kodu ekleyin ki dosya açıldığında form otomatik olarak gösterilsin ve form kapanmadan herhangi bir işlem yapılamasın:
Private Sub Workbook_Open()
Application.EnableEvents = False
Application.Interactive = False
UserForm1.Show
End Sub
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If UserForm1.Visible Then
MsgBox "Lütfen önce giriş yapın.", vbExclamation
UserForm1.Show
End If
End Sub
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
If UserForm1.Visible Then
MsgBox "Lütfen önce giriş yapın.", vbExclamation
UserForm1.Show
End If
End Sub
Bu kodlar, kullanıcı formu kapatılmadan Excel dosyasına herhangi bir değişiklik yapılmasını engeller. Eğer kullanıcı doğru kullanıcı adı ve şifreyi girmezse, dosya otomatik olarak kapanır. Bu şekilde dosyanız üzerinde izinsiz işlemlerin yapılmasını önlemiş olursunuz. Kolay gelsin!