Sayfa yapısında alt yada ust bılgının değiştirilmesı

[haso_excel]

Merhaba arkadaşlar,
Bir çıktının sağ alt köşesindeki bilginin, benden başka bir kullanıcı tarafından o alana girip değiştirmesini istemiyorum. Bunun olması mumkunmu ?

 

[uzmanamele]

merhaba

Workbook_BeforePrint altında kod yazarsanız manuel yapılan değişikliği dikkate almayacaktır.

 

[Necdet]

merhaba

Workbook_BeforePrint altında kod yazarsanız manuel yapılan değişikliği dikkate almayacaktır.

Merhaba,

Bende örnek kod vereyim.

Sayfa adının "Sayfa1" ise geçerlidir.
Kodlar ThisWorkbook'un kod bölümünde olmalı.

Private Sub Workbook_BeforePrint(Cancel As Boolean)
Dim Baslik As String
If ActiveSheet.Name = "Sayfa1" Then
    Baslik = "[URL="http://www.excel.web.tr/"]www.excel.web.tr[/URL] Excel Bilgi Portalı"
    With ActiveSheet.PageSetup
        .RightFooter = "&""Arial,Kalın""&12" & Baslik
    End With
End If
End Sub

 

[haso_excel]

Teşekkürler arkadaşlar