BİRDEN FAZLA SAYFA KORUMASINI KALDIRMA

[momoli]

BÝRDEN FAZLA SAYFA KORUMASINI KALDIRMA

Yaklaşık 25 sayfadan oluşan bir faturalama programı oluşturdum. Tüm sayfalarda koruma olduğundan bir değişiklik gerektiğinde tüm sayfaların korumalarını tek tek kaldırıp gereken düzeltmeyi yaptıktan sonra yine tek tek sayfa korumasını koymak zorunda kalıyorum. Tüm sayfaların koruma şifreleri aynıdır. Sizlerden istediğim bu korumayı tek seferde kaldırıp yine tek seferde nasıl koruma altına alırım.[/code]

 

[danersin]

Sub KorumaKaldir()
Dim ws As Worksheet
For Each ws In Worksheets
ws.Unprotect ("a")
Next
End Sub


Sub KorumaKoy()
Dim ws As Worksheet
For Each ws In Worksheets
ws.Protect ("a")
Next
End Sub

 

[momoli]

Teşekkür Ederim

 

[Ertugrulhan]

kardes calisma seklini anlayamadim anlatirimisin...

 

[goldenstar_76]

koruma kaldırma

Merhabalar,

çalıştığım bir dosya üzerindeki sayfa korumasını hatırlayamıyorum.Koruma'yı kaldırabilmem için ne yapmam lazım , yardımlarınızı bekliyorum.
teşekkürler