【071】工作簿密码保护

1、设置密码

可以使用前面介绍的另存为来设置密码，还可以使用Password来设置密码。

语法结构：表达式.Password

示例：打开名为 Password.xls 的工作簿，设置它的密码，然后关闭该工作簿。（假定名为 Password.xls 的文件位于 C:\ 上）

示例

Sub UsePassword()

  Dim wkbOne As Workbook

  Set wkbOne = Application.Workbooks.Open('C:\Password.xls')

  wkbOne.Password = InputBox ('Enter Password')

  wkbOne.Close

End Sub

2、保护工作簿

表达式.Protect(Password, Structure, Windows)

名称	说明
Password	为工作表或工作簿指定区分大小写的密码。可省略。如果忘记密码，就无法取消对工作表或工作簿的保护。密码的长度应为 8 个或更多字符。
Structure	True 保护工作簿的结构，即工作簿中工作表的相关位置。此时不能对工作簿中的工作表进行插入、复制、删除等操作。默认值为 False。
Windows	True 要保护工作簿窗口。此时该工作簿右上角的最小化、最大化和关闭按钮消失。默认为 False。

3、判断工作簿是否有密保

如果工作表有密码保护，则其 HasPassword 属性值为 True。

示例

Sub 判断是否有密保()

If ActiveWorkbook.HasPassword = True Then

    MsgBox '有密码保护'

Else

    MsgBox '无密码保护'

End If

End Sub

4、解除密保

Workbook.Unprotect (Password)

示例

Sub 解除密保()

Msgbox “取消密保”

ActiveWorkbook.Unprotect ' ****** '

End Sub

（本节完）