DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
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
Şifre Koymuyor.Şifre koymak isterseniz Protect "1234" şeklinde ve şifreyi çözmek isterseniz UnProtect "1234" şeklinde yazınız.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.
Rica ederim.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