Full screen lembar kerja excel Otomatis dengan Kode VBA Excel

Untuk menampilkan tampilan lembar kerja excel menjadi full screen atau Full Layar, kita bisa menggunakan beberapa kode VBA Macro Excel. Dengan kode VBA kita juga bisa mengembalikan lagi lembar kerja yang sudah Full Layar menjadi Normal. Ada beberapa cara agar lembar kerja menjadi full screen, diantaranya :

Full Screen saat file excel dibuka

Pada saat file excel dibuka maka lembar kerja excel tersebut langsung Full Screen.

1. Masuk ke Microsoft Visual Basic for Applications window dengan menekan tombol Alt + F11 atau anda klik tab "Developer" lalu klik "Visual Basic". Apabila di Office anda belum tampil tab Developer, silahkan baca "Cara Menampilkan Ribbon Developer"


2. Klik 2 kali "ThisWorkbook"


3. Copy Paste kode berikut di bawah ini dan masukan ke dalam lembar "ThisWorkbook"


Kode VBA untuk Full Screen Saat File Excel Aktif

'https://baladaka.blogspot.com
'Saat file dibuka maka akan Full Layar

Private Sub Workbook_Activate()

With Application
  .DisplayFullScreen = True
  .CommandBars("Worksheet Menu Bar").Enabled = False
End With

End Sub



Catatan

Untuk mengembalikan lembar kerja supaya normal, kita bisa dengan cara manual yaitu dengan cara mengklik tanda "Restore Down" yang berada di sudut paling atas kanan dekat tanda Close. Sehingga lembar kerja akan menjadi kecil lalu klik lagi tombol "Maximize" atau tombol yang tadi Restore Down karena kecil berubah menjadi Maximize.
Untuk menormalkan lembar kerja excel kita juga bisa menggunakan kode VBA, seperti di tulis di bawah.

Menon-aktif-kan Full Screen (Normal) saat file excel ditutup

Apabila anda menggunakan kode "Full Screen saat file excel dibuka" maka sebaiknya anda juga menambahkan perintah kode untuk Menon-aktif-kan Full Screen (kondisi Normal kembali) saat file excel ditutup.

1. Ikuti cara di atas untuk masuk ke jendela VBA


2. Masuk ke lembar kerja "ThisWorkbook"


3. Copy Paste kode berikut di bawah ini dan masukan ke dalam lembar "ThisWorkbook"


Kode VBA untuk Menon-aktif-kan Full Screen (Normal)

'https://baladaka.blogspot.com
'Saat file ditutup maka Layar akan Normal

Private Sub Workbook_Deactivate()

With Application
  .DisplayFullScreen = False
  .CommandBars("Worksheet Menu Bar").Enabled = True
End With

End Sub

Full Screen pada sheet tertentu

Apabila kita ingin saat masuk ke salah satu sheet maka lembar kerja pada sheet tersebut menjadi Full Screen. Misal pada sheet2 lembar kerjanya menjadi Full Screen sehingga untuk sheet yang lainnya Normal

1. Ikuti cara di atas untuk masuk ke jendela VBA


2. Pada Microsoft Objects, klik 2 kali pada "Sheet2"


3. Copy Paste kode berikut di bawah ini dan masukan ke dalam lembar "Sheet2"


Kode VBA untuk Full Screen Pada Sheet

'https://baladaka.blogspot.com
'Full Layar pada Sheet

Private Sub Worksheet_Activate()

With Application
  .DisplayFullScreen = True
  .CommandBars("Worksheet Menu Bar").Enabled = False
End With

End Sub


'Agar Sheet lain Normal

Private Sub Worksheet_Deactivate()

With Application
  .DisplayFullScreen = False
  .CommandBars("Worksheet Menu Bar").Enabled = True
End With

End Sub

Membuat Full Screen dan Normal dengan Tombol

Untuk membuat lembar kerja excel menjadi "Full Screen" dan Menormalkan lembar kerja excel tersebut bisa juga menggunakan sebuah tombol.

1. Pada jendela VBA, klik Menu "Insert" lalu klik "Module"


2. Copy Paste kode berikut di bawah ini dan masukan ke dalam "Module"


Kode VBA Full Screen dan Normal

'https://baladaka.blogspot.com
'Full Layar

Sub FullLayar()

With Application
  .DisplayFullScreen = True
  .CommandBars("Worksheet Menu Bar").Enabled = False
End With

End Sub


'Layar Normal

Sub LayarNormal()

With Application
  .DisplayFullScreen = False
  .CommandBars("Worksheet Menu Bar").Enabled = True
End With

End Sub



3. Buatkan sebuah tombol dan hubungkan dengan kode tersebut untuk memanggil perintah kode VBA


4. Simpan file tersebut ke dalam type atau Save as type : Excel Macro-Enabled Workbook atau type Excel Binary Workbook

Contoh File Full screen lembar kerja excel

Link Alternatif

Jika File tidak ter-download otomatis, silahkan klik Link Alternatif

-