VBA(Visual Basic for Application)是Excel应用程序中功能非常强大的编程语言,为了规范不同的用户对Excel应用程序的访问能力,需要对Excel文档及有关的数据进行有效的保护, 这里根据自己及同行们的体会,从以下二个方面介绍用VBA编程法实现对excel文档的保护。
利用VBA中Workbook对象的SaveAs方法实现对工作簿的保护, 下面就对SaveAs有关的参量作一介绍:
Filename:该字符串表示要保存的文件名。 可包含完整路径。 如果不指定路径,Microsoft excel 将文件保存到当前文件夹。
FileFormat:可选,文件的保存格式。
Password :为一个区分大小写的字符串(不超过15个字符) ,用于指定文件的保护密码。
WriteResPassword: 该字符串表示文件的写保护密码。 如果文件保存时带有密码,但打开文件时不输入密码,则该文件以只读模式打开。
ReadOnlyRecommended :如果为True则在打开文件时显示一条信息,提示该文件以只读模式打开。
下例就是在excel应用程序中添加一工作簿,将工作簿按常规文件格式存为“C:\pj\obj\经济评价.xls”文件,并给该文件指定保护密码“12”以及写保护密码“23”。
Sub 保护工作簿()
NewWorkbook = Workbooks.add
NewWorkbook.SaveAs FileName: ="C: \pj\obj\经济评价.xls", FileFormat: =
XlNormal,Password:="12",WriteResPassword:=″23″
End sub
用VBA编程保护Excel文档工作簿