Sayfa Koruma

[halilbay2]

Merhabalar Arkadaşlar elimizde çok sayfalı bir Excel dosyası var bu dosyanın tüm sayfalarını aynı anda sayfa akoruması yapıp aynı anda sayfa korumasını açabilirmiyiz saygılarımla.

 

[Orion1]

Aşağıdaki kodlar işinizi görür.

Sub Tüm_Sayfaları_Koru()
Dim syf As Worksheet
For Each syf In Worksheets
    syf.Protect "1234"
Next
MsgBox "Sayfalar Korumalı..!!", vbOKOnly + vbInformation, "SAYFA KORU"
End Sub

Sub Tüm_Sayfaların_korumasını_kaldır()
Dim syf As Worksheet
For Each syf In Worksheets
    syf.Unprotect "1234"
Next
MsgBox "Sayfaların Koruması Kaldırıldı..!!", vbOKOnly + vbInformation, "SAYFA KORUMASINI KALDIR"
End Sub

 

[halilbay2]

Sayın Orion2 elinize emeğinize sağlık kodlar güzel çalışıyor ama acaba şifre olarak ne koyuyor tek sayfa açmak istersem nasıl olur. Tekrar teşekkür ederim.

 

[Orion1]

Sayın Orion2 elinize emeğinize sağlık kodlar güzel çalışıyor ama acaba şifre olarak ne koyuyor tek sayfa açmak istersem nasıl olur. Tekrar teşekkür ederim.

Şifre Koymuyor.Şifre koymak isterseniz Protect "1234" şeklinde ve şifreyi çözmek isterseniz UnProtect "1234" şeklinde yazınız.
Bu durumda şifre tırnak içersinde ki değer olur.Tek sayfanın korumasını kaldırmak için Araçlar ==> Koruma ==> sayfa Korumasını kaldır Ve şifre varsa şifreyi giriniz.
Korumayı yapmak içinse bunun tersini yapınız.

 

[halilbay2]

Afedersin UnProtect "1234" nereye koymam gerekir. İlginize çok teşekkür ederim.

 

[Orion1]

2 nolu mesajda kodları şifreye göre düzenledim.İnceleyebilirsiniz.

 

[halilbay2]

Kod yazmayı hiç bilmiyorum ama verdiğiniz bilgi ile az uğraşma ile yaptım çok teşekkür eder hayatta başarılar dilerim.
Sub Tüm_Sayfaları_Koru()
Dim syf As Worksheet
For Each syf In Worksheets
syf.Protect "1234"
Next
MsgBox "Sayfalar Korumalı..!!", vbOKOnly + vbInformation, "SAYFA KORU"
End Sub

 

[Orion1]

Kod yazmayı hiç bilmiyorum ama verdiğiniz bilgi ile az uğraşma ile yaptım çok teşekkür eder hayatta başarılar dilerim.
Sub Tüm_Sayfaları_Koru()
Dim syf As Worksheet
For Each syf In Worksheets
syf.Protect "1234"
Next
MsgBox "Sayfalar Korumalı..!!", vbOKOnly + vbInformation, "SAYFA KORU"
End Sub

Rica ederim.
İyi çalışmalar.