şifreleme

[durhan]

sadece veri giriş sayfasına girişinin şifrelenmesi mümkün mü? arkadaşlar böyle birşey olabilir mi? TEŞEKKÜRLER

 

[Ayhan Ercan]

böyle bişey olabilirmi..... şifre 1234

 

[ECYavuz]

İyi günler...

Örnek ektedir.

 

[ECYavuz]

Veri Girişi Sayfasının kod Bölümüne;

Private Sub Worksheet_Activate()
Range("A65536").Select
If InputBox("Şifre Gir?", "Şifre") = "123" Then
Range("A1").Select
Else
MsgBox ("Şifre Yanlış")
Sheets("ANA SAYFA").Select
End If

End Sub

diye yazdım..

 

[durhan]

teşekkür

emeği geçen herkeze sonsuz teşekkürler