Excel'de üstbilgi ve altbilgi nasıl korunur?
Excel'de hücreleri hızlı ve kolay bir şekilde koruyabiliriz, ancak başkalarının değiştirmesini önlemek için üstbilgi ve altbilgiyi korumayı hiç denediniz mi? Normalde, bu görevi çalışma sayfasında çözmenin doğrudan bir yolu yoktur, ancak aşağıdaki VBA kodu size bir iyilik yapabilir.
Üstbilgi ve altbilgiyi VBA koduyla koruyun
Üstbilgi ve altbilgiyi VBA koduyla koruyun
Üstbilgi ve altbilgi, çalışma sayfasını yazdırırken bizim için yararlıdır, başkaları tarafından değiştirilmelerini önlemek için lütfen aşağıdaki adımları uygulayın:
1. Basılı tutun ALT + F11 tuşlarını açmak için Uygulamalar için Microsoft Visual Basic pencere.
2. Ardından çift tıklayın Bu Çalışma Kitabı altında VBAProjesi bölümünde boş bir modül açın ve ardından aşağıdaki kodu modüle kopyalayıp yapıştırın:
VBA kodu: Üstbilgi ve altbilgiyi koruyun
Option Explicit
Private Sub Workbook_BeforePrint(Cancel As Boolean)
Call ProtectHF
End Sub
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Call ProtectHF
End Sub
Private Sub Workbook_Open()
Call ProtectHF
End Sub
Private Sub ProtectHF()
'Updateby Extendoffice
Application.ScreenUpdating = False
ThisWorkbook.ActiveSheet.PageSetup.RightHeader = ""
ThisWorkbook.ActiveSheet.PageSetup.RightFooter = ""
ThisWorkbook.ActiveSheet.PageSetup.CenterFooter = "KTE-Sale-Report"
ThisWorkbook.ActiveSheet.PageSetup.CenterHeader = "Created by Skyyang"
ThisWorkbook.ActiveSheet.PageSetup.LeftHeader = ""
ThisWorkbook.ActiveSheet.PageSetup.LeftFooter = ""
Application.ScreenUpdating = True
End Sub
not: Üstbilgi veya altbilgi içeriğini yukarıdaki kodda karşılık gelen konuma ekleyebilirsiniz.
3. Ve şimdi bu kodu kaydedip kapatın. İndirim Bu çalışma kitabını kaydetmek için düğme, değiştirilen üstbilgi veya altbilgi içeriği, üstbilgi veya altbilgiyi değiştirmeyi denediyseniz otomatik olarak orijinal olanlara geri dönecektir, ekran görüntüsüne bakın:
En İyi Ofis Üretkenlik Araçları
Kutools for Excel ile Excel Becerilerinizi Güçlendirin ve Daha Önce Hiç Olmadığı Gibi Verimliliği Deneyimleyin. Kutools for Excel, Üretkenliği Artırmak ve Zamandan Tasarruf Etmek için 300'den Fazla Gelişmiş Özellik Sunar. En Çok İhtiyacınız Olan Özelliği Almak İçin Buraya Tıklayın...
Office Tab, Office'e Sekmeli Arayüz Getirir ve İşinizi Çok Daha Kolay Hale Getirir
- Word, Excel, PowerPoint'te sekmeli düzenlemeyi ve okumayı etkinleştirin, Publisher, Access, Visio ve Project.
- Yeni pencereler yerine aynı pencerenin yeni sekmelerinde birden çok belge açın ve oluşturun.
- Üretkenliğinizi% 50 artırır ve her gün sizin için yüzlerce fare tıklamasını azaltır!