限制用户与工作簿的交互-隐藏工作簿/仅显示用户表单

Question

是否可以使用ThisWorkbook.Application.Visible = False获得相同的效果，但仅适用于一个工作簿?我的意思是，我想限制用户交互仅UserForm，但我需要有一个访问其他工作簿。目前这个功能会导致隐藏工作簿，但在打开另一个excel文件后-用户表单中的所有对象都不可用。

Private Sub Workbook_Open()
ThisWorkbook.Application.Visible = False
Starter.Show modeless
End Sub

感谢您的支持。

Answer 1

请创建一个表单，让我们说" start "，有(至少)一个按钮(" btext ")，复制下一个代码在其代码模块，并显示它。如果所讨论的表单在Initialize和Terminate事件中已经有一些代码，请也添加下一个代码行:

Option Explicit
Private Sub btExit_Click()
Unload Me
End Sub
Private Sub UserForm_Initialize()
ThisWorkbook.Windows(1).Visible = False
End Sub
Private Sub UserForm_Terminate()
ThisWorkbook.Windows(1).Visible = True
End Sub

因此，您可以简单地使用工作簿Open事件:

Private Sub Workbook_Open()
Starter.Show vbModeless
End Sub