Birden fazla sayfayı koruma

[m.cay]

Merhaba,

Bir excel dosyamda yaklaşık 30 sayfa mevcut. Bu sayfalarda formüller mevcut olduğu için sayfaları korumam lazım. Ancak tüm sayfalara ayrı ayrı koruma vermek çok zor. Tüm sayfaların şifresi aynı olacağı için, sayfaların hepsini birden korumak ve korumayı kaldırmak için nasıl bir makro kodu yazmam lazım. Bu konuyu forumda çok aradım ancak bulamadım. Yardımcı olabilecek varsa çok sevinirim.

 

[Ali]

Korumak için

Private Sub Protect ()
On Error Resume Next
Dim sayfa As Object
For Each sayfa In Sheets
sayfa.Protect Password:="şifreniz"
Next sayfa
End Sub

Korumayı açmak için

Private Sub unprotect()
On Error Resume Next
Dim sayfa As Object
For Each sayfa In Sheets
sayfa.Unprotect Password:="şifreniz"
Next sayfa
End Sub

 

[Recep İpek]

Ekteki linki inceleyebilirsiniz.

http://www.excel.web.tr/showthread.php?t=17709

 

[Ali]

Hatırlatma için teşekkürler Sn ripek.
Ben hatırlayamadım siz bulmuşsunuz.

 

[Recep İpek]

Önemli değil Sn.fructose,

 

[m.cay]

Her ikinize de teşekkürler. Uzun süredir halledemediğim bir meseleyi çözmüş oldum.