footer sheet page

  1. 9 bulan yang lalu

    Ass... Rekan2 semua....
    Mohon dapat dibantu lagi nich..... Bagaimana cara Footer Sheet page tulisan yang biasa muncul pada lembaran excel agar bisa dikunci dan tidak bisa diganti.

    terima kasih

  2. Caton

    26 Jan 2018 Terverifikasi Indonesia + 12.014 Poin

    Sepertinya tidak ada cara langsung untuk mengunci pengaturan Page Setup (Header, Footer, Margin dan sebagainya). Kecuali mungkin dengan menghilangkan menunya dari Ribbon Menu dan dengan mendefinisi ulang Page Setup melalui VBA. Untuk yang terakhir, bisa dilakukan dengan memanfaatkan Event Procedure seperti Workbook_Open, Workbook_BeforePrint atau Workbook_BeforeSave, atau pada ketiga prosedur tersebut. Misalkan:

    Option Explicit
    
    Private Sub DefineHeaderFooter()
        With Application
            .ScreenUpdating = False
            .EnableEvents = False
        End With
        
        Sheet1.DisplayPageBreaks = False
        With Sheet1.PageSetup
            .CenterFooter = "&""Tahoma,Regular""&8Halaman &P"
            .Orientation = xlPortrait
            .Draft = False
            .PaperSize = xlPaperA4
            .Zoom = 100
        End With
    
        With Application
            .ScreenUpdating = False
            .EnableEvents = False
        End With
    End Sub
    
    Private Sub Workbook_BeforePrint(Cancel As Boolean)
        Call DefineHeaderFooter
    End Sub
    
    Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
        Call DefineHeaderFooter
    End Sub
    
    Private Sub Workbook_Open()
        Call DefineHeaderFooter
    End Sub

    Untuk properti-properti objek PageSetup lainnya, dapat dilihat pada Object Browser (F2) pada jendela VBE. Demikian... ;)

  3. Caton

    26 Jan 2018 Terverifikasi Indonesia + 12.014 Poin

    Revisi sedikit, pada bagian akhir prosedur DefineHeaderFooter, ada kesalahan:

    Private Sub DefineHeaderFooter()
        ...
        With Application
            .ScreenUpdating = True
            .EnableEvents = True
        End With
    End Sub

    Demikian... ;)

  4. Makasih mas caton....
    berarti untuk memfungsikan vb diatas... harus mengnon aktifkan ribon page setup yah
    mas.... atau gimana yah
    terima kasih

  5. Caton

    26 Jan 2018 Terverifikasi Indonesia + 12.014 Poin

    Klo yang pake VBA, ya gak harus non aktifkan Ribbon Menu Page Setup (meskipun klo mau juga gak apa-apa)... Karena bisa jadi Page Setup masih diperlukan untuk mengatur margin, zoom dan sebagainya. Intinya, pada script tersebut diatur properti apa saja dari objek Page Setup yang akan tetap pengaturannya sehingga meski sudah diubah-ubah, nanti kembali ke pengaturan yang ditentukan... Begitu :)

  6. maaf mas mau bertanya lagi nih..... file yang dirubah/dsetting tetap di ext. xlsx.... atau harus .xlsm....
    terima kasih

  7. Caton

    26 Jan 2018 Terverifikasi Indonesia + 12.014 Poin

    Excel Macro hanya bisa digunakan pada format file Excel XLS (2003), XLSM, XLSB, XLAM...

 

atau Mendaftar untuk ikut berdiskusi!