Sayfa koruması

[sunkid]

Merhaba arkadaşlar,
229 çalışma sayfası olan bir Excel dosyam var. Bu 229 çalışma sayfasına koruma koymak istiyorum. İçindeki veriler değiştirilemesin silinemesin istiyorum ve teker teker sayfalara koruma koyuyorum ama bunun daha kısa bir yolu yok mu? 229 sayfaya teker teker aynı işlemi uygulamak zaman kaybı oluyor komple çalışma sayfasına “silinememe ve değiştirilememe” seçeneğini uygulayabileceğim bir yer var mı Excel de? Yardımlarınız için teşekkür ederim.

 

[N.Ziya Hiçdurmaz]

yanıt

Makro ile bunu kolayca yapabilirsiniz

Sub sayfalarikoru()
For i = 1 To Sheets.Count
    Sheets(i).Protect 123
Next
End Sub

Sub sayfalariac()
For i = 1 To Sheets.Count
    Sheets(i).Unprotect 123
Next
End Sub

 

[sunkid]

Üstad teşekür ederim ilginize fakat office 2007 kullanıyorum bu kodu nereye yazacağımı bilmiyorumn

 

[security]

Üstad teşekür ederim ilginize fakat office 2007 kullanıyorum bu kodu nereye yazacağımı bilmiyorumn

N.Ziya Hiçdurmaz Hocamızın vermiş oldugu kodları module ekleyiniz...
Kolay Gelsin...

 

[assenucler]

Teşekkürler..

 

[sunkid]

çok teşekkür ederim yapabildim. bir sorum daha olacak shhetlerin silinmesini önlemek için ne yapmamız gerekir böyle bir şey mümkün olurmu?