Üst Bilgi/Alt Bilgiye Makro İle Şifre Koyma

[betoncu]

Üst Bilgi/Alt Bilgiye Şifre Koyma

Arkadaşlar excelde bulunan üst bilgi/alt bilgi menüsüne eklediğim metnin başkası tarafından değiştirilmesini istemiyorum bunu nasıl sağlarız?

Not: Çalışma sayfasında devamlı veri girişi olduğu için sayfaya şifre koymak istemiyorum. Sayfaya şifre istemeden veri girişi olsun ve üst bilgi/alt bilgi olarak girdiğim metninde korumalı olmasını istiyorum.

 

[betoncu]

Konu başlığını hatalı yazmışım
Alt Bilgi olacak.

 

[mancubus]

bildiğim kadarı ile mümkün değil.

ancak makro ile mümkün olabilir. sorunuzu Makro-VBA forumunda sorarsanız yardımcı olmaya çalışırım.

 

[betoncu]

Anladım teşekkür ederim. Konu açıyorum.

 

[betoncu]

Arkadaşlar excelde bulunan üst bilgi/alt bilgi menüsüne eklediğim metnin başkası tarafından değiştirilmesini istemiyorum bunu nasıl sağlarız?

Not: Çalışma sayfasında devamlı veri girişi olduğu için sayfaya şifre koymak istemiyorum. Sayfaya şifre istemeden veri girişi olsun ve üst bilgi/alt bilgi olarak girdiğim metninde korumalı olmasını istiyorum.

 

[mancubus]

Merhaba.

Workbook_BeforePrint olay kodu ile yapılabilir.

ThisWorkbook kod modülü veya Worksheet kod modülünde kulllanılabilir.

Sayfa1 sayfası için örnek

Private Sub Workbook_BeforePrint(Cancel As Boolean)

With Worksheets("Sayfa1").PageSetup
      .LeftHeader = ""
      .CenterHeader = ""
      .RightHeader = ""
      .LeftFooter = ""
      .CenterFooter = ""
      .RightFooter = ""
End With

End Sub

"" ile tamamının boş olmasını sağlıyoruz.

standar bazı ifadeler de eklenebilir. Dosya ismi vb gibi.

 

[betoncu]

Örnek dosya ekleyebilirmisiniz ben yapamadım.

 

[betoncu]

Tamam oldu teşekkür ederim.

 

[mancubus]

örnekler

            .LeftHeader = "BİZİM ŞİRKET AŞ" 'üst sol: bizim yazdığımız değer
            .CenterHeader = "" 'üst orta: boş bırakıldı
            .RightHeader = "&D &T" 'üst sağ: tarih saat
            .LeftFooter = "&F" 'alt sol: dosya ismi
            .CenterFooter = "&P" 'alt orta: sayfa no
            .RightFooter = "&A" 'alt sağ: sayfa ismi

 

[betoncu]

Bu kod sadece sayfa1 için çalışıyor. Diğer sayfalarda da çalışmasını nasıl sağlarız.

 

[mancubus]

aşağıdaki gibi deneyebilirsiniz.

Sub ustbilgi_altbilgi

    Dim wks As Worksheet
    Application.ScreenUpdating = False
    For Each wks In Worksheets
        With wks.PageSetup
            .LeftHeader = "BİZİM ŞİRKET AŞ" 'üst sol: bizim yazdığımız değer
            .CenterHeader = "" 'üst orta: boş bırakıldı
            .RightHeader = "&D &T" 'üst sağ: tarih saat
            .LeftFooter = "&F" 'alt sol: dosya ismi
            .CenterFooter = "&P" 'alt orta: sayfa no
            .RightFooter = "&A" 'alt sağ: sayfa ismi
        End With
    Next wks
    Set wks = Nothing

End Sub