EXCEL工作表的全部保护与解除

Microsoft Excel

工作表的保护与解除

郝燕龙

1

，

编制宏定义

（

1

）点击：工具

-

宏

-Visual Basic

编辑器，如下图：

（

2

）在打 开的

Visual Basic

编辑器中点击：

ThisWorkbook,

在右

边编辑框中加入如下 代码

,

完成宏定义的编制。

关闭

Visual Basic

编辑器。结果如下图：

Sub ProtectAll()

Dim sh As Worksheet

For Each sh In Worksheets

t

'

这里设置要保护的密码

Next

End Sub

Sub UnProtectAll()

Dim sh As Worksheet

For Each sh In Worksheets

ect

'

这里设置解除保护的密码，必须与保护密码一致

Next

End Sub