标题隐藏

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