13/01/2020, 08:26
Sayfalar: 1 2
13/01/2020, 10:22
excel sayfasını gizleyip şifreleyebilirsiniz işlem yaparken açıp işlem bitince yeniden kilitleyebilirsiniz
If Sheets("VeriSayfası").ProtectContents = True Then Sheets("VeriSayfası").Unprotect "şifre" 'sayfa korumasını kaldır
' bu aralıga _
yapılacaklar işlemler
Sheets("VeriSayfası").Protect "şifre" 'sayfa korumasını tekrar ekler
13/01/2020, 10:54
userfomdan Vba kodları ile sayfada yapılacak işlemler için bu kod bloğunu kullanarak kiliti açıp kapatmak gerekiyor mu
13/01/2020, 11:18
kendiniz de deneyebilirsiniz
önce bu kodları kullanmadan şifrelenmiş sayfaya userformdan veri eklemeye çalışın sonra da kodları kullanarak
Çalışmanız da elinizde kod da
önce bu kodları kullanmadan şifrelenmiş sayfaya userformdan veri eklemeye çalışın sonra da kodları kullanarak
Çalışmanız da elinizde kod da
13/01/2020, 11:40
ilginiz için teşekkürler berduş
14/01/2020, 01:16
(13/01/2020, 10:22)berduş yazdı: [ -> ]excel sayfasını gizleyip şifreleyebilirsiniz işlem yaparken açıp işlem bitince yeniden kilitleyebilirsiniz
If Sheets("VeriSayfası").ProtectContents = True Then Sheets("VeriSayfası").Unprotect "şifre" 'sayfa korumasını kaldır
' bu aralıga _
yapılacaklar işlemler
Sheets("VeriSayfası").Protect "şifre" 'sayfa korumasını tekrar ekler
Kod:
If Sheets("VeriSayfası").ProtectContents = True Then
Bu kod satırı fazla olmuş bence.
Sayfalar: 1 2