alvian-cs blog

Cara Mudah Membuat Log Out Pada VBA Excel

Cara Mudah Membuat Log Out Pada VBA Excel

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.




8 Comments

8 comments:

  1. Replies
    1. Terimakasih kunjungannya. Salam juga dari saya om.

      Delete
  2. Oh iya, VBA sendiri itu singkatan dari apa ya mas bos? Jabruzz

    ReplyDelete
    Replies
    1. Singkatan dari Visual Basic for Applications

      Delete
  3. Sangat Membantu buat pemula... thanks gan

    ReplyDelete
  4. Gan, mau nanya. kalau mau buat fungsi session gimana kira2 di VBA Excel ? misalnya untuk dalam jangka waktu tertentu kalau kita nggak aktif di excel nya, aplikasi excel nya ngelock sendiri. seperti aplikasi-aplikasi webssite gitu.

    Trims for answer

    http://www.kobbom.com

    ReplyDelete
  5. Gan saya lagi nyari tugas tentang contoh rumus VBA excel macro ... mungkn bisa bantu saya gan mksh

    ReplyDelete
  6. Setiap kali masuk lagi kok selalu muncul "Shape Keluar" baru yah? Akibatnya harus ngapus-ngapus lagi..

    ReplyDelete

Cara Mudah Membuat Log Out Pada VBA Excel Cara Mudah Membuat Log Out Pada VBA Excel