Sembunyikan UserForm Caption/Application Title VBA Excel

Perhatikan gambar gif diatas..!! lihat perbedaan pada Judul Aplikasinya, yang pertama ada dan bisa digeser-geserkan jika kita mau pindahkan letak UserForm. Sedangkan yang kedua tidak ada, dan UserForm Aplikasinya tidak dapat dipindahkan. 

Langkah-langkah Sembunyikan Judul Aplikasi/UserForm Caption

• Download Sample Filenya Header Titleh Aplikasi 
• Buka Visual Basic selanjutnya tambahkan modul dan letakkan kode berikut di dalam modul

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 RemoveCaption(objForm As Object)
    Dim lStyle          As Long
    Dim hMenu           As Long
    Dim mhWndForm       As Long
     
    If Val(Application.Version) < 9 Then
        mhWndForm = FindWindow("ThunderXFrame", objForm.caption) 'XL97
    Else
        mhWndForm = FindWindow("ThunderDFrame", objForm.caption) 'XL2000+
    End If
    lStyle = GetWindowLong(mhWndForm, -16)
    lStyle = lStyle And Not &HC00000
    SetWindowLong mhWndForm, -16, lStyle
    DrawMenuBar mhWndForm
End Sub

• Selanjutnya tempatkan kode berikut pada UserForm_Initialize

Call RemoveCaption(UserForm)

• Selesai...!! Bila anda menempatkan kode dengan tepat maka tampilan UserForm VBA Excel akan seperti gambar gif yang diatas.