Excel sayfasindaki butun sekmeleri tek seferde korumaya almak

[akkusarif]

Merhaba,

Bir excel sayfasinda altta bulunan tüm sayfalari tek seferde korumaya almak istiyorum yardımcı olabikir misiniz

Saygilarimla.

 

[turist]

Aşağıdaki Makro kodlarını deneyin.

Sub SayfalariKoru()
Dim sayfa As Worksheet
Dim sifre As String
sifre = "" ' Çift Tırnak içine isterseniz Şifre yazabilirsiniz.
For Each sayfa In Worksheets
    sayfa.Protect Password:=sifre
Next sayfa
End Sub
Sub SayfaKorumayiKaldir()
Dim sayfa As Worksheet
Dim sifre As String
sifre = "" ' Eğer SayfalariKoru Kodunda Şifre kullanıldıysa Çift Tırnak içine aynı  Şifre yazılmalıdır.
For Each sayfa In Worksheets
    sayfa.Unprotect Password:=sifre
Next sayfa
End Sub

rını deneyiniz.

 

[akkusarif]

Koruma kaldirma islemi yapmak istediklerinde koyacagim sifreyi sormasini saglayabilir miyim ? Yani korumayi yalniz ben kaldirmak istiyorum nasil yapabilirim

 

[turist]

Sub SayfaKorumayiKaldir()
Dim sayfa As Worksheet
Dim sifre As String
sifre = InputBox("Sayfa Korumalarını kaldırmak için Şifre Giriniz.", "Şifre Girin")
On Error Resume Next
For Each sayfa In Worksheets
    sayfa.Unprotect Password:=sifre
Next sayfa
If Err <> 0 Then
MsgBox "Yanlış ŞİFRE girdiniz , Sayfa Korumaları kaldırılmadı", vbCritical, "HATA!!!"
End If
On Error GoTo 0
End Sub

 

[akkusarif]

Teşekkür ederim.

Saygılarımla.

 

[turist]

Sağ olun, iyi çalışmalar.