Kaydedip çıktıntan sonra makro çalışmıyor.

[SayinF]

Merhabalar,

Makroyu istediğim şekilde yazdıktan sonra dosyayı kaydedip bir daha tekrar açtığımda edit için izin verdiklerimi editleyemiyorum. Tekrar makroyu çalıştırdığımda sorun düzeliyor ama her tekrar açtığımda aynı sorun oluyor. Nerede hata yapıyorum acaba?
Yardımlarınız için şimdiden teşekkürler

 

[SayinF]

Sub sifrele()
For a = 1 To Sheets.Count
With ws
Sheets(a).Protect "...", UserInterfaceOnly:=True
Sheets(a).EnableOutlining = True
Sheets(a).EnableAutoFilter = True
End With
Sheets(a).Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _
, AllowFormattingCells:=True
Sheets(a).EnableSelection = xlNoRestrictions
Next
End Sub
Sub sifreac()
If InputBox("Şifreyi girin") = "..." Then
For a = 1 To Sheets.Count
Sheets(a).Unprotect "..." = True
Next
End If
End Sub