√ Menciptakan Userform Tidak Dapat Digerakan Alias Drag | Coding Vba Excel

 

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

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

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

Langkah pertama kita akan menciptakan deklarasi umum (general declaration) dan silakan ketikkan coding berikut ini, namun sebelumnya Anda harus menambahkan 1 buah userform terlebih dahulu alasannya ialah kan yang tidak dapat 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 menciptakan general declaration silakan masukan coding berikut pada object userform mekanisme Initilize

Private Sub UserForm_Initialize()
'Coding ini dipakai untuk userform supaya tidak dapat di drag
'Anda dapat berguru 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 ibarat gambar dibawah ini

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

Simak juga :
Disable Tombol X (Close) pada UserForm

Sumber http://www.excel-id.com/