用VBA编程保护Excel文档工作簿

       VBA（Visual Basic for Application）是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