防止影响其他工作簿的一个工作簿中的代码

Question

我有一个名为＆＃34; test＆＃34;我编写了一个代码来隐藏工作簿并显示用户表单。我面临的问题是，当我打开一个或多个工作簿时，我打开＆＃34; test＆＃34;工作簿，所有其他工作簿变得隐藏。这是我在module1中使用的代码：

 Sub auto_open()
Application.Visible = False
Windows("test").Visible = False

UserForm2.Show vbModeless
End Sub

Answer 1

你的问题在这里：

Windows("test").Visible = False

这将隐藏所有excel窗口。不仅仅是一本工作簿。

我认为你告诉我们你真正需要的是：

ActiveWindow.WindowState = xlMinimized

或

Windows("Book1.xlsm").Visible = False

不同之处在于我使整个 SPECIFIC 工作簿（全名）消失。不仅是一张纸。

如果您想要特定的工作表，可以使用：

Workbooks("Book1.xlsm").Worksheets(1).Visible = False