Tips Macro Excel Disable Tombol Minimize Maximize dan Close Excel - Semua versi Microsoft Excel baik versi 2003, versi 2007, versi 2010, versi 2013 dan versi 2016 secara defauld masing masing mempunyai tiga tombol penting yaitu tombol Minimize yang berguna untuk menyembunyikan aplikasi Excel, Maximize yang berguna untuk menampilkan aplikasi excel secara penuh, dan tombol Close "X" yang berfungsi untuk menutup aplikasi (Keluar)

Khusus untuk tombol Maximize yang mempunyai dual fungsi, saat jendela aplikasi excel tidak terbuka satu layar penuh maka tombol ini akan berfungsi sebagai Maximize yang berguna untuk menampilkan aplikasi excel secara penuh, saat aplikasi excel tampil secara penuh satu layar maka tombol ini akan berubah menjadi tombol restore down yang berfungsi sesuai makna bahasa indonesia-nya yaitu mengembalikan tampilan excel sebelum ditampilkan secara penuh


DISABLE SEMUA TOMBOL

Pada hari minggu lalu saya telah menshare cara menonaktifkan tombol X pada excel dan pada bulan lalu saya juga telah memberikan tips cara menampilkan excel secara fullscreen. Maka pada kesempatan kali ini saya masih diberikan waktu oleh Allah Jalla wa'ala untuk membagikan tips cara Disable Tombol Minimize Maximize dan Close Excel

Tips cara Disable Tombol Minimize Maximize dan Close Excel akan berfungsi untuk menghilangkan fungsi ketiga tombol yang telah saya terangkan diatas, bagaimana cara Disable Tombol Minimize Maximize dan Close Excel ? simak kajian berikut ini


Ketik kode API ini kedalam module

Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long) As Long
Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Private Declare Function GetSystemMenu Lib "user32" (ByVal hWnd As Long, ByVal bRevert As Long) As Long
Private Declare Function DeleteMenu Lib "user32" (ByVal hMenu As Long, ByVal nPosition As Long, ByVal wFlags As Long) As Long
Private Declare Function DrawMenuBar Lib "user32" (ByVal hWnd As Long) As Long
Private Declare Function SetFocus Lib "user32" (ByVal hWnd As Long) As Long
Private Declare Function LockWindowUpdate Lib "user32" (ByVal hWndLock As Long) As Long

Kemudian tambahkan kode Window style constants masih dimodule
Private Const GWL_STYLE As Long = (-16)
Private Const GWL_EXSTYLE As Long = (-20)
Private Const WS_CAPTION As Long = &HC00000
Private Const WS_SYSMENU As Long = &H80000
Private Const WS_THICKFRAME As Long = &H40000
Private Const WS_MINIMIZEBOX As Long = &H20000
Private Const WS_MAXIMIZEBOX As Long = &H10000
Private Const WS_EX_TOOLWINDOW As Long = &H80
Private Const SC_CLOSE As Long = &HF060

Tambahkan kode macro ini dibawah kode Window style constants
Public Sub SetStyle()
Dim lStyle As Long, hMenu As Longe
lStyle = GetWindowLong(Application.hWnd, GWL_STYLE)

If lStyle = 0 Then
MsgBox "Unable to determine application window handle...", vbExclamation, "Error"
Exit Sub
End If
SetBit lStyle, WS_MINIMIZEBOX, False
SetBit lStyle, WS_MAXIMIZEBOX, False
SetWindowLong Application.hWnd, GWL_STYLE, lStyle
lStyle = GetWindowLong(Application.hWnd, GWL_EXSTYLE)
hMenu = GetSystemMenu(Application.hWnd, 0)
DeleteMenu hMenu, SC_CLOSE, 0&
DrawMenuBar Application.hWnd
SetFocus Application.hWnd
End Sub

Private Sub SetBit(ByRef lStyle As Long, ByVal lBit As Long, ByVal bOn As Boolean)

If bOn Then
lStyle = lStyle Or lBit
Else
lStyle = lStyle And Not lBit
End If

End Sub

Lalu panggil fungsi dari module tadi saat workbook excel aktif thisworkbook
Private Sub Workbook_Open()
SetStyle
End Sub
Private Sub Workbook_WindowResize(ByVal Wn As Window)
Wn.WindowState = xlMaximized
EnableResize = False
End Sub

Coba sekarang tekan F5 pada keyboad untuk mencoba project diatas
Demikianlah cara Disable Tombol Minimize Maximize dan Close Excel, semoga bermanfaat bagi kita semua, aamiin
No comments