sayfa koruması olunca makrolarım çalışmıyor

[acemituncay]

arkadaşlar tablomdaki formüllerim bozulmasın diye sayfa koruması ekliyorum ozamanda makrolar çalışmıyor ne yapmam lazım çok önemli yardımlarınızı bekliyorum


arkadaşlar alakanız ve paylaşımınız için çok sağolun büyüksünüz. yalnız ben anlayamadım dediğim gibi acemiyim derdimide anlatamadım galiba.
ben excelde bir çizelge yaptım ve çizelgeye makro kaydettim kaydettiğim makroyu bir tuşa atadım.
makrom çalışıyor ancak sayfa koruması ekleyince hata veriyor çalışmıyor ben acemiyim makro yazmayı bilmiyorum makroyu makro kadedicen yaptım. bu sorunu nasıl aşarım deteylı anlatan birisi olursa çok sevinirim. herkese teşekkür ederim

 

[anubis026]

sayfa koruması tam olarak nedir bilmiyorum ama excel seçenekleri>güven merkezi>güven merkezi ayarları>makro ayarları> tüm makroları etkinleştir i seçtiniz mi?

 

[Eser Gökay]

kodlarınızın bazıları sayfa koruması aktifken çalışmayabilir.
o yuzden problem yaratan kodların başına ActiveSheet.Unprotect ve sonuna da ActiveSheet.protect satırlarını eklemeniz gerekir.

 

[acemituncay]

ya çok sağolda ben tam olarak nasıl yazılır bilmiyorum tam neresine yazıcam bi yardımcı olurmusun.

Sub CekKullanımCızelgesi()
'
' CekKullanımCızelgesi Makro
' ÇEK KULLANIM ÇİZELGESİNİ HESAPLAYARAK HAZIR HALE GETİR
'

'
Range("D5:AK19").Select
With Selection.Font
.ColorIndex = xlAutomatic
.TintAndShade = 0
End With
Range("AI4").Select
ActiveSheet.Range("$AI$4:$AI$20").AutoFilter Field:=1, Criteria1:=">0", _
Operator:=xlAnd
ActiveWindow.SmallScroll Down:=-15
End Sub

 

[Eser Gökay]

Sub CekKullanımCızelgesi()
'
' CekKullanımCızelgesi Makro
' ÇEK KULLANIM ÇİZELGESİNİ HESAPLAYARAK HAZIR HALE GETİR
'

ActiveSheet.Unprotect
Range("D5:AK19").Select
With Selection.Font
.ColorIndex = xlAutomatic
.TintAndShade = 0
End With
Range("AI4").Select
ActiveSheet.Range("$AI$4:$AI$20").AutoFilter Field:=1, Criteria1:=">0", _
Operator:=xlAnd
ActiveWindow.SmallScroll Down:=-15
ActiveSheet.protect
End Sub

 

[acemituncay]

hay allah razı olsun teşekkür ederim tuttuğun altın yolun açık olsun arkadaşım sağol bi deneyecem