怎样使用VBA添加“返回首页”功能于右键中？

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

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

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

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

Private Sub Workbook_BeforeClose(Cancel As Boolean) '关闭工作表时恢复菜单

Application.CommandBars(36).Reset
Application.CommandBars(39).Reset
End Sub
Private Sub Workbook_Open()
 With Application.CommandBars(36).Controls.Add(Type:=msoControlButton,
before:=3, Temporary:=True)
    .Caption="返回首页(&H)..."  '普通视图下添加菜单
    .OnAction="返回"
    .FaceId=484
End With
 With Application.CommandBars(39).Controls.Add(Type:=msoControlButton,
before:=3, Temporary:=True)
    .Caption="返回首页(&H)..." '分页预览视图下添加菜单
    .OnAction="返回"
    .FaceId=484
End With
End Sub

5、在Sheet1工作表中单击右键，可以发现已按照需求增加了“返回首页”菜单，单击该菜单，则激活工作簿中排于最前面的工作表