Sayfa Koruması

[sunkid]

Değerli arkadaşlar,
Excel de 233 sayfalı bir çalışma kitabım mevcut ve tüm sayfalara koruma koymak istiyorum. Ağdan herhangi bir kullanıcı dosyanın içindeki bilgilerden istifade edebilsin fakat bilgileri değiştiremesin. 233 sayfaya teker teker aynı işlemeleri yapmadan tüm çalışma kitabını değiştirilemez nasıl yapabilir? İlginiz için şimdiden çok teşekkür ederim.

 

[uzmanamele]

merhaba

bu kod işinizi görür mğ?

Sub sayfayi_koru()
For i = 2 To Worksheets.Count
Sheets(i).Protect "a"
Next
End Sub
Sub sayfa_korumasi_kaldir()
For i = 2 To Worksheets.Count
Sheets(i).Unprotect "a"
Next
End Sub

 

[aatoş]

merhaba
bu macroyu çalıştırdığınız zaman tüm sayfaları korur.işinize yaraması dileğiyle iyi çalışmalar...

Sub sifrele()
For a = 1 To Sheets.Count
Sheets(a).Protect "123", DrawingObjects:=False
Next
End Sub