AccessTr.neT
Excelde Data Sayfasını Kilitemek - Baskı Önizleme

+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Excel (https://accesstr.net/forum-microsoft-excel.html)
+--- Forum: Excel Cevaplanmış Soruları (https://accesstr.net/forum-excel-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Excelde Data Sayfasını Kilitemek (/konu-excelde-data-sayfasini-kilitemek.html)

Sayfalar: 1 2


Excelde Data Sayfasını Kilitemek - accessman - 13/01/2020

İyi günler
son kullanıcı data sayfasını hiç göremesin işlemleri ancak form üzerinden yapabilsin 
mümkün mü


Cvp: Excelde Data Sayfasını Kilitemek - berduş - 13/01/2020

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



Cvp: Excelde Data Sayfasını Kilitemek - accessman - 13/01/2020

userfomdan Vba kodları ile sayfada yapılacak işlemler için bu kod bloğunu kullanarak kiliti açıp kapatmak gerekiyor mu


Cvp: Excelde Data Sayfasını Kilitemek - berduş - 13/01/2020

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


Cvp: Excelde Data Sayfasını Kilitemek - accessman - 13/01/2020

ilginiz için teşekkürler berduş


Cvp: Excelde Data Sayfasını Kilitemek - feraz - 14/01/2020

(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.