Makro Hakkında - Protect Sheet

[Morphe]

Merhaba Arkadaşlar,

Bir excel şablonum var bazı satırlar "Kilitli" ve oraya hiç bir şekilde giriş yapamıyorlar. Birde aşağıdaki gibi bir makrosu var.

Sıkıntı şu: Şayet protect sheet ile sayfayı kilitlediğimde makro çalışmıyor. Fakat protect sheet şifresini kaldırdığımda şifre çalışıyor.

----------------------

Hata mesajı: Run-time Error "1004":

The cell or chart you're traying to change is on a protected sheet.

To make changes, click Unprotect Sheet in the Review tab (you might need a password)

----------------------

Sub Gunbasiicinsilmemakrosu()
'
' Gunbasiicinsilmemakrosu Macro
' Macro recorded 05.01.2011 by MUHASEBE3
'
' Keyboard Shortcut: Ctrl+q
'
ActiveWindow.SmallScroll Down:=48
Range("E81").Select
Selection.Copy
Range("E71").Select
'Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveWindow.SmallScroll Down:=9
Range("E93").Select
Application.CutCopyMode = False
Selection.Copy
Range("E84").Select
'Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveWindow.SmallScroll Down:=-69
Range("B6:B65").Select
Application.CutCopyMode = False
Selection.ClearContents
Range("AD1:AD1").Select
Selection.ClearContents
Range("B6:G65").Select
Selection.ClearContents
Range("Q6:Y65").Select
Selection.ClearContents
Range("AB6:AE65").Select
Selection.ClearContents
Range("AG6:AL65").Select
Selection.ClearContents
Range("AP6:BA65").Select
Selection.ClearContents
Range("BC6:BC65").Select
Selection.ClearContents
Sheets("giris sayfasi2").Select
ActiveWindow.SmallScroll Down:=-9
Range("C2:C12").Select
Selection.ClearContents
Range("D412").Select
Selection.ClearContents
Range("C16:C16").Select
Selection.ClearContents
Range("C20:C28").Select
Selection.ClearContents
Range("D2028").Select
Selection.ClearContents
ActiveWindow.SmallScroll Down:=15
Range("A3351").Select
Selection.ClearContents
Range("F33:H51").Select
Selection.ClearContents
Range("J33:L51").Select
Selection.ClearContents
Range("C2").Select
Sheets("giris sayfasi").Select
Range("U1").Select
Selection.ClearContents
ActiveWorkbook.Save
End Sub

 

[ÖmerBey]

Merhaba,
Makro kodunuzun başına

ActiveSheet.Unprotect "[COLOR="Red"]şifre[/COLOR]"

yazarak korumayı kaldırıp, sonuna da

ActiveSheet.Protect "[COLOR="red"]şifre[/COLOR]"

yazarak yeniden sayfa korumasını aktifleştirebilirsiniz.