Remove Title Bar Userform VBA Excel

 Aplikasi Excelku. Selamat datang di blog Aplikasi Excelku, terimakasih kepada Sobat Excel semua yang sudah setia mengunjungi blog sederhana Saya ini. Pada kesempatan ini kembali Saya akan berbagi tutorial mengenai VBA Excel, dan sesuai dengan judul artikel ini yaitu Remove Title Bar Userform VBA Excel. 

Pastinya Sobat Excel sudah tahu bahwa di dalam Userform terdapat yang namanya title bar, yang mana title bar tersebut merupakan tempat/lokasi judul dari Userform tersebut dan juga tombol close (keluar/menutup) Userform tersebut. Namun, kita bisa menghilangkan title bar tersebut jika kita inginkan, pastinya dengan menggunakan script/kode Macro. Dan berikut ini script/kode Macro tersebut beserta langkah-langkahnya:

Remove Title Bar Userform VBA Excel

Cara Menghilangkan Title Bar Userform VBA Excel:

1. Sisipkan sebuah module di halaman Visual Basic Excel kita. Caranya klik pada menu Insert kemudian klik module;
2. Silahkan Copas (Copy Paste) Script/kode di bawah ini dan masukkan ke dalam module tadi:

Option Explicit

'https://aplikasiexcelku.blogspot.com

#If VBA7 Then

    Public Declare PtrSafe Function FindWindow Lib "user32" _

                Alias "FindWindowA" _

               (ByVal lpClassName As String, _

                ByVal lpWindowName As String) As Long

    Public Declare PtrSafe Function GetWindowLong Lib "user32" _

                Alias "GetWindowLongA" _

               (ByVal hWnd As Long, _

                ByVal nIndex As Long) As Long

    Public Declare PtrSafe Function SetWindowLong Lib "user32" _

                Alias "SetWindowLongA" _

               (ByVal hWnd As Long, _

                ByVal nIndex As Long, _

                ByVal dwNewLong As Long) As Long

    Public Declare PtrSafe Function DrawMenuBar Lib "user32" _

               (ByVal hWnd As Long) As Long

#Else

    Public Declare Function FindWindow Lib "user32" _

                Alias "FindWindowA" _

               (ByVal lpClassName As String, _

                ByVal lpWindowName As String) As Long

    Public Declare Function GetWindowLong Lib "user32" _

                Alias "GetWindowLongA" _

               (ByVal hWnd As Long, _

                ByVal nIndex As Long) As Long

    Public Declare Function SetWindowLong Lib "user32" _

                Alias "SetWindowLongA" _

               (ByVal hWnd As Long, _

                ByVal nIndex As Long, _

                ByVal dwNewLong As Long) As Long

    Public Declare Function DrawMenuBar Lib "user32" _

               (ByVal hWnd As Long) As Long

#End If

Sub HideBar(frm As Object)

Dim Style As Long, Menu As Long, hWndForm As Long

hWndForm = FindWindow("ThunderDFrame", frm.Caption)

Style = GetWindowLong(hWndForm, &HFFF0)

Style = Style And Not &HC00000

SetWindowLong hWndForm, &HFFF0, Style

DrawMenuBar hWndForm

End Sub

3. Copas (Copy Paste) Script/kode di bawah ini dan masukkan ke dalam Userform yang ingin kita hilangkan title barnya:

Private Sub UserForm_Initialize()

'https://aplikasiexcelku.blogspot.com
HideBar Me
End Sub

Jika sudah, silahkan jalankan Userform kita. Jika semua langkah di atas Sobat Excel lakukan dengan benar, maka title bar yang ada di Userform tersebut akan hilang.

Mungkin hanya itu saja yang bisa Saya sampaikan pada kesempatan ini mengenai Remove Title Bar Userform VBA Excel, mudah-mudahan apa yang sudah Saya sampaikan pada kesempatan kali ini bisa bermanfaat untuk kita semuanya. Sekian, terimakasih, dan Salam Belajar.

#RemoveTitleBarUserform

#RemoveTitleBarUserformVBA

Share :