1、 打开VBA编辑前,新建一个模块命名:模块1,输入以下代码实现隐藏工作簿窗口:

Public Sub 隐藏工作簿窗口()
Dim wb As Workbook
Dim wd As Window
Set wb = Workbooks("046隐藏工作簿窗口 (1).xlsm")
Set wd = wb.Windows("046隐藏工作簿窗口 (1).xlsm")
With wd
.Visible = False
MsgBox "当前窗口已被隐藏!下面将重新显示!"
.Visible = True
.View = xlNormalView
End With
Set wd = Nothing
Set wb = Nothing
End Sub
2、 单击运行,查看运行效果:

3、 在模块1中输入以下程序,实现隐藏工作表: