Toplu sayfa şifreleme ve veri silme

[cayaso]

1'den başlayıp 200 ile biten (1,2,3....200) isimli 200 adet birbirinin aynı olan tablolardan oluşan sayfalar mevcut. Makro ile bu sayfaları toplu olarak şifrelemek, şifrelerini kaldırmak, ayrıca her sayfanın F15:AJ21 aralığındaki verileri ile AT2 hücresindeki veriyi temizlemek istiyorum.
Şifreleme ve silme makroları ayrı marolar olacak.
Sitedeki örneklerle çeşitli denemeler yaptım fakat çalışmadı.
Yardımlarınız için şimdiden teşekkün ederim.

 

[Seyit Tiken]

Bu şekilde deneyiniz.

For st = 1 To Sheets.Count
Sheets(st).[f15:aj21,at2] = ""
Next
For s = 1 To Sheets.Count
Sheets(s).Protect "123"
Next

 

[cayaso]

Sayın Seyit Tiken koruma ve silme işlemleri 1:200 adlı (200 adet sayfa)larda yapılacak. Başka adlı sayfalarda var onlar üzerinde herhangi bir işlem yapılmayacak.

 

[Seyit Tiken]

"Sheets.Count" yerine sayfa adedi yazınız.