şifre ve sayfa koruma

[canerrrrrr]

arkadaslar bir calısma kıtabında 5 adet sayfa var... hepsını bi anda koruma halıne alamazmıyım ... tek tek sayfa koruma sekmesınden yapıorumm ? yardımlarınızı beklıorumm ...

 

[hamitcan]

Aşağıdaki kodu dener misiniz ?

Sub SayfalariKorumaAltinaAl()
    For Each sht In ThisWorkbook.Sheets
         sht.Protect "a"
    Next
End Sub

 

[canerrrrrr]

Bu kodu nereye yazıcam ayrıca sıfre yı nereye gırıcemm ?

 

[hamitcan]

Kodu değiştirdim. Ayrıca kodu bir Module içine yerleştirin.