Tutorial Cara Membuat UserForm Full Tanpa Close, Maximize dan Minimize

Membuat Userform tanpa tepi maksudnya yaitu tanpa tombol close, minimize dan maximize merupakan salah satu alternatif supaya user atau pengguna aplikasi yang telah dibuat tidak bisa di close namun harus melalui tombol yang telah disediakan. Tampilan Userform full tanpa tepi ini bisa Anda gunakan dengan tujuan tertentu dari para programmer VBA

Langkah Pertama

• Langkah pertama silakan Anda buat satu buah Module dan tuliskan coding berikut ini
     Option Explicit

    Private Declare Function FindWindow Lib "user32" _
    Alias "FindWindowA" ( _
    ByVal lpClassName As String, _
    ByVal lpWindowName As String) As Long

    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 DrawMenuBar Lib "user32" ( _
    ByVal hWnd As Long) As Long
    Sub ExcelId(oForm As Object)
        Dim Hilangkan As Long
        Dim hMenu As Long
        Dim Wndw As Long
       
        Wndw = FindWindow("ThunderDFrame", oForm.Caption)

    Hilangkan = GetWindowLong(Wndw, -16)
    Hilangkan = Hilangkan And Not &HC00000
    SetWindowLong Wndw, -16, Hilangkan
    DrawMenuBar Wndw
End Sub
•  Jika Module telah dibuat langkah berikutnya kita akan membuat UserForm

Langkah Kedua

•  Langkah berikutnya setelah membuat userform dan menambahkan Commandbutton sekarang kita panggil module yang telah dibuat tadi dengan cara View code kemudian silakan masukan coding berikut pada procedure Initialize object UserForm
Private Sub UserForm_Initialize()
Call ExcelId(UserForm1)
End Sub
•  Karena Userform tersebut tidak ada tombol close pada sisi kanan atas maka kita buat coding pada tombol "Keluar" dengan memasukan coding Unlod Me
Private Sub CommandButton1_Click()
Unload Me
End Sub