Saturday, January 2, 2016

Sembunyikan UserForm Caption/Application Title VBA Excel

Perhatikan gambar gif dibawah..!! 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. Form yang menghilangkan Caption dari Userform salah satu cara menjaga agar pengguna aplikasi vba excel agar ditidak dapat masuk ke Database.



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.
Demikian posting cara Sembunyikan UserForm Caption/Application Title VBA Excel. Semoga menjadi referensi bagi yang mencari informasi Vba excel. Mohon dapat mengklik tombol share media sosial yang tersedia agar informasi ini dapat tersampaikan pada yang lain. Segala saran dan kritikan dapat disampaikan pada kolom komentar.

Komentar Anda Sangat Menentukan Kelangsungan Blog ini
EmoticonEmoticon