如何打开excel时，自动隐藏workbook，并跳出用户，密码框

yjing1982

我买了一本excel经典代码大全，按照2.4隐藏excel主窗口，写了代码和窗体。不过无法实现一打开该workbook时，自动提示用户密码并隐藏excel,请问是什么问题？

liulang0808

工作簿open事件，显示窗体，

网海遨游

假如窗体是UserForm1  以下仅供参考

1.在工作薄事件中写
Private Sub Workbook_Open()
   UserForm1.Show'打开工作薄时启动窗体
End Sub

2.以下是窗体代码
Private Sub UserForm_Initialize()'窗体初始化
  application.visible=false'隐藏Excel,保留窗体
End Sub

Private Sub CommandButton1_Click() '登录按钮
  'if 满足条件 then'登录条件是你自己要写的
   msgbox "登录成功"
   Application.Visible = True '显示Excel
   Unload UserForm1 '从内存中卸载窗体
   'endif
End Sub

yjing1982

以下是我写的程序，和《经典代码应用大全》一样，不过我打开后不能实现打开工作簿后，自动跳出登入界面以及隐藏工作簿。
‘ThisWorkbook 工作簿事件代码
Private Sub workbookopen()
    Application.Visible = False
    frm_login.Show
End Sub

'frm_login 窗体代码
Private Sub btnCancel_Click()
    Unload Me
    ThisWorkbook.Close False
End Sub

Private Sub btnOK_Click()
    If txtUser = "excelhome" And txtPassword = "excelhome" Then
        Unload Me
        Application.Visible = True
    Else
        MsgBox "Password is wrong!", vbCritical, "Alarm"
    End If
End Sub

Private Sub UserForm_queryclose(cancel As Integer, closemode As Integer)
    If closemode <> 1 Then
        cancel = True
    End If
End Sub

yjing1982

网海遨游 发表于 2020-1-31 20:33
假如窗体是UserForm1  以下仅供参考

1.在工作薄事件中写

Workbook_open是event?
Workbookopen不是VBA的内建event，是这个意思吗？

excel海

yjing1982 发表于 2020-1-31 22:03
以下是我写的程序，和《经典代码应用大全》一样，不过我打开后不能实现打开工作簿后，自动跳出登入界面以及 ...

看代码应该没问题吧

网海遨游

你工作薄事件，代码错。打开工作薄时，当然不能启动窗体。
以下代码一定要放在ThisWorkBook中。
Private Sub Workbook_Open()
   frm_login.Show'打开工作薄时启动窗体
End Sub