Korumalı sayfa

[y_tekeli]

Selam arkadaşlar
sayfayı korumaya aldığımda makrolar çalışmıyor forumda benzer bir sorunu inceledim uyguladım fakat başarısız oldum. Bu konuyu detaylı olarak anlatırmısınız

 

[N.Ziya Hiçdurmaz]

yanıt

ActiveSheet.Unprotect 123'koruma kaldır
'Araya kodlarınız
ActiveSheet.Protect 123'koruma koy

 

[y_tekeli]

ActiveSheet.Unprotect 123'koruma kaldır
Sub RAPOR()
'
' RAPOR Makro
' Makro user tarafından 03.12.2009 tarihinde kaydedildi.
'

'
Selection.AutoFilter Field:=6, Criteria1:=">0"
Range("A5:G584").Select
Range("G584").Activate
ActiveWindow.SmallScroll Down:=-6
Selection.Copy
Sheets("RAPOR").Select
Range("A7").Select
ActiveSheet.Paste
Selection.Interior.ColorIndex = xlNone
Selection.AutoFilter Field:=7, Criteria1:="<>"
Range("A2").Select
End Sub
ActiveSheet.Protect 123'koruma koy


SEKLİNDE Mİ OLACAK ÜSTAD DEĞİLSE ŞAYET DOĞRUSUNU YAZARMISIN

 

[N.Ziya Hiçdurmaz]

yanıt

Sub RAPOR()
'
' RAPOR Makro
' Makro user tarafından 03.12.2009 tarihinde kaydedildi.
'

'
ActiveSheet.Unprotect 123 'koruma kaldır

Selection.AutoFilter Field:=6, Criteria1:=">0"
Range("A5:G584").Select
Range("G584").Activate
ActiveWindow.SmallScroll Down:=-6
Selection.Copy
Sheets("RAPOR").Select
Range("A7").Select
ActiveSheet.Paste
Selection.Interior.ColorIndex = xlNone
Selection.AutoFilter Field:=7, Criteria1:="<>"
Range("A2").Select
ActiveSheet.Protect 123 'koruma koy

End Sub