MenuBars(\经济\第三产业\Caption:=\概况\概况\
MenuBars(\经济\第三产业\Caption:=\范畴\范畴\
MenuBars(\经济\第三产业\Caption:=\饮食服务业\
′以下二句为在“饮食服务业”选单下增加“酒店1、酒店2”二项选单项 MenuBars(\经济\第三产业\饮食服务业\酒店1\酒店1\
MenuBars(\经济\第三产业\饮食服务业\酒店2\酒店2\MenuBars(\ End Sub
Sub auto_open() ′系统自动打开运行宏 OpenMyMenu ′调用用户选单函数 End Sub
Sub auto_close() ′系统自动关闭运行宏 On Error Resume Next ′忽略错误
MenuBars(\ End Sub
读者可以在自己的工作簿选单“工具”中的“宏”下，创建以上三个函数并将以上函数语句拷贝到其中即可运行。
66、.用VBA(编程)保护Excel文档
VBA（Visual Basic for Application）是Excel应用程序中功能非常强大的编程语言，为了规范不同的用户对Excel应用程序的访问能力，需要对Excel文档及有关的数据进行有效的保护， 这里根据自己及同行们的体会，从以下二个方面介绍用VBA编程法实现对Excel文档的保护。 对工作簿的保护
1.利用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: =\经济评价.xls\XlNormal,Password:=\ End sub
2.利用VBA中Workbook对象的Protect方法对工作簿的结构和窗口进行保护，Workbook对象的Protect方法带有以下三个参量：
Password： 为加在工作表或工作簿上区分大小写的密码字符串。 如果省略本参数，不用密码就可以取消对该工作簿的保护。否则，取消对该工作表或工作簿的保护时必须提供该密码。如果忘记了密码，就无法取消对该工作表或工作簿的保护。最好在安全的 地方保存一份密码及其对应文档名的列表。
Structure： 若为True则保护工作簿结构（工作簿中工作表的相对位置）。默认值为False。
Windows 若为True则保护工作簿窗口。
下例就是对一名为“经济评价.xls”的工作簿实现“结构”和“窗口”保护： Sub 保护工作簿（）
Workbooks （″经济评价″） .Protect Password: =\Windows:=True End sub
Workbook对象的Unprotect方法用于取消对工作簿的保护。Unprotect方法只有一个参量，就是保护工作表时所用的口令。
3.对工作簿进行隐藏保护，可使他人无法看到其对应的窗口。操作方法如下： 在VBA中使用Workbook对象下面的Windows对象的Visible属性对工作簿进行隐藏和取消隐藏，Visible属性的值可取“True”和“False”两种。
下面程序代码完成对工作簿“book.xls”的隐藏： Sub 隐藏工作簿（）
Workbooks(\ActiveWindow.Visible = False End sub 或：
Sub 隐藏工作簿（）
Workbooks(\（1）.Visible=False End sub
对工作表的保护
1．对工作表实现口令保护利用VBA调用Worksheet对象的Protect方法对工作表进行保护，Protect带有以下参量： Password 用于保护工作表的口令。
Drawingobjects 若为True，则对工作表中的Drawingobjects对象进行保护,缺省值为True。
Contents 若为True，则对单元格内容进行保护，缺省值为True。 下面程序代码完成对工作表“基础数据表”的保护： Sub 保护工作表（）
Worksheets（″基础数据表″）.Protect Password:=\End sub
2．对工作表实现隐藏保护，使他人无法看到工作表：
利用VBA设置Worksheet对象的Visible属性来隐藏工作表；Visible属性的值为
以下三个值中的一个： True 工作表为显示状态。 False 工作表为隐藏状态。
XlVerHidden 工作表为隐藏状态，且用户不能通过“取消隐藏”对话框将其改为显示状态。当Visible的值为XlVerHidden时，只能利用VBA将其重新设置为True。 Sub 隐藏工作表（）
Worksheets(\基础数据表\End sub
67、求:将所选区域中的数值全部转化为\万元\的最简代码. 求:将所选区域中的数值全部转化为\万元\的最简代码. 或能完成此功能的最便捷的命令操作. 写了一个,抛砖引玉: Sub convt() Dim cel As Range Dim dec As Variant
Application.EnableEvents = False
?? yesorno = MsgBox(\确实将区域所有数值转换为“万元”？\vbQuestion + vbDefaultButton1) ?? If yesorno = vbYes Then
1: dec = Application.InputBox(\请输入小数位数:\?? If dec = \?? GoTo 1
相关推荐：
loading