如何用vba代码为右键新建菜单添加"新建启用宏的工作表"？

作者：绿色风分类：时间：2022-08-17 浏览：137

楼主
kevinchengcw

Q: 如何用vba代码为右键新建菜单添加"新建启用宏的工作表"？
A: 代码如下：

Sub test()
Dim Wb As Workbook, Path$
Path = Environ("systemroot") & "\ShellNew\" '取得系统文件夹对应模板目录位置
If Dir(Path & "Excel12.xlsm") = "" Then '判断是否存在模板文件，未存在则新建立一个空白文档存为启用宏的工作簿到该目录下
Set Wb = Workbooks.Add
Wb.SaveAs Path & "Excel12.xlsm", 52
Wb.Close
End If
Shell "cmd.exe /c reg add HKCR\.xlsm\Excel.SheetMacroEnabled.12\ShellNew /v ""FileName"" /t ""REG_SZ"" /d ""Excel12.xlsm"" /f", vbHide '向注册表中写入对应信息
End Sub

注：
1. 请确认拥有修改注册表该项目的权限，否则修改可能会不成功。
2. 运行完毕后按F5刷新桌面即可开始使用右键菜单里的"新建启用宏的工作表"项。

2楼
纵鹤擒龙水中月

kevinchengcw 先生，这段代码在XP系统能用，但在WIN7系统不能使用，能否修正或者再来一段代码，让其让WIN7下也能运行，发挥作用。谢谢！

免责声明

有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，经与ExcelTip.Net站长Apolloh商议并征得其同意，现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，供有需要的人士查询使用，也慰缅曾经的论坛时代。所示各个帖子的原作者如对版权有异议，可与本人沟通提出，或于本站点留言，我们会尽快处理。在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一

评论列表

如何用vba代码为右键新建菜单添加&quot;新建启用宏的工作表&quot;？

如何用vba代码为右键新建菜单添加"新建启用宏的工作表"？