Oluştururken Çalışan Ama Run Edince Çalışmaya Makro

[baydeniro]

Merhaba arkadaşlar. Aşağıdaki kodu Makro sihizbazı ile oluşturuyorum. Ancak Run edince çalışmıyor :

Sub AKTAR()

Sheets("KAYIT").Select
Selection.AutoFilter Field:=2, Criteria1:="0"
Range("A2:C5").Select
Selection.Copy
Sheets("RAPOR").Select
Range("A2").Select
ActiveSheet.Paste
Range("A1").Select
Sheets("KAYIT").Select
Application.CutCopyMode = False
Selection.AutoFilter Field:=2
Range("A7").Select

End Sub

 

[baydeniro]

Örnek dosya ekte

 

[dEdE]

Merhaba,
Dosyanızda sayfa koruma şifresi var. Bunu kaldırıp işlem yaptıktan sonra tekrar koyabilirsiniz. Şifrenizin 1 olduğunu varsayarak;kodunuzun ilk satırına(sub un altına)

 ActiveSheet.Unprotect "1"

ve son satırına da (End Sub un üstüne)

 ActiveSheet.Protect "1"

yazmanız yeterlidir.

 

[baydeniro]

Pardon aklımdan çıkmış. Dosya şifresi : 1

 

[baydeniro]

Çok teşekkür ederim Sayın dEdE

 

[baydeniro]

Peki şunu öğrenmek istiyorum. bu tür durumlarda hep korumayı kaldırmak mı gerekir ? Yani koruma kalkmadan da bit yolu var mıdır ?