Sayfa Koruma Makrosu Hk.

[EKREM1661]

Saygıdeğer üyeler ve arkadaşlar..!

aşağıda vermiş olduğum makro kodu tüm sayfaları şifreleyerek koruma altına alıyor.
Bir sayfayı (örn.Sayfa1) bu korumanın dışında tutmak için nasıl yapabiliriz..

Sub Koruma()
For Each SAYFA In Worksheets
SAYFA.Protect "1661"
Next
End Sub

 

[isfa5878]

merhaba.
ActiveSheet.protect Password:="12345"

kaldır.
ActiveSheet.Unprotect Password:="12345"

 

[Seyit Tiken]

Aşağıdaki gibi deneyiniz.

Sub Düğme1_Tıklat()
Application.ScreenUpdating = False
For s = 2 To Sheets.Count
Sheets(s).Protect
Next
Application.ScreenUpdating = True
End Sub

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki şekilde denermisiniz.

Sub Koruma()
    For Each Sayfa In Worksheets
    [COLOR=red]If Sayfa.Name <> "Sayfa1"[/COLOR] Then Sayfa.Protect "1661"
    Next
End Sub

 

[EKREM1661]

Arkadaşlar..! Sn.isfa5878, Sn.Seyit Tiken ve Sn.Cost_Control'a ayrı ayrı teşekkür ediyorum. Sn.Cost Control tarafından verilen kod aradığım kod idi, diğerlerinide başka uygulamalarımda kullanmak üzere..aldım.
harikasınız..ve başarılar diliyorum.

 

[baydeniro]

Güzel kodlar. Teşekkür ederim.