[已解决]急求：高难度VBA代码

wjp023

        我制作了一个excel共享文档，想其它电脑一打开就自动设置那台电脑的“禁止网上邻居显示最近访问的共享文件夹记录”，请教高手老师如何编写VBA代码？
       手工设置无法操作网上邻居的其它电脑。
       手工设置方法参考：   

方法一：

在“运行”栏中执行“gpedit.msc”命令，打开组策略编辑器，依次展开“用户配置”—“管理模板”—“桌面”链接，接着转到右侧窗格中，双击“不要将最近打开的文档的共享添加到网上邻居”策略，并在弹出窗口中选择“已启用”，最后点击确定即可。

方法二：

打开注册表编辑器，找到下面的键值：HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer，在右侧窗口中找到或单击鼠标右键，新建一个名为“NoRecentDocsNetHood”的DWORD值，并将其值设置为“1”。

最佳答案

月排行榜 / 总排行榜

zjdh

2012-6-6 07:59

写入注册表：
Sub RegWrite()
    Dim WshShell
    Regkey = "HKLM\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoRecentDocsNetHood"
    Set WshShell = CreateObject("WScript.Shell")
    WshShell.RegWrite Regkey, 1, "REG_DWORD"
End Sub

能否达到“禁止网上邻居显示最近访问的共享文件夹记录”不知道。

跳转到最佳答案楼层

zjdh

写入注册表：
Sub RegWrite()
    Dim WshShell
    Regkey = "HKLM\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoRecentDocsNetHood"
    Set WshShell = CreateObject("WScript.Shell")
    WshShell.RegWrite Regkey, 1, "REG_DWORD"
End Sub

能否达到“禁止网上邻居显示最近访问的共享文件夹记录”不知道。

wjp023

谢谢，我来试试您的代码看来不能运行

wjp023

谢谢zjdh老师，您真是高手，你这段代码能运行，佩服。我还发了个贴子“excel共享模式下，程序代码运行如何突破工作表的保护？”能麻烦您帮忙看一下吗