Kaydederken şifre sorması

[szuzum]

Çalışma sayfasını kaydederken şifre sormasını istiyorum userform üzerinden hazırladığım şifre paneli gelsin. eğer şifre yanlış girilirse excel kapansın mümkün mü acaba.

 

[Emir Hüseyin Çoban]

. . .

ThisWorkBook (BuÇalışmaKitabı) kısmına
Private Sub Workbook_BeforeSave prosedürü altına kodlarınız yazabilirsiniz.

Örneğin;

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Cancel = True
UserForm1.Show
End Sub

Şifre girişi içinde en 2-3 hak tanıyın. Tek hak durumunda yanlışlık ile verilerinizi sizde kaydetmeden çıkmak durumunda kalabilirsiniz.

. . .

 

[szuzum]

Hüseyin Bey İnanır mısınız ? daha ben hiç bir kod kullanmadım yani userform üzerinden hazırladığım bir şifre paneli bulunmuyor Yanlışlıkla hazırladığım yazmışım k.bakmayın

 

[szuzum]

[link=http://www.dosyayukleyin.com/do.php?id=4607]ekim.rar[/link] dosya burda bir bakarsanız inan sevinirim.

 

[Emir Hüseyin Çoban]

. . .

Ekteki tabloyu inceleyiniz.

Mevcut şifre PAROLA dır.
VBA penceresinede şifre vererek daha güvenli hâle getirebilirsiniz.

...::: Ekli Dosyayı İndirmek İçin Linki Tıklayınız :::...
http://www.dosyayukleyin.com/do.php?id=4608]ekim_01.rar

. . .

 

[szuzum]

Hocam Teşekkür ederim

 

[szuzum]

Hata veriyor parola yazdıktan sonra çalışma sayfasını kapatıyor

 

[Emir Hüseyin Çoban]

. . .

Hemen yazmadan önce biraz araştırın deneyin.

Şifre büyük harfler ile PAROLA

. . .

 

[szuzum]

Denedim hocam parolayı yazıyorum dediğiniz gibi sonra sayfayı kapatıyor onu demek istiyorum yani parola geçerli ama sayfayı kapatması sorun neyse teşekkür ederim

 

[Emir Hüseyin Çoban]

Denedim hocam parolayı yazıyorum dediğiniz gibi sonra sayfayı kapatıyor onu demek istiyorum yani parola geçerli ama sayfayı kapatması sorun neyse teşekkür ederim

. . .

Şifreleme kodlaması çok yoran bir çalışma. Her olasılığı düşünmeyi gerektiriyor.

Şu tabloyu deneyiniz.

...::: Ekli Dosyayı İndirmek İçin Linki Tıklayınız :::...
http://www.dosyayukleyin.com/do.php?id=4609]ekim_02.rar

. . .

 

[szuzum]

Teşekkür ederim...