Şifreli CTRL+S

[sebago]

yetkili kayıt makrosu kullanıyorum yani şifre girilmeden save yapılmasını önlemek için fakat şifre yazarken açıktan görünüyor yıldız olrak sörinmesini sağlamak için ne yapabilirim.?
şimdiden tşk.

 

[cqners]

Örnek Dosyanı eklersen yardımcı olabilirim.

 

[Selçuk1]

yetkili kayıt makrosu kullanıyorum yani şifre girilmeden save yapılmasını önlemek için fakat şifre yazarken açıktan görünüyor yıldız olrak sörinmesini sağlamak için ne yapabilirim.?
şimdiden tşk.

Sayın sebago;

şifre girişi yaptığınız textbox un properties(özellikler) menüsünden, "PASSWORDCHAR" olayına * yazmanız yeterli bildiğim kadarıyla.. bu şekilde dener misiniz?

saygılar...

 

[sebago]

Private Sub Workbook_BeforeSave _
(ByVal SaveAsUI As Boolean, Cancel As Boolean)
sifre = InputBox("2007 Yaz Sezon Kataloğu Olduğundan Kayıt İçin Yetkili Şifre Girmelisiniz.", _
"Admin", "Yetkili Şifre")
If sifre = "amphetamine" Then
MsgBox "Kayıt işlemi tamamlandı", vbInformation, _
"KAYIT BAŞARILI"
Else
MsgBox "Yanlış şifre girdiniz." & Chr(13) & _
"Kayıt Başarısız", vbCritical, "Geçersiz Şifre"
Cancel = True
End If
End Sub

şimdiden tşk...

 

[sebago]

Tşk...

Örnek Dosyanı eklersen yardımcı olabilirim.

Private Sub Workbook_BeforeSave _
(ByVal SaveAsUI As Boolean, Cancel As Boolean)
sifre = InputBox("2007 Yaz Sezon Kataloğu Olduğundan Kayıt İçin Yetkili Şifre Girmelisiniz.", _
"Admin", "Yetkili Şifre")
If sifre = "amphetamine" Then
MsgBox "Kayıt işlemi tamamlandı", vbInformation, _
"KAYIT BAŞARILI"
Else
MsgBox "Yanlış şifre girdiniz." & Chr(13) & _
"Kayıt Başarısız", vbCritical, "Geçersiz Şifre"
Cancel = True
End If
End Sub

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki linki incelermisiniz.

http://www.xcelfiles.com/API_09.html

 

[sebago]

Selamlar,

Aşağıdaki linki incelermisiniz.

http://www.xcelfiles.com/API_09.html

bakıyorum
Çok tşk ederim...

 

[baydeniro]

Paylaşım için teşekkürler