Yth. Para Master
Assalamualaikum Wr. Wb.
Saya memiliki masalah pada aplikasi vba yang saya buat ?bila saya membuka file
vba yang lain terlebih dahulu dan buka file vba baru seperti aplikasi yang saya
buat dan ingin keluar dari aplikasi tersebut terjadi error?seperti gambar
terlampirBagaimana caranya agar aplikasi saya berjalan lancar dan bila ingin
keluar tidak kembali pada posisi awal saat aplikasi mulai dibuka bila
menggunakan aplikasi vba yang lain, namun bila aplikasi dijalankan sendiri
tanpa membuka aplikasi yang lain bila keluar dari aplikasi berjalan normal
tanpa ada masalah pada aplikasi tersebut. code vba yang saya gunakan seperti :
Private Sub createdby_Click()photoku.Visible = Truekesulitan.Visible =
Trueloginlogo.Visible = FalseEnd Sub
Private Sub UserForm_Activate()
Dim ws As Worksheet ThisWorkbook.Application.Calculate
Set ws = Sheets("Password")
ws.Activate ws.Range("A1:N50").Font.ColorIndex = 2 Range("B4").Select
LogNam.SetFocus FrmDaf.Visible = False photoku.Visible = False
kesulitan.Visible = False loginlogo.Visible = True End SubPrivate Sub
Masuk_Click()Dim ws As WorksheetDim ws1 As WorksheetDim ws2 As Worksheet
ThisWorkbook.Application.Calculate
Set ws = Sheets("Password")Set ws1 = Sheets("Admin")Set ws2 = Sheets("User")
ws.Range("E4").Activate
ActiveCell.Value = LogNam.ValueActiveCell.Offset(0, 1) = LogPwd.Value
LogNam.Value = ""LogPwd.Value = ""LogNam.SetFocus If Range("I4").Value = True
Then MsgBox "Nama Anda " & Range("E4") & " dan anda adalah " &
Range("J4").Value Me.Hide Else MsgBox "Nama dan password
salah... Kalau belum termasuk Anggota silahkan Daftar" ws.SelectEnd If
If Range("J4").Value = "Admin" Then ws1.Activate
ElseIf Range("J4").Value = "User" Then ws2.Activate Else
ws.Select End IfLogNam.SetFocusEnd SubPrivate Sub
Daftar_Click()FrmDaf.Visible = True With Status .AddItem "User"
.AddItem "Admin" End WithEnd SubPrivate Sub Tambah_Click()Dim Msg, Style,
Title, Help, Ctxt, Response, MyString
Dim ws As WorksheetThisWorkbook.Application.Calculate
Set ws = Sheets("Password")If DafNam.Value = "" Or DafPwd.Value = "" Or
Status.Value = "" ThenMsgBox "Data harus diisi semua" DafNam.Value = ""
DafPwd.Value = "" Status.Value = ""
DafNam.SetFocusElsews.Range("B4").SelectDo If IsEmpty(ActiveCell) = False
Then ActiveCell.Offset(1, 0).Select End IfLoop Until
IsEmpty(ActiveCell) = True
ActiveCell.Value = DafNam.Value ActiveCell.Offset(0, 1) = DafPwd.Value
ActiveCell.Offset(0, 2) = Status.Value
If Range("N4").Value > 1 ThenMsgBox "Data sudah ada coba cari yang lain"
Range("B4").End(xlDown).SelectRange(Selection,
Selection.End(xlToRight)).ClearContents DafNam.Value = ""
DafPwd.Value = "" Status.Value = "" DafNam.SetFocus
ElseMsg = "Nama Anda : " & DafNam.Value & " ,Password : " & DafPwd.Value & " ,
Coba Login"Style = vbOKCancel + vbDefaultButton1Title = "Konfirmasi"
Response = MsgBox(Msg, Style, Title)If Response = vbOK Then
ws.Range("B4").Select FrmDaf.Visible = False LogNam.SetFocusElse
Range("B4").End(xlDown).Select Range(Selection,
Selection.End(xlToRight)).ClearContents DafNam.Value = ""
DafPwd.Value = "" Status.Value = "" DafNam.SetFocus
End IfEnd IfEnd If
ws.Range("B4").Select
End Sub
Private Sub FrmDaf_Layout() DafNam.Value = "" DafPwd.Value = ""
Status.Value = "" DafNam.SetFocusEnd SubPrivate Sub
keluar_Click()Application.QuitThisWorkbook.Close FalseEnd SubPrivate Sub
LogNam_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As
Single, ByVal Y As Single)LJUDUL.Caption = "MASUKKAN NAMA"End SubPrivate Sub
LogPwd_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As
Single, ByVal Y As Single)LJUDUL.Caption = "MASUKKAN PASSWORD"End SubPrivate
Sub DafNam_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X
As Single, ByVal Y As Single)LJUDUL.Caption = "MASUKKAN NAMA BARU"End
SubPrivate Sub DafPwd_MouseMove(ByVal Button As Integer, ByVal Shift As
Integer, ByVal X As Single, ByVal Y As Single)LJUDUL.Caption = "MASUKKAN
PASSWORD BARU"End SubPrivate Sub Status_MouseMove(ByVal Button As Integer,
ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)LJUDUL.Caption =
"MASUKKAN STATUS"End SubPrivate Sub keluar_MouseMove(ByVal Button As Integer,
ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)keluar.BackColor =
vbBlackLJUDUL.Caption = "KELUAR DARI APLIKASI"End SubPrivate Sub
Masuk_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As
Single, ByVal Y As Single)Masuk.BackColor = vbRedLJUDUL.Caption = "MASUK KE
APLIKASI"End SubPrivate Sub Tambah_MouseMove(ByVal Button As Integer, ByVal
Shift As Integer, ByVal X As Single, ByVal Y As Single)Tambah.BackColor =
vbGreenLJUDUL.Caption = "TAMBAH NAMA"End SubPrivate Sub Daftar_MouseMove(ByVal
Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As
Single)Daftar.BackColor = vbGreenLJUDUL.Caption = "DAFTAR NAMA"End Sub'JAM
digitalPrivate Sub UserForm_Initialize()jam = Format(Now, "dd mmmm yyyy
hh:mm:ss")m_lasttime = Now + TimeValue("00:00:01")Application.OnTime
m_lasttime, "GetTime"End SubPublic Property Get LastTime() As DateLastTime =
m_lasttimeEnd PropertyPublic Property Let LastTime(ByVal Value As
Date)m_lasttime = ValueEnd PropertyPrivate Sub UserForm_QueryClose(Cancel As
Integer, CloseMode As Integer)If CloseMode = vbFormControlMenu ThenCancel =
TrueMsgBox "PAKAI TOMBOL EXIT"End IfEnd Sub
Terimakasih
Wassalamualaikum Wr. Wb.
SalamHairul Alam
