使Excel始终保持最小化

Question

我有一个包含一些宏和用户窗体的Excel文件。

我不希望用户在没有密码的情况下访问文件本身。他们应该只能看到用户表单并通过用户表单输入数据。

这是我目前的代码。

Private Sub Workbook_Open()

Dim ws As Worksheet
     For Each ws In Worksheets
          ws.Protect "Password", UserInterfaceOnly:=True 'True allows code to change data.
     Next ws

Application.WindowState = xlMinimized
UserForm4.Show vbModeless

End Sub

每当我们需要使用其他程序或应用程序时，它都会使Excel最小化，但是当再次尝试使用Excel时，窗口将最大化。

是否可以始终使Excel最小化？

Answer 1

代替最小化，您可以隐藏应用程序。

Application.Visible = False
UserForm4.Show vbModeless

通过这种方式，您只会看到用户表单，但是必须确保在离开用户表单时重置此设置。