Toplu Sayfa Koruması

[alperalper]

Arkadaşlar aşağıdki kodu kullanıyorum ama sonuç alamadım. Sayfayı istediğim gibi şifreleyebiliyorum ama kilitlediğim hücreleride seçiyor. Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
EnableSelection = xlUnlockedCells Böyle birşeyler vardı bunu ekleyebilirmisiniz.

Koruma kodu:

Private Sub CommandButton1_Click()
Dim ws As Worksheet
For Each ws In Worksheets
ws.Protect ("631005")
Unload Me
Next
End Sub

Korumayı Kaldırma:

Private Sub CommandButton1_Click()
Dim ws As Worksheet
For Each ws In Worksheets
ws.Unprotect ("631005")
Unload Me
Next
End Sub

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu denermisiniz.

Private Sub CommandButton1_Click()
    Dim ws As Worksheet
    For Each ws In Worksheets
    ws.Protect.Protect ("631005"), DrawingObjects:=True, Contents:=True, Scenarios:=True
    ws.EnableSelection = xlUnlockedCells
    Unload Me
    Next
End Sub

 

[alperalper]

Selamlar,

Aşağıdaki kodu denermisiniz.

Private Sub CommandButton1_Click()
    Dim ws As Worksheet
    For Each ws In Worksheets
    ws.Protect.Protect ("631005"), DrawingObjects:=True, Contents:=True, Scenarios:=True
    ws.EnableSelection = xlUnlockedCells
    Unload Me
    Next
End Sub

Buda oluyor ama tek sorunum şu çalışma sayfasını kapatıp açtığım zaman kilitli hücreleri tekrardan seçilebilir yapıyor.Esas sorunda bu.

Sorun şurada bence ws.EnableSelection = xlUnlockedCells... Bunu seçmemesi lazım.
açılışta bir makro çalışıyor aceba ondan sorun oluyor olabilirmi??

 

[Korhan Ayhan]

Selamlar,

Kullandığınız kodu görmeden yorum yapmamız yanlış olur. Ya örnek dosyanızı ekleyin ya da kullandığınız kodları ekleyin. Yardımcı olmaya çalışırız.