Ads Here

Wednesday, October 24, 2018

Cara Menyembunyikan Ribbon Default Excel


Dalam pembuatan aplikasi dengan Microsoft Excel yang disertai dengan Custom Ribbon, banyak yang ingin menyembunyikan Ribbon bawaan Excel dan hanya menampilkan custom Ribbon yang di buat sendiri.

Bagaimanakah cara menyembunyikan Ribbon Default Excel tersebut?

Untuk menyembunyikan Ribbon bawaan atau default Excel caranya sebenarnya cukup mudah, hanya memerlukan beberapa baris kode xml, selengkapnya ikuti langkah-langkah berikut ini:

1Buka File Excel (*.xlsx atau *.xlsm) atau untuk lebih mudah lagi silahkan download terlebih dahulu file Latihan Custom Ribbon.xlsm lalu buka dengan menggunakan aplikasi Custom UI Editor.

2akan terlihat pada Custom UI Editor kode xml berikut ini:

<customUI xmlns="http://schemas.microsoft.com/office/2006/01/customui">
  <ribbon>
    <tabs>
      <tab id="TabBaru" label="Latihan" insertAfterMso="TabHome">
        <group id="Emoticon" label="Emoticon">
          <button id="senyum" imageMso="HappyFace" label="Senyum" size="large" onAction="Tersenyum" />
          <separator id="Separator" />
          <button id="sedih" imageMso="SadFace" label="Sedih" size="large" onAction="Sedih" />
        </group>
      </tab>
    </tabs>
  </ribbon>
</customUI>

3Untuk menyembunyikan Ribbon Default tambahkan script berikut di dalam tag <ribbon> (kode baris no 2 dari atas) sehingga menjadi seperti ini:

<ribbon startFromScratch="true">

4Setelah selesai klik Save pada Custom UI Editor untuk menyimpan dan coba buka dengan aplikasi Microsoft Excel.

5Hasilnya Ribbon Default dan QAT (Quick Access Toolbar) serta beberapa Command pada Office Menu akan disembunyikan, dan yang ditampilkan hanya Ribbon buatan sendiri. 

Hide Custom Ribbon Excel

6Agar semua command pada Office Menu juga bisa disembunyikan, maka perlu ditambahan lagi script xml berikut dibawah kode <ribbon startFromScratch="true">:

<officeMenu>
  <button idMso="FileNew" visible="false" />
  <button idMso="FileOpen" visible="false" />
  <button idMso="FileSave" visible="false" />
</officeMenu>
7Jika ingin supaya tombol Excel Options dan tombol Exit Excel juga dinonaktifkan/disable maka tambahkan lagi script berikut diatas kode <ribbon startFromScratch="true">:

<commands>
  <command idMso="ApplicationOptionsDialog" enabled="false" />
  <command idMso="FileExit" enabled="false" />
</commands>
8Jangan lupa untuk menyimpan dengan klik tombol Save pada Custom UI Editor.

Nah dengan memasukkan semua script diatas maka Ribbon Default Excel, QAT dan Office Menu akan disembunyikan serta Tombol Excel Options dan tombol Exit Excel akan terdisable.

Selain itu kita bisa juga menambahkan Macro/kode VBA untuk menyembunyikan Recent Documents agar tidak ada recent documents yang ditampilkan. Caranya adalah:

9Buka File Latihan Custom Ribbon.xlsm tadi dengan aplikasi Microsoft Excel. Kemudian tekan tombol ALT+F11 pada keyboard untuk membuka aplikasi Microsoft Visual Basic.

10Klik kanan pada ThisWorkbook dan klik View Code kemudian masukkan script berikut:

Private Sub Workbook_Open()
Dim MinNumberofFiles As Integer

With Application.RecentFiles
miNumberofFiles = .Maximum
    .Maximum = 0
End With
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim MinNumberofFiles As Integer

With Application.RecentFiles
miNumberofFiles = .Maximum
    .Maximum = 17
End With
End Sub

Penjelasan script:
Private Sub Workbook_Open()
Dim MinNumberofFiles As Integer

With Application.RecentFiles
miNumberofFiles = .Maximum
    .Maximum = 0
End With
End Sub
Sript diatas akan mengubah setting Recent Documents menjadi 0 (Nol) ketika Workbook dibuka. Sedangkan script selanjutnya akan mengubah setting Recent Documents menjadi 17 (Default Excel) ketika Workbook di tutup.

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim MinNumberofFiles As Integer

With Application.RecentFiles
miNumberofFiles = .Maximum
    .Maximum = 17
End With
End Sub

No comments:

Post a Comment