Kode Macro Menghilangkan Tanda "X" Di Userform Excel. Untuk menghilangkan atau menyembunyikan tanda "X" di userform excel, Anda harus menggunakan macro excel. Karena userform tersebut terletgak di jendela visual Basic for Application (VBA). Berikut langkah-langkah nya :
Oke, kita telah mengetahui bahwa ketika kita membuat userform excel pasti ada tanda "X". Nah, fungsi dari "X" sendiri tidak lain untuk menyembunyikan userform tersebut. tetapi terkadang kita merasa userform yang kita buat kurang elegan atau kita ingin membuat userform yang tidak ada "X" nya. Nah, sekarang apa tujuan Anda menghilangkan tanda "X" di userform tersebut ? apakah Anda menginginkan supaya pengguna menyembunyikan userform lewat tombol commandbutton buatan Anda atau ada alasan yang lain ? itu semua Anda yang mengerti.
Dibawah ini adalah Cara Menyembunyikan Tanda "X" Di Userform Excel Dengan Kode Macro. Kami harap Anda meluangkan waktu beberapa menit untuk membaca artikel kami ini dengan cermat, karena ini akan sangat singkat dan detail.
Menghilangkan Tanda "X" Di Userform Excel
1. Buka microsoft excel Anda
2. Tekan Alt+F11 masuk di jendela Visual Basic for Application (VBA) wadah macro
3. Buatlah satu buah userform dan satu commandbutton
4. klik dua kali commandbutton dan ketik kode macro ini "Unload Me"
5. Salin kode macro dibawah ini dan tempelkan dalam userform
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
Const WS_SYSMENU = &H80000
Const GWL_STYLE = (-16)
Private Sub UserForm_Activate()
Dim hwnd, lStyle As Long
hwnd = FindWindow("ThunderDFrame", Me.Caption)
lStyle = GetWindowLong(hwnd, GWL_STYLE)
SetWindowLong hwnd, GWL_STYLE, lStyle And Not WS_SYSMENU
End Sub
6. Setelah selesai silahkan coba dengan cara tekan F5
7. Jika sudah berhasil maka langkah terakhir silahkan simpan dengan type "Excel macro - Enabled Workbook" extensinya .xlsm atau dengan kata lain "excel macro".
Jika Anda melakukan langkah-langkah diatas dengan tepat maka, tampilan userform akan seperti gambar diatas tadi. dan apabila masih error atau ada pesan "Thebug" maka kami akan membantu Anda dengan memberikan contoh file yang dapat Anda pelajari secara pelan-pelan. Karena memberikan kepuasan terhadap pengunjung termasuk prioritas kami.
Demikian artikel dari kami, semoga apa yang kami berikan ini dapatlah bermanfaat bagi Anda semua. Sekali lagi, jika artikel ini menurut Anda layak untuk dibagikan, maka silahkan bagikan ke sosial media lainnya, biarlah ilmu ini tidak berhenti di Anda saja. terimakasih salam.
Oke, kita telah mengetahui bahwa ketika kita membuat userform excel pasti ada tanda "X". Nah, fungsi dari "X" sendiri tidak lain untuk menyembunyikan userform tersebut. tetapi terkadang kita merasa userform yang kita buat kurang elegan atau kita ingin membuat userform yang tidak ada "X" nya. Nah, sekarang apa tujuan Anda menghilangkan tanda "X" di userform tersebut ? apakah Anda menginginkan supaya pengguna menyembunyikan userform lewat tombol commandbutton buatan Anda atau ada alasan yang lain ? itu semua Anda yang mengerti.
Dibawah ini adalah Cara Menyembunyikan Tanda "X" Di Userform Excel Dengan Kode Macro. Kami harap Anda meluangkan waktu beberapa menit untuk membaca artikel kami ini dengan cermat, karena ini akan sangat singkat dan detail.
Menghilangkan Tanda "X" Di Userform Excel
1. Buka microsoft excel Anda
2. Tekan Alt+F11 masuk di jendela Visual Basic for Application (VBA) wadah macro
3. Buatlah satu buah userform dan satu commandbutton
4. klik dua kali commandbutton dan ketik kode macro ini "Unload Me"
5. Salin kode macro dibawah ini dan tempelkan dalam userform
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
Const WS_SYSMENU = &H80000
Const GWL_STYLE = (-16)
Private Sub UserForm_Activate()
Dim hwnd, lStyle As Long
hwnd = FindWindow("ThunderDFrame", Me.Caption)
lStyle = GetWindowLong(hwnd, GWL_STYLE)
SetWindowLong hwnd, GWL_STYLE, lStyle And Not WS_SYSMENU
End Sub
7. Jika sudah berhasil maka langkah terakhir silahkan simpan dengan type "Excel macro - Enabled Workbook" extensinya .xlsm atau dengan kata lain "excel macro".
Jika Anda melakukan langkah-langkah diatas dengan tepat maka, tampilan userform akan seperti gambar diatas tadi. dan apabila masih error atau ada pesan "Thebug" maka kami akan membantu Anda dengan memberikan contoh file yang dapat Anda pelajari secara pelan-pelan. Karena memberikan kepuasan terhadap pengunjung termasuk prioritas kami.
Demikian artikel dari kami, semoga apa yang kami berikan ini dapatlah bermanfaat bagi Anda semua. Sekali lagi, jika artikel ini menurut Anda layak untuk dibagikan, maka silahkan bagikan ke sosial media lainnya, biarlah ilmu ini tidak berhenti di Anda saja. terimakasih salam.
"Kami Selalu Berusaha Memberikan Yang Terbaik dan Original Untuk Anda"
Jabat Erat@Hak Cipta 2015
Post a Comment for "MENGHILANGKAN TANDA "X" DI USERFORM EXCEL - MACRO"