Kitap kilitleme

[Stacker]

Herkeze iyi pazarlar;

Arkadaşlar aşağıdaki kodlar bir çalışma kitabındaki tüm sayfaları tek seferde kilitlemek ve açmak için sorunsuz çalışıyor.

Fakat sayfa üzerinde hiçbir işlem yapılamıyor.

Ben sayfayı sadece yazmaya karşı kilitlemek istiyorum hüçrelerin kopyalanabilmesi lazım.
Yardımcı olabilecek arkadaşlara vakit ayırdıkları için teşekkür ederim.




Sub Kilitle()
For Each syf In Worksheets
syf.Protect "1234", DrawingObjects:=True, Contents:=True, Scenarios:=True
syf.EnableSelection = xlNoSelection
Next
MsgBox "Kilitlendi.", vbInformation, "Bilgi!"
End Sub


',,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,


Sub Kilitac()
Sifre = Application.InputBox("Şifreyi Giriniz", "Hoşgeldiniz")
If Sifre = False Then Exit Sub
If Sifre = "1234" Then
For Each syf In Worksheets
syf.Unprotect Sifre
Next
Else:
MsgBox "Yanlış Şifre", vbCritical, "Uyarı!"
End If
End Sub

 

[mancubus]

Sub Kilitle()

Dim syf As Worksheet

For Each syf In Worksheets
    With syf
        If .ProtectContents = True Then .Unprotect Password:="1234"
        .Cells.Locked = True
        .Cells.FormulaHidden = True
        .Protect Password:="1234"
    End With
Next

MsgBox "Kilitlendi.", vbInformation, "Bilgi!"

End Sub