Sayfa Koruması

[alperalper]

Arkadaşlar çalışma kitabını değilde sayfa koruma hakkında bir sorum olacak. Şimdi ben sayfa korumada örneğin kilitli hücreleri seç olayını kaldırmak istiyoum ama 180 sayfa var. Bunu toplu olarak nasıl yapabilirim...

 

[geren36]

Sub unprotect()
a = Sheets.Count
For i = 1 To a
Sheets("Sayfa" & a).Unprotect
Next i
End Sub

 

[Levent Menteşoğlu]

Aşağıdaki kodu deneyin.

Sub kilit()
For a = 1 To Sheets.Count
Sheets(a).Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Sheets(a).EnableSelection = xlUnlockedCells
Next
End Sub

 

[alperalper]

Senin koduda sonuna ekledim ama olmadı.. Şifreli yapmam lazım şifreyi ekleyemedim senin koda...

Private Sub CommandButton1_Click()
sifre = InputBox("Sayfa Korumasını Kaldırabilmeniz İçin Güvenlik Şifresi Gerekiyor.", _
"Yetkili Kişi", "Şifreyi buraya yazınız.")
If sifre = "8673" Then
MsgBox "Şifre doğrulandı", vbInformation, _
"Şifre Doğru"
Dim ws As Worksheet
For Each ws In Worksheets
ws.Unprotect ("631005")
Unload Me
Next
Else
MsgBox "Yanlış şifre girdiniz." & Chr(13) & _
"Kod çalışması iptal edildi", vbCritical, "Yanlış şifre"
Cancel = True
End If
End Sub

Private Sub CommandButton2_Click()
For a = 1 To Sheets.Count
Sheets(a).Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Sheets(a).EnableSelection = xlUnlockedCells
Unload Me
Next
End Sub

 

[alperalper]

Evet arkaşlar yukarıdaki kodlara bir bölümüne şifre ekleyemedim. Ayrıca bu kilitli olan hücreleri seç seçeneğini kaldırmıyor neden böyle yapıyor anlamadım. Bazen oluyor ama kapatıp açınca tekrar gidiyor.