Sebelum mencoba tutorial ini, anda harus menguasai Cara Membuat Login Pada VBA Excel terlebih dahulu, karena script dan aplikasinya saling berkorelasi dan merupakan bentuk lanjutan dari tutorial sebelumnya. Pada tutorial ini anda akan mengetahui cara membuat menu log out dengan menggunakan VBA Excel.
Langsung saja ikuti langkah-langkah dibawah:
- Buka Microsof Excel
- Open file hasil tutorial sebelumnya, atau anda dapat mengunduhnya disini.
- Langsung saja buka Alt + F11 untuk menampilkan code editor VBA, atau klik perintah View Code di Menu Developer.
- Buat sebuah Module baru dan isi dengan kode berikut:
Sub logOut()
x = MsgBox("Anda yakin akan keluar?", vbYesNo, "Konfimasi")
If x = vbYes Then
Sheets(1).Range("A1048576").Select
frmLogin.Show
End If
End Sub - Kemudian tambahkan kode dibawah pada frmLogin. Caranya klik kanan pada frmLogin - View Code, paste kode berikut tepat dibawah kode yang sudah tersedia:
'
'
' Membuat tombol Log Out
ActiveSheet.Shapes.AddShape(msoShapeRectangle, 3, 3, 83.25, 41.25).Select
Selection.ShapeRange(1).TextFrame2.TextRange.Characters.Text = "Keluar"
With Selection.ShapeRange(1).TextFrame2.TextRange.Characters(1, 6). _
ParagraphFormat
.Alignment = msoAlignCenter
End With
With Selection.ShapeRange(1).TextFrame2.TextRange.Characters(1, 6).Font
.Fill.Visible = msoTrue
.Fill.ForeColor.ObjectThemeColor = msoThemeColorLight1
.Fill.Solid
End With
Selection.OnAction = "logOut" - Selesai! Sekarang anda dapat mengetest-nya dengan cara mengclose-nya kemudian membukanya kembali dan lihat hasilnya.
Penjelasan kode VBA diatas:
Sub logOut()
x = MsgBox("Anda yakin akan keluar?", vbYesNo, "Konfimasi")
If x = vbYes Then
Sheets(1).Range("A1048576").Select
frmLogin.Show
End If
End SubKode diatas merupakan prosedur yang memiliki kegunaan sebagai berikut:
- MsgBox: memberikan konfirmasi jika hendak logout
- Jika tombol Yes dipilih, maka sel akan aktif ke range terbawah dan menampilkan Form Login kembali
' Membuat tombol Log Out
ActiveSheet.Shapes.AddShape(msoShapeRectangle, 3, 3, 83.25, 41.25).Select
Selection.ShapeRange(1).TextFrame2.TextRange.Characters.Text = "Keluar"
With Selection.ShapeRange(1).TextFrame2.TextRange.Characters(1, 6). _
ParagraphFormat
.Alignment = msoAlignCenter
End With
With Selection.ShapeRange(1).TextFrame2.TextRange.Characters(1, 6).Font
.Fill.Visible = msoTrue
.Fill.ForeColor.ObjectThemeColor = msoThemeColorLight1
.Fill.Solid
End With
Selection.OnAction = "logOut"Kode diatas akan berjalan apabila tombol Masuk pada Form Login ditekan, adan akan meng-generate tombol logout untuk keluar dari aplikasi tersebut. Inti dari kode diatas adalah:
- Membuat shape yang berguna untuk memanggil prosedur logOut seperti yang sudah kita buat diatas. Dengan tombol tersebut, anda dapat keluar dari aplikasi dan melepas hak akses terhadap workbook tersebut.
Jika anda masih kebingungan, anda dapat mengunduh video tutorial cara membuat log out menggunakan VBA Excel dibawah. Ukuran video hanya sebesar 1, MB, tapi setelah diekstrak menjadi 40 MB.
No comments:
Post a Comment