Diskusi tentang Excel

Membuat UserForm Tidak Bisa Digerakan Alias Drag | Coding VBA Excel


 

Bagaimana cara agar UserForm tidak bisa di drag/drop atau bahasa Indonesianya digerakan ke kanan, ke kiri, ke atas, ke bawah atau kearah manapun sehingga membuat user tidak bisa memindahkan UserForm tersebut. Hal ini bisanya digunakan untuk membuat aplikasi berbasis excel VBA.

Jika Anda yang sudah terbiasanya dengan menggunakan komputer saya yakin pernah mengalami sebuah form yang tidak bisa digeser ke arah manapun, Sebanarnya hal ini bisa Anda hubungkan dengan bagaimana cara membuat atau disable tombol close form (X) pada userform sehingga hanya tombol yang kita buat saja yang bisa digunakan oleh user.

Sepertinya Anda Pelu Melihat :
Cara Menghilangkan Tombol Close (X) pada Form

Langkah pertama kita akan membuat deklarasi umum (general declaration) dan silakan ketikkan coding berikut ini, namun sebelumnya Anda harus menambahkan 1 buah userform terlebih dahulu karena kan yang tidak bisa di dragnya userform masa userform nya kaga ada.

Berikut coding General Declaration
Option Explicit
Private Declare Function GetSystemMenu Lib "user32" (ByVal hWnd As Long, ByVal bRevert As Long) As Long
Private Declare Function RemoveMenu Lib "user32" (ByVal hMenu As Long, ByVal nPosition As Long, ByVal wFlags As Long) As Long
Private Declare Function FindWindowA Lib "user32" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Const DIKUNCI As Long = &H400
Jika sudan membuat general declaration silakan masukan coding berikut pada object userform prosedur Initilize

Private Sub UserForm_Initialize()
'Coding ini digunakan untuk userform supaya tidak bisa di drag
'Anda bisa belajar lebih lanjut di blog www.excel-id.com
'-------------------------------------------------------------
'Coder: Yatna Supriyatna
'-------------------------------------------------------------
Dim YatnaSupriyatna As Long, iCount As Integer
YatnaSupriyatna = FindWindowA(vbNullString, Me.Caption)
If YatnaSupriyatna <> 0 Then
    For iCount = 0 To 1
        RemoveMenu GetSystemMenu(YatnaSupriyatna, False), 0, DIKUNCI
    Next iCount
End If
End Sub
Jika Kita simak dalam VBA editor workbook Anda maka tampilannya seperti gambar dibawah ini


Setelah coding diatas dituliskan dengan benar dan sesuai dengan urutan prosedur yang dijelaskan saya tadi maka silakan jalankan program VBA excel Anda dan silakan gerakan userform ke arah sesuka hati maka saya jamin tidak akan bisa pindah (canot drag)

Simak juga :
Disable Tombol X (Close) pada UserForm


Related

UserForm 7299571776422328619

Post a Comment

Tulisan ini Bermanfaat..? Silakan berkomentar sesuai topik artikelnya, tidak dianjurkan menggunakan kata-kata yang dapat menimbulkan hal negatif. Mohon maaf apabila tidak memiliki etika akan Admin HAPUS tanpa pemberitahuan kembali. Terimakasih... salam Exceler

emo-but-icon

item