怎样使用VBA工作簿转换为加载宏？

1、首先在开发工具中打开VBA编辑器

2、在单元格区域当中输入一些内容作为例子

3、在VBA编辑器中插入模块

4、在模块当中输入如下代码，然后运行

Sub存为加载宏()

ThisWorkbook.IsAddin=True  '将工作簿转为加载宏
ThisWorkbook.SaveAs Application.StartupPath & "\一键恢复Excel.xla", 18
'将工作簿存于自启动文件夹
End Sub
Sub auto_open()
    Dim Menu As CommandBarControl, SubMenu As CommandBarControl
    Set SubMenu=Application.CommandBars(1).Controls.Add(msoControlPopup, 1, , 8, 1)
    SubMenu.Caption="一键恢复Excel(&R)"       '添加下拉菜单
    With SubMenu.Controls.Add(msoControlButton, 1, , , True) '添加菜单按钮
      .Caption="一键恢复Excel(&R)"         '菜单名称
      .OnAction="一键解除限制"            '菜单对应的程序名
      .FaceId=481                       '图标
      End With
    End Sub
Sub auto_close()
Application.CommandBars(1).Reset             '退出时恢复菜单
End Sub
Sub一键解除限制()
Dim i As Byte
On Error Resume Next
Application.ScreenUpdating=False     '禁止屏幕刷新，提高速度
For i=1 To 155 'Excel内部菜单为1至150左右，用户添加了菜单和工具条件ID会跟随增加
Application.CommandBars(i).Reset          '恢复菜单和工具
Application.CommandBars(i).Enabled=True   '让菜单和工具可用
Application.CommandBars(i).Visible=False  '让菜单和工具不可见
Next
For i=1 To 4
Application.CommandBars(i).Visible=True
              '让ID位于前四位的可见：工作表菜单、图表菜单、常用菜单、格式菜单
Next
With Application  '恢复部分快捷键
      .OnKey "^c"

.OnKey "^v"

      .OnKey "^x"
      .OnKey "^s"
      .OnKey "^w"
      .OnKey "^f"
      .OnKey "^x"
      .OnKey "^p"
      .OnKey "^o"
      .OnKey "^a"
      .OnKey "^d"
      .OnKey "^r"
      .OnKey "^g"
      .OnKey "+{DEL}"
      .OnKey "+{INSERT}"
      .CellDragAndDrop=True
      .OnDoubleClick=""
    End With
Application.ScreenUpdating=True     '恢复屏幕更新
MsgBox "大功告成！" & "你的Excel已恢复。" & Chr(10) & "所有自定义菜单、按钮
及功能限制均已解除。", 64, "【友情提示】"
End Sub

5、将光标定位于第一个程序“存为加载宏”处，然后用F5键执行程序，工作簿马上变为了加载宏，而且已存于自启动文件夹中，每次启动Excel时都会打开该宏程序