Footer_msg_degısmesın

[haso_excel]

Merhaba arkadaşlar,

Attribute VB_Name = "FOOTER_MSG_DEGISMESIN"
Private Sub Workbook_BeforePrint(Cancel As Boolean)
'calısacağın dosyanın this workbook kısmına bo kodu kopyala
Dim Baslik As String
'="ıs"olan yeri kendi sheet ismini ver
If ActiveSheet.Name = "ıs" Then
    'kendi ismini yaz
    Baslik = "HAZIRLAYAN HASAN ATILCAN"
    With ActiveSheet.PageSetup
        .RightFooter = "&""Arial,Kalın""&12" & Baslik
    End With
End If
End Sub

Yaptığım bir raporun değiştirilmemek üzere footer ında "hazırlayan Hasan Atılcan" yazmasını istiyorum. Bu amaçla yukarıdaki kodu siteden buldum fakat bir türlü çalıştıramadım. (Office 2010 kullanıyorum)Yardımcı olabilir misiniz?
Yardımcı olabilir misini lütfen?

 

[hamitcan]

Böyle deneyin.

Private Sub Workbook_BeforePrint(Cancel As Boolean)
Dim Baslik As String
    Baslik = "HAZIRLAYAN HASAN ATILCAN"
    With ActiveSheet.PageSetup
        .RightFooter = "&""Arial,Kalın""&12" & Baslik
    End With
End Sub

 

[haso_excel]

Teşekkürler işlem tamam.