VBA-Excel Menghilangkan "X" Di Userform Excel. Bagaimana Cara Menghilangkan Tanda "X" Di Userform Excel ?. Dibawah ini akan kami sampaikan dan jelaskan Kode Macro serta langkah-langkah menghilangkan tanda "X" di userform menggunakan macro. Namun, sebelum kita bahs lebih lanjut, alangkah baiknya jika Anda membagikan artikel ini ke sosial media lainnya guna saling berbagi ilmu pengetahuan seputar microsoft excel.
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 htanda "X" 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 Menghilangkan 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.
Cara 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 htanda "X" 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 Menghilangkan 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.
Cara 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
2 comments for "KODE MACRO MENGHILANGKAN "X" DI USERFORM EXCEL"
silahkan hubungi lewat email : syarefdina@gmail.com