Cara Mudah Membuat Log Out Pada VBA Excel

  September 22, 2015      Edit
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:
  1. Buka Microsof Excel
  2. Open file hasil tutorial sebelumnya, atau anda dapat mengunduhnya disini.
  3. Langsung saja buka Alt + F11 untuk menampilkan code editor VBA, atau klik perintah View Code di Menu Developer.
  4. 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
  5. 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"
  6. 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 Sub
Kode 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
Sekarang perhatikan kode berikut:
' 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.