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中输入以下程序,实现隐藏工作表:
Public Sub 隐藏工作表()
Dim ws As Worksheet
Set ws = Worksheets('sheet3')
With ws
.Visible = xlSheetHidden
MsgBox '工作表已经被隐藏,可以通过Excel菜单使其显示。'
.Visible = xlSheetVeryHidden
MsgBox '工作表已经被隐藏,不能通过Excel菜单使其显示。'
.Visible = xlSheetVisible
MsgBox '工作表重新被显示。'
End With
Set ws = Nothing
End Sub
4、 单击运行,看到工作表被隐藏。
5、 在模块1中输入以下程序,实现隐藏工作表标题栏隐藏与显示:
Public Sub 隐藏()
Dim ws As Worksheet
Set ws = Worksheets('sheet3') '指定工作表
ws.Activate '激活工作表
ActiveWindow.DisplayHeadings = False '隐藏工作表的行列标题
End Sub
Public Sub 显示()
Dim ws As Worksheet
Set ws = Worksheets('sheet3') '指定工作表
ws.Activate '激活工作表
ActiveWindow.DisplayHeadings = True '显示工作表的行列标题
End Sub
6、 单击运行查看效果:
本文使用Windows版本:Windows xp sp3 Excel版本:Excel 2010
联系客服