《Excel word ppt office使用技巧大全(DOC格式)》第11章

币　政　策　〃 MenuBars（〃MyMenu〃）。Menus（〃　金　融　〃）。MenuItems。Add Caption：=〃　条　例　〃；
OnAction：=〃条例〃 ＋以下为创建如图所示的多级选单　MenuBars（〃MyMenu〃）。Menus。Add
Caption：=〃经济〃　"建立选单项―经济‖ ＋以下三句为在―经济‖选单下增加―农业、工业和第三　
产业‖三项选单项　MenuBars（〃MyMenu〃）。Menus（〃经济〃）。MenuItems。Add　Caption：=〃农业〃；
OnAction：=〃农业〃　MenuBars（〃MyMenu〃）。Menus（〃经济〃）。MenuItems。Add　Caption：=〃工业〃；
OnAction：=〃工业〃　MenuBars（〃MyMenu〃）。Menus（〃经济〃）。MenuItems。AddMenu　Caption：=〃第三　
产业〃　＋以下三句为在―第三产业‖选单下增加―概况、范畴‖二项选单项和―饮食服务业‖子选单
MenuBars（〃MyMenu〃）。Menus（〃经济〃）。MenuItems（〃第三产业〃）。MenuItems。Add　Caption：=〃概　
况　〃； OnAction：=〃　概　况　〃 MenuBars（〃MyMenu〃）。Menus（〃　经　济　〃）。MenuItems（〃　第　三　产　业　
〃）。MenuItems。Add　Caption：=〃范畴〃；　OnAction：=〃范畴〃　MenuBars（〃MyMenu〃）。Menus（〃经济　
〃）。MenuItems（〃第三产业〃）。MenuItems。AddMenu　Caption：=〃饮食服务业〃　＋以下二句为在　
―饮食服务业‖选单下增加―　酒店1、酒店2‖　二项选单项　MenuBars（〃MyMenu〃）。Menus（〃经济　
〃）。MenuItems（〃第三产业〃）。MenuItems（〃饮食服务业〃）。MenuItems。Add　Caption：=〃酒店1〃；
OnAction：=〃　酒　店　1〃 MenuBars（〃MyMenu〃）。Menus（〃　经　济　〃）。MenuItems（〃　第　三　产　业　
〃）。MenuItems（〃饮食服务　业　〃）。MenuItems。Add　Caption：=〃　酒店　2〃；　OnAction：=〃　酒店　2〃
MenuBars（〃MyMenu〃）。Activate ＋激活自定义选单　End　Sub　Sub　auto_open（）　＋系统自动打　
开运行宏　OpenMyMenu　＋调用用户选单函数　End　Sub　Sub　auto_close（）　＋系统自动关闭运行　
宏　On　Error　Resume　Next　＋忽略错误　MenuBars（〃MyMenu〃）。Delete ＋删除自定义选单　End
Sub　读者可以在自己的工作簿选单―工具‖　中的―宏‖下，创建以上三个函数并将以上函数语句拷　
贝到其中即可运行。　66、。用VBA（编程）保护Excel文档　VBA　（Visual　Basic　for　Application）　
是Excel应用程序中功能非常强大的编程语言，为了规范不同的用户对Excel应用程序的访问能　
力，需要对Excel文档及有关的数据进行有效的保护，　这里根据自己及同行们的体会，从以下　
二个方面介绍用VBA编程法实现对Excel文档的保护。　对工作簿的保护
XL
…………………………………………………………Page　41……………………………………………………………
Excel_word_ppt_使用技巧大全（完全版）
1。利用VBA中Workbook对象的SaveAs方法实现对工作簿的保护，　下面就对SaveAs有　关的参量　
作一介绍：　Filename：该字符串表示要保存的文件名。　可包含完整路径。　如果不指定路径，　
Microsoft　Excel　将文件保存到当前文件夹。　FileFormat　：　可选，文件的保存格式。
Password　：为一个区分大小写的字符串（不超过15个字符）　，用于指定文件的保护密码。
WriteResPassword：　该字符串表示文件的写保护密码。　如果文件保存时带有密码，但打开文　
件时不输入密码，则该文件以只读模式打开。　ReadOnlyRemended　：如果为True则在打开　
文件时显示一条信息，提示该文件以只读模式打开。　下例就是在Excel应用程序中添加一工作　
簿，将工作簿按常规文件格式存为―C：pjobj经济评价。xls‖文件，并给该文件指定保护密码　
―12‖　以及写保护密码―23‖　。 Sub 保护工作簿 NewWorkbook　=　Workbooks。add
NewWorkbook。SaveAs FileName： =〃C： pjobj　经　济　评　价　。xls〃； FileFormat： =
XlNormal；Password：=〃12〃；WriteResPassword：=23　End　sub　2。利用VBA中Workbook对象的　
Protect方法对工作簿的结构和窗口进行保护，Workbook对象的Protect方法带有以下三个参　
量：　Password：　为加在工作表或工作簿上区分大小写的密码字符串。　如果省略本参数，不　
用密码就可以取消对该工作簿的保护。否则，取消对该工作表或工作簿的保护时必须提供该密　
码。如果忘记了密码，就无法取消对该工作表或工作簿的保护。最好在安全的　地方保存一份　
密码及其对应文档名的列表。　Structure：　若为True则保护工作簿结构（工作簿中工作表的　
相对位置）。默认值为False。　Windows　若为True则保护工作簿窗口。　下例就是对一名为―经　
济评价。xls‖　的工作簿实现―结构‖和―窗口‖保护：　Sub　保护工作簿　Workbooks （经济　
评价）　。Protect　Password：　=〃1234〃；　Structure：　=True；　Windows：=True　End　sub　Workbook　
对象的Unprotect方法用于取消对工作簿的保护。Unprotect方法只有一个参量，就是保护工作　
表时所用的口令。　3。对工作簿进行隐藏保护，可使他人无法看到其对应的窗口。操作方法如　
下：　在VBA中使用Workbook对象下面的Windows对象的Visible属性对工作簿进行隐藏和取消隐　
藏，Visible属性的值可取―True‖和―False‖两种。　下面程序代码完成对工作簿―book。xls‖　的　
隐藏：　Sub　隐藏工作簿　Workbooks（〃book〃）。Activate　ActiveWindow。Visible　=　False　End
sub　或：　Sub　隐藏工作簿　Workbooks（〃book〃）。Windows　（1）。Visible=False　End　sub　对　
工作表的保护　1．对工作表实现口令保护利用VBA调用Worksheet对象的Protect方法对工作表　
进行保护，Protect带有以下参量：
XLI
…………………………………………………………Page　42……………………………………………………………
Excel_word_ppt_使用技巧大全（完全版）
Password 用于保护工作表的口令。 Drawingobjects 若为　True　，则对工作表中的　
Drawingobjects对象进行保护；缺省值为True。　Contents　若为True，则对单元格内容进行保　
护，缺省值为True。　下面程序代码完成对工作表―基础数据表‖　的保护：　Sub　保护工作表
Worksheets　（基础数据表）。Protect　Password：=〃1234〃　End　sub　2．对工作表实现隐藏　
保护，使他人无法看到工作表：　利用VBA设置Worksheet对象的Visible属性来隐藏工作表；　
Visible属性的值为以下三个值中的一个：　True　工作表为显示状态。　False　工作表为隐藏状　
态。　XlVerHidden　工作表为隐藏状态，且用户不能通过―取消隐藏‖对话框将其改为显示状态。　
当Visible的值为XlVerHidden时，只能利用VBA将其重新设置为True。　Sub　隐藏工作表
Worksheets（〃基础数据表〃）。Visible=False　End　sub　67、求：将所选区域中的数值全部转化为　
〃万元〃的最简代码。　求：将所选区域中的数值全部转化为〃万元〃的最简代码。　或能完成此功能　
的最便捷的命令操作。　写了一个；抛砖引玉：　Sub　convt（）　Dim　cel　As　Range　Dim　dec　As　Variant
Application。EnableEvents　=　False　yesorno　=　MsgBox（〃确实将区域所有数值转换为―万元‖　？　
〃；　vbYesNo　＋　vbQuestion　＋　vbDefaultButton1）　If　yesorno　=　vbYes　Then　1：　dec　=
Application。InputBox（〃请输入小数位数：〃；　Default：=0；　Type：=1）　If　dec　=　〃〃　Then　GoTo
1　End　If　For　Each　cel　In　Selection　If　IsNumeric（cel。Value）　Then　"cel　=　（Round（cel。Value
/　10000；　2））　&　〃万元〃　cel　=　（Round（cel。Value　/　10000；　dec））　End　If　Next　ElseIf　yesorno
= vbNo Then Exit Sub End If End Sub 以　下　当　为　最　简　代　码　吧　。 Sub Macro2（）
Selection。NumberFormatLocal　=　〃#〃〃。〃〃#；〃
XLII
………………………………………