4 Jenis VBA Excel Hide Formula Bar

Kode VBA Excel Menyembunyikan Formula Bar supaya rumus yang ada tidak terlihat oleh pengguna.

Anda dapat menggunakan beberapa contoh kode dibawah ini sesuai kebutuhan.

Display Formula Bar Versi 1


Application.DisplayFormulaBar = False

Penjelasan

Display yang berarti Menampilkan, dan formulabar ialah Kotak Tempat Menaruh Rumus / Formula Excel, sedangkan False adalah tidak

Ingat !

False = Tidak
True = Iya

Jika digabungkan maka cara membacanya kurang lebih seperti ini :

Hai Macro Excel..
Tolong dong ketika Anda dijalankan (klik) maka, Semua Workbook Excel Yang Terbuka Formula Bar nya diSembunyikan.

Display Formula Bar Versi 2


Private Sub Workbook_Activate()
Application.DisplayFormulaBar = False
End Sub

Penjelasan

Tedapat prosedur Private Sub Workbook_Activate() yang berarti Kode macro hanya berjalan di Workbook ini saja.

Perintah apa yang berjalan ?

Yaitu perintah Application.DisplayFormulaBar = False yang berarti Menyembunyikan FormulaBar hanya di Workbook ini saja, tidak di Workbook lain.

Sedangkan Kode Macro dibawah ini adalah :


Private Sub Workbook_Deactivate()
Application.DisplayFormulaBar = True
End Sub

Menampilkan FormulaBar apabila Workbook ini ditutup (Workbook_Deactivate)

Sudah paham kan ??

Oke kita lanjut ke versi berikutnya.

Display Formula Bar Versi 3


Private Sub Workbook_SheetActivate(ByVal Sh As Object)
If Sh.Name = "Sheet1" Then
Application.DisplayFormulaBar = False
Else
Application.DisplayFormulaBar = True
End If
End Sub

Penjelasan

Pada Kode Macro diatas terdapat Prosedur Workbook_SheetActivate(ByVal Sh As Object) yang berarti Kode Macro hanya berjalan di Workbook ini dan di Sheet Tertentu, atau dengan kata lain Kode Macro HANYA BERJALAN di Workbook ini dan di Sheet yang dipilih sebagai objek.

Mana Objeknya ?

Objeknya adalah If Sh.Name = "Sheet1" Then yang berarti Sheet1

Jika sudah ditentukan objeknya, terus ?

Dilanjutkan dengan Application.DisplayFormulaBar = False yaitu FormulaBar nya disembunyikan

Kemudian Else adalah prosedur jawaban apabila tidak di Workbook ini dan di Sheet1

Apa jawabannya ?

Jawabannya adalah Application.DisplayFormulaBar = True yang berarti Menampilkan FormulaBar.

Kesimpulan DisplayFormulaBar Versi 3

Menyembunyikan FormulaBar hanya di Workbook dan Sheet tertentu dan Menampilkan FormulaBar selain di Workbook dan Sheet yang ditentukan.

Sudah paham kan ?

Saya kira ini mudah :)

Oke kita lanjut ke versi berikutnya.

Display Formula Bar Versi 4


Option Explicit
Dim DisabledBars As New Collection
Sub DisableToolBars()
On Error Resume Next
For Each tb In Application.CommandBars
If tb.Enabled Then
DisabledBars.Add tb.Name, tb.Name
tb.Enabled = False
End If
Next
Application.DisplayFormulaBar = False
Application.DisplayStatusBar = False
On Error GoTo 0
End Sub

Sub EnableToolBars()
If DisabledBars.Count > 0 Then
For Each tbname In DisabledBars
Application.CommandBars(tbname).Enabled = True
Next
Application.DisplayFormulaBar = True
Application.DisplayStatusBar = True
End If
End Sub

Untuk DisplayFormulaBar versi 4 ini cukup panjang penjelasannya, sehingga kami hanya melampirkan file pendukung untuk pemahaman lebih mendalam.