2003版EXCLE中用事件宏建立加载菜单的方法
打开2003版EXCLE，就可以建立一个事先设计好的菜单，而这个菜单要求是必须通过事件宏启动
Private Sub Workbook_Open()
（ 加载菜单内容代码）
End Sub
方法/步骤-进入设计界面
- 01
打开EXCEL，建立一个空白页（有则不需要建立），将空白页另存为：文件名“包材”，保存类型选择“EXCEL 97-2003 加载宏（*.xla）”
- 02
按组合键ALT+F11，就是ALT和F11同时按下，进入VBA界面
- 03
在左上角找到“工程-VBAProject”窗口(没找到，按组合键CTRL+R会出现)，在窗口中用鼠标双击VBAProject（包材.xls）下的ThisWorkbook
- 04
在右边出现的大框找到（通用）下拉条，选择Workbook。这时就会自动弹出一个 Private Sub Workbook_Open() End Sub 代码就添加在这个Workbook_Open宏中间
方法/步骤-设置过程宏
- 01
添加第一句，这一句是指在EXCEL菜单上的第三个位，建立名称叫“包材”菜单 Application.CommandBars(1).Controls.Add(Type:=msoControlPopup, Before:=3, Temporary:=True).Caption = "包材(&B)"
- 02
添加第二句，在包材菜单上建立一个菜单条 Set item = Application.CommandBars(1).Controls(3).Controls.Add
- 03
添加第三句，给菜单条，添加命令“编号”，命令对应的宏子程序叫“编号”，菜单条上有个“铅笔”图标 item.Caption = "编号": item.OnAction = "编号": item.FaceId = 31
- 04
重复第1，2步就可以建立第二个菜单条，以至于更多菜单条
- 05
菜单多了需要有分隔成块，就可以添加item.BeginGroup = True产生分界线 item.Caption = "建盘点表": item.OnAction = "建盘点表": item.FaceId = 159: item.BeginGroup = True
- 06
最终的菜单如下图
方法/步骤-录制宏，设不可见属性
- 01
完成了菜单，接下来可以录制一个简单的宏，并把宏的名称改成“编号”
- 02
在左下角找到“属性-ThisWorkbook”窗口(没找到，按F4键会出现)，在窗口中用鼠标单击IsAddin右边的False，会出现一个下拉箭头，点击下拉箭头，选择True，这一步是让“包材.xla”的sheet页不可见。
- 03
保存一下(按组合键CTRL+S)
方法/步骤-加载宏
- 01
按组合键ALT+F11，返回EXCEL界面
- 02
进入菜单/工具/加载宏/浏览，点击浏览，找到宏存放位置，点宏文件（包材.xla），确定，就可以见到加载成功的菜单了
- 03
如果不成功，请将宏“安全性”调整为低。如果不愿设置低级别安全性可以添加 excel2003自己做的数字证书