Excel VBA Auto Hide Formula Bar dan Heading

Salin Kode (Script) di Sini

Sub HideIt()

  Dim wbBook As Workbook
  Dim wsSheet As Worksheet
  
  Set wbBook = ThisWorkbook
  Application.ScreenUpdating = False

  For Each wsSheet In wbBook.Worksheets
      wsSheet.Activate
      
      'to hide headings
      ActiveWindow.DisplayHeadings = False
      
      'to hide gridlines
      ActiveWindow.DisplayGridlines = False
        
      'to hide formula bar
      Application.DisplayFormulaBar = False
  Next wsSheet
  
  'to hide sheets tabs
  ActiveWindow.DisplayWorkbookTabs = False
    
  'to hide ribbon
  Application.ExecuteExcel4Macro "show.toolbar(""Ribbon"", False)"
    
  Application.ScreenUpdating = True
    
End Sub

Sub HideIt()

  Dim wbBook As Workbook
  Dim wsSheet As Worksheet
  
  Set wbBook = ThisWorkbook
  Application.ScreenUpdating = False

  For Each wsSheet In wbBook.Worksheets
      wsSheet.Activate
      
      'to hide headings
      ActiveWindow.DisplayHeadings = False
      
      'to hide gridlines
      ActiveWindow.DisplayGridlines = False
        
      'to hide formula bar
      Application.DisplayFormulaBar = False
  Next wsSheet
  
  'to hide sheets tabs
  ActiveWindow.DisplayWorkbookTabs = False
    
  'to hide ribbon
  Application.ExecuteExcel4Macro "show.toolbar(""Ribbon"", False)"
    
  Application.ScreenUpdating = True
    
End Sub

Sub ShowIt()
  
  Dim wbBook As Workbook
  Dim wsSheet As Worksheet
  
  Set wbBook = ThisWorkbook
  Application.ScreenUpdating = False
  
  For Each wsSheet In wbBook.Worksheets
      wsSheet.Activate
      
      'to show headings
      ActiveWindow.DisplayHeadings = True
  
      'to show gridlines
      ActiveWindow.DisplayGridlines = True
      
      'to show formulabar
      Application.DisplayFormulaBar = True
  Next wsSheet
  
  'to show sheets tabs
  ActiveWindow.DisplayWorkbookTabs = True
  
  'to show ribbon
  Application.ExecuteExcel4Macro "show.toolbar(""Ribbon"", True)"
    
  Application.ScreenUpdating = True
  
End Sub

Sub ShowIt()
  
  Dim wbBook As Workbook
  Dim wsSheet As Worksheet
  
  Set wbBook = ThisWorkbook
  Application.ScreenUpdating = False
  
  For Each wsSheet In wbBook.Worksheets
      wsSheet.Activate
      
      'to show headings
      ActiveWindow.DisplayHeadings = True
  
      'to show gridlines
      ActiveWindow.DisplayGridlines = True
      
      'to show formulabar
      Application.DisplayFormulaBar = True
  Next wsSheet
  
  'to show sheets tabs
  ActiveWindow.DisplayWorkbookTabs = True
  
  'to show ribbon
  Application.ExecuteExcel4Macro "show.toolbar(""Ribbon"", True)"
    
  Application.ScreenUpdating = True
  
End Sub

Apakah Kode Ini Bisa Jalan di Excel & Google Sheets?

Mengapa Anda Butuh Kode Ini?

Masalah utama saat mendistribusikan file Excel ke tim atau klien adalah risiko user tidak sengaja mengubah rumus di formula bar atau merasa pusing melihat baris dan kolom yang terlalu ramai.

Menghilangkan elemen-elemen ini secara manual lewat Tab View satu per satu tentu sangat merepotkan, apalagi jika Anda ingin tampilan bersih ini langsung aktif otomatis begitu file dibuka.

💡Pro Tips : bisa dikombinasikan dengan shortcut, serta pop-up password sehingga kita bisa lock & unlock dengan mudah dan cepat

Manfaat Nyata untuk Efisiensi Bisnis

Dari sisi penggunaan di dunia kerja, walaupun fitur ini tidak secara langsung impact ke efisiensi bisnis, fitur auto hide ini memberikan dampak nyata:

• Tampilan Aplikasi Profesional: Excel Anda akan terlihat seperti software atau sistem khusus, bukan sekadar tabel biasa.
• Dikarenakan beberapa elemen sudah hidden atau disembunyikan maka tampilan workbook menjadi lebih luas, lebar, dan estetik, sehingga area kerja lebih lebar.
• Keamanan Formula: Meminimalkan risiko pengguna awam melihat atau mengutak-atik rumus rumit yang ada di formula bar.
• Fokus Kerja Meningkat: Tim yang bertugas menginput data tidak akan teralihkan perhatiannya oleh elemen navigasi Excel yang tidak diperlukan.

Persyaratan Teknis

Terdapat beberapa persyaratan teknis agar VBA ini berjalan yaitu:

• Workbook sudah di save sebagai macro enabled workbook (.xlsm atau .xlsb)
• Macro setting sudah “Enabled VBA macros”, jika belum silahkan baca artikel ini untuk enable macro