√ Memasukan Gambar Dengan Filepath Pada Userform

Ada beberapa pertanyaan yang masuk melalui email mengenai pengolahan gambar dengan Userform memakai VBA dan pada kesempatan kali ini aku akan mengulas bagaimana cara memasukan gambar memakai toolbox control Image dan letak file pada folder kemudian bagaimana pula menampilkan path dari file gambar tersebut?

Pengolahan gambar dengan memakai VBA memang perlu adanya penguasaan pemrograman dengan VBA, namun jangan khawatir aku akan mengulas sedikit pengetahuan mengenai duduk perkara tersebut. Lalu bagaimana caranya?

Langkah pertama Anda harus menyiapkan satu buah Userform dan bagaimana menciptakan userform, menyisipkan Anda sanggup lihat

[23] Pengenalan Dasar Membuat UserForm VBA Excel

Jika userform sudah dibentuk silakan tambahkan control textbox dan satu buah commandbutton untuk caranya juga sudah aku bahas sebelumnya. dan terakhir silakan tambahkan control Image. 3 buah control semuanya dibentuk pada userform dan untuk lebih jelasnya kira-kira desain menyerupai berikut

1. Merupakan control Image
2. Merupakan CommandButton
3. Merupakan control Textbox

Setelah ketiga control tersebut dibentuk silakan ganti label Commanbutton1 menjadi "Cari Gambar" memakai properties CommandButton

Perhatikan anak panah diatas merupakan langkah perubahan mengganti nama CommandButton1 menjadi "Cari Gambar" dengan mengganti nama caption Anda sudah sanggup mengganti nama control tombol tersebut. Anda juga sanggup mengganti Name properties dari CommadButton1 tersebut namun disini aku tidak merubahnya supaya ada pemahaman.

Langkah kedua silakan double klik CommandButton tersebut kemudian ketikkan script VBA dibawah ini

Private Sub CommandButton1_Click()
    Dim FileGambar As String
   
    FileGambar = Application.GetOpenFilename()
    If FileGambar = "False" Then
        MsgBox "Anda membatalkan pemilihan gambar"
        Exit Sub
    End If

    'Memasukan gambar
    Me.TextBox1.Text = FileGambar
    Me.Image1.Picture = LoadPicture(FileGambar)

End Sub

Oia, jangan lupa Anda ganti PictureSizeMode menjadi PicturesizeModeStreet hal ini bertujuan supaya gambar yang ditampilkan akan diadaptasi dengan ukuran desain Image.

Oke, kini silakan jalankan kegiatan tersebut maka akan tampil menyerupai berikut ini

Apabila Anda menekan tombol Cari Gambar maka jendela pencarian gambar akan muncul dan silakan Anda pilih lokasi penyimpanan gambar yang akan dimasukan tersebut.

Klik tombol Open maka gambar akan masuk kedalam Image yang ada pada userform sesuai ukuran kira-kira menyerupai berikut ini

Jreng, gambar sudah berhasil dimasukan dan path file juga sudah terdapat pada textbox dibawah gambar tersebut ialah pada lokasi C:\Users\HOME\Documents\Suri Cruise\Suri-Cruise-6.jpg

Demikian, tutorial cara memasukan gambar dengan filepath pada Userform semoga bermanfaat dan selamat mencoba.
Sumber http://www.excel-id.com/

√ Menutup Userform Dalam 10 Menit

Ada-ada ajah, kalau Anda dapat load form secara otomatis dengan memakai script VBA. kali ini Anda juga harus dapat close form atau menutup userform secara otomatis dengan VBA pula. Script VBA ini sangat sederhana dan Jika Anda belum tahu bagaimana load form secara otomatis Anda tinggal menambahkan script

Userform1.show

Untuk menutup form dengan batasan waktu tertentu contohnya 10 detik form akan ditutup secara otomatis tanpa peringatan terlebih dahulu.

Buatlah module dan tuliskan script berikut ini

Public dTime As Date
Sub KillUserForm()
    Unload UserForm1
End Sub

Setelah Anda menciptakan module lalu buat juga atau insert salah satu UserForm lalu pilih proseduer Initialize dan tuliskan script dibawah ini

Private Sub UserForm_Initialize()
    dTime = Time + TimeValue("00:00:10")
    Application.OnTime dTime, "KillUserForm"
End Sub

Dari script diatas artinya kalau userform aktif dalam 10 detik maka secara otomatis userform tersebut akan ditutup tanpa peringatan terlebih dahulu.

Untuk kasus menyerupai ini biasanya Anda akan melihat teladan dikala menuntaskan soal ujian secara online biasanya untuk mengerjakan soal tersebut sudah ditentukan waktunya maka kalau Anda belum menuntaskan soal tersebut namun batas waktu sudah habis maka Anda tidak akan dapat mengisi soal yang belum dikerjakan tersebut.

Demikian supaya bermanfaat.


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

√ Prosedure Userform Initialize Untuk Combobox

Bagaimana teknik atau cara Prosedure Userform Initialize untuk Combobox? Mendesain Userform tentu Anda akan menampilkan interface yang lebih userfriendly bagi pengguna. Dalam  hal ini untuk bila Anda memakai object userform dengan prosedure initilize.

Berikut struktur object userform dengan mekanisme initialize

Private Sub UserForm_Initialize()

End Sub

Misalnya kita akan menciptakan comboboc dengan data barang ialah Keyboard, Mouse, LCD. Langkah pertama sesudah Anda menciptakan userform dan menambahkan combobox dengan toolbox kira-kira desain menyerupai berikut ini

Lalu bagaimana cara menambahkan list dari data barang tersebut biar sanggup dipanggil melalui combobox? Langkah pertama sesudah Anda menciptakan userform dengan combobox menyerupai gambar diatas berikutnya kita akan menciptakan prosedure initialize untuk object combobox dan silakan Anda view code kemudian ketikkan coding berikut ini

Private Sub UserForm_Initialize()
With ComboBox1
    .AddItem "Keyboard"
    .AddItem "Mouse"
    .AddItem "LCD"
End With
End Sub

Sebenarnya Anda juga sanggup mengetikkan tanpa with misalnya

Private Sub UserForm_Initialize()
ComboBox1.AddItem "Keyboard"
ComboBox1.AddItem "Mouse"
ComboBox1.AddItem "LCD"
End Sub

Anda sanggup menentukan cara ke satu atau kedua akhirnya sama saja. Lalu bagaimana bila item barangnya berada pada worksheet?

Prosedur yang dipakai tetap ialah pada userform initialize namun disini kita harus mendefinisikan worksheet dan alamat range dari item barang yang akan ditampilkan.

Contoh penulisan item Combobox dari worksheet

Private Sub UserForm_Initialize()
ComboBox1.RowSource = "=Sheet1!B2:B4"
End Sub

Coding diatas merupakan pengambilan item dari alamat sheet1 range B2:B4 dan akan ditampilkan pada combobox1



Ok, Semoga bermanfaat

Lihat Cara Membuat Combobox dengan Validasi


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

√ Userform Full Tanpa Close, Maximize Dan Minimize

Membuat Userform tanpa tepi maksudnya yaitu tanpa tombol close, minimize dan maximize merupakan salah satu alternatif supaya user atau pengguna aplikasi yang telah dibentuk tidak dapat di close namun harus melalui tombol yang telah disediakan. Tampilan Userform full tanpa tepi ini dapat Anda gunakan dengan tujuan tertentu dari para programmer VBA.

Perhatikan gambar berikut ialah teladan userform tanpa tepi alias full

Gambar diatas terperinci terlihat tidak ada tombol close, minimize atau maximize di ujung kanan atas, hal ini dikarenakan aku tambahkan module untuk menghilangkan nya tersebut. Lalu bagaimana cara semoga userform terlihat menyerupai diatas.

Langkah Pertama

Langkah pertama silakan Anda buat satu buah Module dan tuliskan coding berikut ini

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 ExcelId(oForm As Object)
    Dim Hilangkan As Long
    Dim hMenu As Long
    Dim Wndw As Long
    
    Wndw = FindWindow("ThunderDFrame", oForm.Caption)
    Hilangkan = GetWindowLong(Wndw, -16)
    Hilangkan = Hilangkan And Not &HC00000
    SetWindowLong Wndw, -16, Hilangkan
    DrawMenuBar Wndw
End Sub

Jika Module telah dibentuk langkah berikutnya kita akan menciptakan UserForm

Langkah Kedua

Langkah berikutnya kita akan menciptakan userform, aku yakin untuk menciptakan userform secara default sudah aku anggap dapat alasannya ialah pernah aku bahas bagaimana cara menciptakan userform. Bagi Anda yang belum mengethui cara menciptakan userform silakan simak

Pengenalan Dasar Membuat UserForm

Jika sudah tambahkan pula satu buah Commandbutton dan ganti caption pada properties menjadi "Keluar"

Langkah ketiga
Langkah berikutnya sehabis menciptakan userform dan menambahkan Commandbutton kini kita panggil module yang telah dibentuk tadi dengan cara View code kemudian silakan masukan coding berikut pada procedure Initialize object UserForm

Private Sub UserForm_Initialize()
Call ExcelId(UserForm1)
End Sub

Karena Userform tersebut tidak ada tombol close pada sisi kanan atas maka kita buat coding pada tombol "Keluar" dengan memasukan coding Unlod Me

Private Sub CommandButton1_Click()
Unload Me
End Sub

Selesai.
Silakan uji coba dengan cara menjalankan Sub atau menekan tombol F5 maka secara otomatis akan terlihat menyerupai tampilan pada gambar pertama diatas.

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

√ Ini Pola Coding Memilih Ukuran Form Dengan Vba

Ada banyak cara untuk memilih ukuran form dalam Ms. Excel tentunya cara-cara tersebut tergantung si pembuat ada yang memakai DRAG atau menarik node UserForm dan memilih ukuran sesuai harapan tetapi ada juga yang memakai properties dari userform tersebut.

Nah, kali ini saya akan mencoba bagaimana cara menciptakan ukuran UserForm dalam VBA dengan memakai coding. Langkah pertama silakan sisipkan satu buah userform Anda tentu sudah mengetahui bagaimana cara menambahkan userform

Simak :

Cara Membuat UserForm untuk Pemula

Langkah berikutnya silakan klik kanan untuk menampilkan Code / ViewCode kemudian buat mekanisme Initialize dengan object UserForm1. Untuk standar biasanya ukuran userform ialah Heigh: 180 dan Width: 240 kita akan merubah ini dengan coding dan silakan ketikkan coding VBA berikut ini

Private Sub UserForm_Initialize()
With UserForm1
    .Height = 300
    .Width = 100
End With
End Sub

Perhatikan jikalau kita run akibatnya akan ibarat berikut

Namun dikala kita close userform yang sedang berjalan tersebut pada desain tetap ukurannya ialah ukuran standar ibarat gambar berikut ini

Nah, kemudian apa bedanya dengan merubah ukuran userform melalui properties?
Jika melalui coding userform akan berubah ukuran dikala dijalankan saja dan sanggup kita rubah atau manipulasi dengan banyak sekali ukuran yang diinginkan dan sifatnya dinamis tetapi jikalau perubahan ukuran userform melalui properties sifatnya statis.

Materi ini sanggup diaplikasikan contohnya dengan prosedure klik jikalau Anda klik maja userform akan  berubah ukuran. Misalnya kita tambahkan satu buah commandbutton untuk merubah ukuran maka script atau coding diatas ditempatkan pada object commandbutton.         

Langkah berikutnya silakan ganti atau pindahkan coding pada object Userform Initialize ke Commandbutton

Private Sub CommandButton1_Click()
With UserForm1
    .Height = 300
    .Width = 100
End With
End Sub

Silakan jalankan atau run kegiatan tersebut dan lakukan klik pada tombol "Rubah" maka secara otomatis dikala Anda klik tombol tersebut ukuran form akan berubah sesuai dengan ukuran diatas.

Demikian, biar bermanfaat.

Simak juga :

Cara Diasable dan Enable Commandbutton pada Userform

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

√ Referensi Coding Simpan Data Ke Database Dengan Vba

Simpan data ke database memakai VBA memang sebagai salah satu dasar pemrograman untuk menciptakan aplikasi berbasis VBA. Dismping itu Edit dan Hapus data juga sangat penting dan diharapkan ketika menciptakan aplikasi. Nah kali ini aku akan bahas bagaimana cara menciptakan tombol Simpan data ke database memakai VBA.

Database yang dimaksud disini ialah data yang kita entrikan dan disimpan ke worksheet sebagai kawasan penyimpanan data utama dan sewaktu-waktu sanggup dipanggil bila dibutuhkan.

Langkah pertama Anda tentu harus mendesain Form dilengkapi dengan Textbox, label dan Commandbutton. Oke daripada gundah aku contohkan gambar berikut merupakan form input data atau Simpan data dari textbox ke Database

Bisa Anda lihat pada gambar diatas, dan perintah Simpan akan dimasukan kedalam listbox. Lalu apa saja yang perlu disiapkan untuk merancang form simpan tersebut?

Berikut langkah menciptakan Tombol atau Coding Simpan Data ke Database

Ganti Label :
Label1 ganti properties Caption menjadi "ID Wisata"
Label1 ganti properties Caption menjadi "Nama Wisata"
Label1 ganti properties Caption menjadi "Harga"

Ganti Textbox:
Textbox1 ganti Properties Name menjadi "IDWisata"
Textbox2 ganti Properties Name menjadi "NamaWisata"
Textbox3 ganti Properties Name menjadi "HargaWisata"

Ganti CommandButton:
CommandButton1 ganti Properties Name menjadi "TombolSimpanWisata"
CommandButton2 ganti Properties Name menjadi "TombolEditWisata"
CommandButton3 ganti Properties Name menjadi "TombolHapusWisata"
CommandButton4 ganti Properties Name menjadi "WotmbolCetakWisata"

Ganti ListBox:
Listbox1 ganti properties Name menjadi "ListWisata"

Jika sudah selesai setting properties maka kini saatnya masuk ke Worksheet dan Ganti Sheet1 menjadi " DataWisata" lalu buat tabel dengan judul kolom di

B3 ketikan "ID"
C3 ketikkan "Nama Kota"
D3 ketikkan "harga"

Langkah berikutnya kini kita menciptakan NameRange dari alamat range tersebut dengan cara klik sajian Formula dan klik Manager kemudian ketikkan name dengan ListWisata

Untuk Refers To silakan ketikan dibawah ini

=OFFSET(DataWisata!$B$4,0,0,COUNTA(DataWisata!$B:$B),3)

Langkah berikutnya dalah kita akan menciptakan Module KosongkanWisata silakan buat Module dan ketikkan coding berikut ini

Sub KosongkanWisata()
With DataUtama
    .IDWisata.Value = ""
    .NamaWisata.Value = ""
    .HargaWisata.Value = ""
End With
End Sub

Module yang kedua silakan buat ListWisata

Sub ListWisata()
With DataUtama
   .ListDataWisata.RowSource = "ListWisata" ' data diambil dari NameRange
   .ListDataWisata.ColumnWidths = "80,400,60"
End With
End Sub

Cara Membuat Tombol Simpan di Excel

Sebagai langkah terakhir ialah bagaimana cara menciptakan tombol simpan. Langkah pertama bila kita akan menciptakan tombol tersebut ialah kita menciptakan Prosedur Click pada Objek Tombol SimpanWisata maka silakan double klik tombol SimpanWisata tersebut dan ketikkan coding berikut

Private Sub TombolSimpanWisata_Click()

Dim iRow As Long
Dim Ws As Worksheet
Set Ws = Worksheets("DataWisata")
Dim Path As String

iRow = Ws.Cells(Rows.Count, 3) _
        .End(xlUp).Offset(1, 0).Row
    
If WorksheetFunction.CountIf(Ws.Range("B4", Ws.Cells(iRow - 1, 3)), Me.IDWisata.Value) > 0 Then
    MsgBox "ID Wisata sudah ada di database, silakan ganti", vbInformation, "Info"
    Call KosongkanWisata
End If
    
'Cek data yang dientri pada tetxbox1
If Trim(Me.IDWisata.Value) = "" Then
    Me.IDWisata.SetFocus
    MsgBox "ID Wisata Harus Diisi"
    Exit Sub
End If
If Trim(Me.NamaWisata.Value) = "" Then
    Me.NamaWisata.SetFocus
    MsgBox "Silakan masukan nama wisata"
    Exit Sub
End If
If Trim(Me.HargaWisata.Value) = "" Then
    Me.HargaWisata.SetFocus
    MsgBox "Silakan tuliskan harga wisata"
    Exit Sub
End If
    
'copy data ke database
Ws.Cells(iRow, 2).Value = Me.IDWisata.Value
Ws.Cells(iRow, 3).Value = Me.NamaWisata.Value
Ws.Cells(iRow, 4).Value = Me.HargaWisata.Value
    
'Panggil Module
Call KosongkanWisata
IDWisata.SetFocus
Call ListWisata
End Sub

Silakan Anda Run dan masukan data pada textbox tersebut maka bila Anda klik tombol SIMPAN secara otomatis data yang ada pada textbox akan tersimpan kedalam database yaitu di Worksheet "DataWisata" dan Anda juga sanggup melihat database tersebut pada list data wisata dibawahnya

Nah, kira-kira menyerupai itu bagaimana cara menciptakan tombol simpan data ke database dengan VBA, silakan Anda kembangkan dan biar bermanfaat.

Update:
Simak bagaimana cara menciptakan tombol Hapus Data Record dari database
 
Sumber http://www.excel-id.com/

√ Template Login Userform Disertai Coding Untuk Aplikasi Excel

Login dengan UserForm memang diharapkan saat seorang programer menciptakan aplikasi berbasis VBA excel, hal ini bertujuan untuk membatasi pengguna dari hal-hal yang tidak diinginkan. Anda bisa menciptakan sebuah password yang sulit ditebak pada Ms. Excel menyerupai yang pernah aku bahas, kalau berkenan membacanya silakan baca-baca

Lihat :
Bagaimana Membuat Password yang Sulit Ditebak

Jika Anda memahami atau minimal pernah mencoba menciptakan aplikasi sederhana memakai excel tentu hal ini sudah tidak aneh lagi namun apabila yang belum pernah menciptakan bagaimana cara menciptakan Form Login untuk aplikasi maka goresan pena ini wajib Anda baca.

Banyak tutorial di internet kalau Anda searching via google disana sudah banyak membahas mengenai bagaimana cara menciptakan userform login untuk sebuah aplikasi berbasis excel. Lho, kalau sudah banyak nagapain aku buat tutorial dan menyebarkan template untuk menciptakan form login? Begini, secara algoritman mungkin ada kemiripan antara userlogin dengan beberapa pembuat namun terkadang ada juga perbedaannya untuk itu bagi Anda yang mau mencar ilmu aku kira tidak ada salahnya untuk mencoba bagaimana memubat form login dari banyak sekali sumber.

Desain Template Interface Login dengan UserForm

Untuk tampilan Form Login aku membuatnya dengan ukuran Height = 188.25 sedangkan Width = 228.75 Anda bisa merubahnya silakan caranya dengan merubah pada properties value dan cari disana. Langsung saja berikut screen shoot dari Form Login tersebut :

Template Login UserForm

Ok, itulah desain interface untuk form login versi saya, untuk tombol login berwarna hijau dan apabila Anda mengarahkan mouse pad ke arah tombol tersebut maka akan berubah secara otomatis dan tombol tersebut akan diberi tanda ceklist.

Sebenarnya ada banyak cara untuk mengamankan file excel dan bahkan perlindungan VBA excel namun secara sederhana silakan

simak : Bagaimana cara menciptakan password di Ms. Excel

Tollbox Control yang aku gunakan hanya 2 buah ialah Image dan Textbox, artinya Anda harus bisa mengelola object Image pada toolbox contohnya aku akan memberi gambar untuk user menyerupai Icon insan dan untuk gambar password bergambar kunci.
Nah, disitu Anda cari di internet icon gambar atau file yang berektensi PNG, alasannya type file gambar ini akan memudahkan kita untuk menciptakan object tanpa background atau kalau Anda kreatif bersama-sama bisa dibentuk di Photoshop.

Langkah pertama Anda harus menciptakan 2 buah sheet dan  berinama atau ganti untuk Sheet1 dengan "UserPassword" sedangkan Sheet2 ganti dengan "SelamatDatang" Setelah itu kini masuk ke VBA editor untuk menciptakan desain userform

# Merubah Propertie untuk Setiap Object
UserForm, biarkan saja tanpa adanya perubahan Name jadi tetap default "UserForm1"
2 buah textbox, Anda harus merubah Name nya untuk Textbox1 silakan ganti dengan "InputUser" sedangkan untuk Textbox2 silakan ganti dengan "InputPassword"
Untuk tombol Login aku gunakan 2 buah object Image aku satu berjulukan "TombolLog1" dan yang kedua aku ganti Name nya menjadi "TombolLog2".

Dari gambar diatas Anda satukan untuk TombolLog2 ke TombolLog1 sehingga salah satu tombol tidak terlihat.

Cara Coding UserForm Login

Bagaimana cara coding atau menciptakan script UserForm Login tersebut? Ok, kalau desain interface sudah dibentuk langkah berikutnya kita akan menciptakan coding

#Coding Image2
Coding ini akan berfungsi apabila mouse pointer gergerak ke arah TombolLog1 maka TombolLog1 akan muncul sedangkan TombolLog2 tidak ditampilkan

Private Sub Image2_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
TombolLog1.Visible = True
TombolLog2.Visible = False
End Sub

#Coding UserFrm Initialize
Coding ini akan memperlihatkan inisial untuk mekanisme biar TombolLog2 disembunyikan/tidak ditampilkan

Private Sub UserForm_Initialize()
TombolLog2.Visible = False
End Sub

#Coding UserForm MouseMove
Pada coding ini apabila mouse pointer mengarah pada userform maka TombolLog1 akan titampilkan sedangkan TombolLog2 disembunyikan. Ini merupakan kebalikan dari coding Image2 diatas.

Private Sub UserForm_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
TombolLog1.Visible = True
TombolLog2.Visible = False
End Sub

#Coding TombolLog1
Coding ini berfungsi saat Mose Pad mengarah pada TombolLog1 maka TombolLog1 tidak ditampilkan sedangkan TombolLog2 ditampilkan 

Private Sub TombolLog1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
TombolLog1.Visible = False
TombolLog2.Visible = True
End Sub

#Coding TombolLog2
Coding dari TombolLog2 ini berfungsi saat TombolLog2 diklik maka akan membaca coding dibawahnya. Jika InputUser tidak diisi maka akan muncul pesan "Silakan masukan nama pengguna" Jika textbox InputPassword tidak diisi maka akan muncul pesan "Silakan Masukan password" dan focus akan kembali ke textbox masing-masing. Jika nama pengguna dan password salah maka muncul juga pesan peringatan namun apabila benar maka akan muncul isu "Selamat Anda berhasil Masuk" dan worksheet "SelamatDatang" akan diaktifkan

Private Sub TombolLog2_Click()
Set sh = Sheets("UserPassword")
If InputUser.Value = "" Then
    MsgBox "Silahkan Masukkan Nama Pengguna", _
    vbExclamation + vbOKOnly, "Informasi"
    InputUser.SetFocus
    Exit Sub
ElseIf InputPassword.Value = "" Then
    MsgBox "Silahkan Masukkan Password", _
    vbExclamation + vbOKOnly, "Informasi"
    InputPassword.SetFocus
    Exit Sub
ElseIf InputUser.Value <> sh.Range("A2").Value Then
    MsgBox "Nama Pengguna Salah", _
    vbCritical + vbOKOnly, "Pesan Error"
    InputUser.Value = ""
    InputUser.SetFocus
    Exit Sub
ElseIf InputPassword.Value <> sh.Range("B2").Value Then
    MsgBox "Password Salah, Silahkan ulangi lagi", _
    vbCritical + vbOKOnly, "Pesan Error"
    InputPassword.Value = ""
    InputPassword.SetFocus
    Exit Sub
End If
MsgBox "Selamat Anda berhasil Masuk", _
    vbInformation + vbOKOnly, "Login Berhasil"
Sheets("SelamatDatang").Activate
Unload Me
End Sub

#Coding Ketika Tombol di Close
Pada coding ini kita akan membatasi pada Queri tombol Close UserForm biar saat close tombol yang berwarna merah di ujung kanan atas UserForm maka muncul peringatan bahwa aplikasi akan ditutup dan nantinya pribadi disimpan otomatis.

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
If CloseMode = vbFormControlMenu Then
   Cancel = True
   MsgBox "Aplikasi akan ditutup", _
   vbExclamation + vbOKOnly, "Peringatan"
   With ThisWorkbook
        .Application.ThisWorkbook.Save
        .Application.Quit
   End With
End If
End Sub

Coding selesai, hingga disini kita sudah bisa menciptakan Login UserForm untuk aplikasi excel. Bagaimana cara menjalankannya? Klik tombol RUN yang berwarna hijau menyerupai bidang segitiga. Untuk mengaplikasikannya Anda bisa memanggil userform login ini ke prosedure saat workbook / file excel dibuka dengan coding sebagai berikut :

Private Sub Workbook_Open()
UserForm1.Show
End Sub

Ingat coding diatas diketiikan pada Thisworkbook. Lihat gambar berikut sebagai ilustrasinya

Wah, sudah panjang goresan pena ini dan aku kira sudah cukup lengkap untuk pemahaman menciptakan login dengan userform dalam pembuatan aplikasi berbasis excel ini. Semoga gampang dipahami, oia, untuk file d0wnl0ad template Login UserForm silakan klik dibawah ini

Download Template Login UserForm

Semoga bermanfaat dan selamat mencoba.
Sumber http://www.excel-id.com/