Excel VBA更改windows11右键菜单

Excel VBA更改windows11右键菜单

初次使用window11，右键菜单是下面这样的。有些功能折叠在【显示更多选项】中，非要点击一次它，才能显示完整。

估计很多小伙伴不适应新的右键菜单样式。传统右键菜单如下图  

我之前也给大家分享过可以更改右键的工具，今天再来给大家分享直接用Excel VBA代码更改windows11右键菜单为传统样式。

Sub ModifyRegistryAndRestartExplorer()

'恢复传统右键菜单

Dim keyPath As String

keyPath = "HKEY_CURRENT_USER\Software\Classes\CLSID\{86ca1aa0-34aa-4e8b-a509-50c905bae2a2}\InprocServer32"

' 修改注册表

Call Shell("cmd.exe /c reg add """ & keyPath & """ /ve /f", vbHide)

' 结束并重新启动资源管理器

Call Shell("cmd.exe /c taskkill /f /im explorer.exe", vbHide)

Call Shell("cmd.exe /c start explorer.exe", vbHide)  

Sub DeleteRegistryAndRestartExplorer()

'恢复win11右键菜单

' 删除注册表项

Call Shell("cmd.exe /c reg delete ""HKEY_CURRENT_USER\Software\Classes\CLSID\{86ca1aa0-34aa-4e8b-a509-50c905bae2a2}\InprocServer32"" /f", vbHide)

' 结束并重新启动资源管理器

Call Shell("cmd.exe /c taskkill /f /im explorer.exe", vbHide)

Call Shell("cmd.exe /c start explorer.exe", vbHide)

如何使用以上代码？

新打开任意一个Excel表格，在鼠标右击工作表名称---查看代码，或者按快捷键ALT+F11

然后出现下面的VBA界面

运行后即可显示为传统的右键菜单模式。

同理，如果要恢复win11，也是粘贴恢复菜单的代码运行即可。

如果你的是WPS个人免费版，且没有安装VBA For WPS插件，则无法运行以上代码。可以下载bat文件运行即可。

注意：因为更改注册表是敏感操作，不排除某些杀毒软件报毒。但是代码完全公开的，不用担心。

https://excelbgjq.lanzouu.com/iHLA81gl86dg