实操过程遇到的问题，讨论

行走的

做了一个数据录入窗体，打开excel表时自动弹出分析登记的窗体，只运行通过窗体录入数据，所以把表格隐藏了，代码如下：


Private Sub Workbook_Open()

frm分析登记.Show 0

Windows("XXXXX.xlsm").Visible = False '将当前workbook 设置为不可见

End Sub


当在窗体中录完数据后，关闭窗体，写了如下代码：


Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)

Dim 密码 As String

   密码 = Application.InputBox(prompt:="请输入密码：   ")  

If 密码 = "11111111" Then
   Me.Hide
   Windows("XXXXX.xlsm").Visible = True
ThisWorkbook.Activate  '这里分了权限，输对了密码就能看到表格继续编辑，密码不对就直接关闭本工作簿，只允许通过窗体录入。
Else

  ThisWorkbook.Save

  ThisWorkbook.Close

End If


问题在于：没有密码权限的就直接关闭本工作簿。然后再次打开工作簿，窗体不在弹出，work_open里面的代码就是不弹出窗体来，工作簿可以隐藏

原因在哪里呢，我的是wps。欢迎指点。。

调试时手动运行 open代码，有时候会弹出 429代码，Axctave不能后创建对象，点击报警弹窗确定之后，再次运行open代码，又可以弹出录入窗体来，就是不能自动运行open代码，查了好久还是没搞定，求大神指导下，

3190496160

调试代码更是应该要上传你的附件的呀