Çoklu Excel Sayfasında Sayfa Korumasını Kaldırmak ve Aktif Etmek

[cankız46]

Merhabalar ;
Bir Çalışma Kitabında yaklaşık 35 Adet çalışma sayfam var.Sayfaların Hepsi korumalı.Tek seferde hepsinin korumasını kaldırıp ve tek seferde aktif edebileceğim bir kolay yol varmı.Şifreleri aşağıdaki makro ile tek seferde değiştirebiliyorum.
Benim İsteğim çoklu excel sayfalarının sayfa korumalarını tek yerden Aktif edecek yada Pasif edecek makro varmı
Teşekkürler

Sub SifreDegis()
For Each sayfa In ActiveWorkbook.Worksheets
sayfa.Unprotect "1" 'eski şifre
sayfa.Protect "2" 'yeni şifre
Next sayfa
End Sub

 

[Ömer]

Merhaba,

Kullanmış olduğunuz kodlar tek sefer tüm sayfalarda bu işlemi yapar.

Kodları Herhangi bir Module kopyalayıp bir sefer çalıştırmanız yeterli olacaktır..

.

 

[cankız46]

Merhabalar :

Şifreleri tek seferde değiştirebiliyorum.
Benim isteğim sayfa korumalarını tek seferde kaldırıp tek seferde aktif etmek.
Teşekkürler

 

[Ömer]

Bu şekilde deneyiniz..

Sub SifreKaldır()
    For Each sayfa In ActiveWorkbook.Worksheets
        sayfa.Unprotect "1"
    Next sayfa
End Sub
 
Sub SifreKoru()
    For Each sayfa In ActiveWorkbook.Worksheets
        sayfa.Protect "1"
    Next sayfa
End Sub

.

 

[cankız46]

merhabalar ;
Ben beceremedim.Dosya ektedir.Yardımlarınız için Teşekkürler

 

[Ömer]

Sayfa koruma şifrenizi koda yazmamışsınız.

1 yazan bölgelerdeki şifler aynı olmalıdır. Eğer şifreniz 5 ise iki kodda da 5 yazmalısınız ki. Şifreyi kaldırıp tekrar koymada sorun yaşamayasınız.

Bu düzeltmeyi yaptıktan sonra. Excel sayfasında iken Alt F8 tuş kombinasyonuna basın gelen ekranda "sifrekaldırı" seçip çalıştır derseniz şifeler kalkar "şifrekoru" yu seçip çalıştra basarsanız şife koymuş olursunuz..

.

 

[cankız46]

Teşekkürler.
Emeğinize Sağlık

 

[cankız46]

Merhabalar ;
Yazılan Makroyu "şifrekoru" ve "şifrekaldır" çalışma sayfasını gören herkes görebiliyor.Yazılan makroların çalıştırılıp çalıştırılmaması için ne yapabiliriz.
Teşekkürler

 

[Ömer]

Sub SifreKaldır()
Application.ScreenUpdating = False
    sifre = InputBox("Şifreyi girin", "Administrators Girişi")
    If sifre <> "[COLOR=red]deneme[/COLOR]" Then Exit Sub
    For Each sayfa In ActiveWorkbook.Worksheets
        sayfa.Unprotect "1"
    Next sayfa
Application.ScreenUpdating = True
End Sub

kodu çalıştırdığınızda önce size bir ekran gelir gelen ekrana deneme yazarsanız asıl kod olan sayfa koruma çalışacaktır..

deneme yazan şifreyi değiştirebilirsiniz..

Sayfa korumaya almak için ön koda gerek yok diye düşünüyorum..

.

 

[cankız46]

Merhabalar ;
Teşekkürler elinize sağlık

 

[cankız46]

Merhabalar;
Aşağıdaki Kodu yazdığımda Administrator girişi geliyor burda problem yok ama şifreler kalkmıyor.
Sayfaların korumasıda kalkması gerekmezmi.
Teşekkürler

Sub SifreKaldır()
Application.ScreenUpdating = False
sifre = InputBox("Senin İşin Yok Burda", "Administrators Girişi")
If sifre <> "aic46efe" Then Exit Sub
For Each sayfa In ActiveWorkbook.Worksheets
sayfa.Unprotect "1"
Next sayfa
Application.ScreenUpdating = True
End Sub

Sub SifreKoru()
For Each sayfa In ActiveWorkbook.Worksheets
sayfa.Protect "aic46efe"
Next sayfa
End Sub

 

[Ömer]

"aic46efe" yazdığınız kodu çalıştıran şifredir.

Unprotect "1" buradaki 1 ise sayfa koruma şifresidir.

Daha öncede bunu belirttim.

Unprotect "1"

ile

Protect "aic46efe"

kırmızı bölümede 1 yazın.

bu iki şifre aynı olmalıdır.

.

 

[cankız46]

Teşekkürler
Elinize Sağlık

 

[lacivert0404]

merhaba, excelde birden fazla makro var sayfa koruması olduğundan dolayı hata veriyor.tek tek sayfa koruması kaldırma kodu eklemek yerine bütün makrolar çalıştığında sayfa korumasını kaldırıp bittikten sonrada sayfa korumasını koyabileceğimiz bir makro varmıdır.
yardımcı olursanız sevinirim.Şimdiden çok teşekkürler.