Berikut adalah cara membuat LogOut :
1. Buka Microsof Excel
2. Tekan Alt + F11 untuk menampilkan code editor VBA, atau klik perintah View Code di Menu Developer.
3. Buat sebuah Module, isi kode :
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
4. Kemudian tambahkan kode pada frmLogin. Klik kanan pada frmLogin - View Cod
'
'
' 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"
Hasil :
