Toplu Sayfa Koruması

Katılım
7 Temmuz 2007
Mesajlar
111
Excel Vers. ve Dili
Office 2003 Tr
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:
Kod:
Private Sub CommandButton1_Click()
Dim ws As Worksheet
For Each ws In Worksheets
ws.Protect ("631005")
Unload Me
Next
End Sub
Korumayı Kaldırma:

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

Korhan Ayhan

Administrator
Yönetici
Admin
Katılım
15 Mart 2005
Mesajlar
42,247
Excel Vers. ve Dili
Microsoft 365 Tr-En 64 Bit
Selamlar,

Aşağıdaki kodu denermisiniz.

Kod:
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
 
Katılım
7 Temmuz 2007
Mesajlar
111
Excel Vers. ve Dili
Office 2003 Tr
Selamlar,

Aşağıdaki kodu denermisiniz.

Kod:
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??
 
Son düzenleme:

Korhan Ayhan

Administrator
Yönetici
Admin
Katılım
15 Mart 2005
Mesajlar
42,247
Excel Vers. ve Dili
Microsoft 365 Tr-En 64 Bit
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.
 
Üst