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