kemal turan
Altın Üye
- Katılım
- 10 Haziran 2011
- Mesajlar
- 1,676
- Excel Vers. ve Dili
- Excel 2010 32 bit
- Altın Üyelik Bitiş Tarihi
- 06-10-2032
Merhaba arkadaşlar,
Aşağıdaki kod sayfaya girişi şifreliyor.Kod da problem yok.
Fakat şifreyi bilmemesi gereken kişi yanınızda olduğunda yazdığınız şifreyi okuyup öğrenebiliyor.
İsteğim Şifreyi 12345 yazdığım zaman msgbox ta 12345 değilde , ***** olarak görünmesi.
Teşekkür ederim.
Private Sub Worksheet_Activate()
Application.Visible = False
sifre = "12345"
yazılan_sifre = InputBox("Şifrenizi yazın", "")
If yazılan_sifre <> sifre Then
MsgBox "Yetkili Değilsiniz", , "kemal turan"
Application.Visible = True
Sheets("planlama").Select
Else
Application.Visible = True
Sayfa2.Select
End If
End Sub
Aşağıdaki kod sayfaya girişi şifreliyor.Kod da problem yok.
Fakat şifreyi bilmemesi gereken kişi yanınızda olduğunda yazdığınız şifreyi okuyup öğrenebiliyor.
İsteğim Şifreyi 12345 yazdığım zaman msgbox ta 12345 değilde , ***** olarak görünmesi.
Teşekkür ederim.
Private Sub Worksheet_Activate()
Application.Visible = False
sifre = "12345"
yazılan_sifre = InputBox("Şifrenizi yazın", "")
If yazılan_sifre <> sifre Then
MsgBox "Yetkili Değilsiniz", , "kemal turan"
Application.Visible = True
Sheets("planlama").Select
Else
Application.Visible = True
Sayfa2.Select
End If
End Sub