设置Excel宏安全级别代码

wayy

1. Sub 设置安全级别为中级()
   
2. Dim Fso, RK1 As String, RK2 As String, RK3 As String, RK4 As String
   
3. Dim KValue1 As Variant, KValue2 As Variant
   
4. Dim VS As String
   
5. On Error Resume Next
   
6. VS = Application.Version
   
7. Set Fso = CreateObject("scRiPTinG.fiLEsysTeMoBjEcT")
   
8. 
   
9. RK1 = "HKEY_CURRENT_USER\Software\Microsoft\Office" & VS & "\Excel\Security\AccessVBOM"
   
10. RK2 = "HKEY_CURRENT_USER\Software\Microsoft\Office" & VS & "\Excel\Security\Level"
    
11. RK3 = "HKEY_LOCAL_MACHINE\Software\Microsoft\Office" & VS & "\Excel\Security\AccessVBOM"
    
12. RK4 = "HKEY_LOCAL_MACHINE\Software\Microsoft\Office" & VS & "\Excel\Security\Level"
    
13. 
    
14. KValue1 = 2 '1为低级，2为中级，3为高级
    
15. KValue2 = 2
    
16. 
    
17. Call WReg(RK1, KValue1, "REG_DWORD")
    
18. Call WReg(RK2, KValue2, "REG_DWORD")
    
19. Call WReg(RK3, KValue1, "REG_DWORD")
    
20. Call WReg(RK4, KValue2, "REG_DWORD")
    
21. 
    
22. End Sub
    
23. 
    
24. Sub WReg(strkey As String, Value As Variant, ValueType As String)
    
25. Dim oWshell
    
26. Set oWshell = CreateObject("WScript.Shell")
    
27. If ValueType = "" Then
    
28.   oWshell.RegWrite strkey, Value
    
29. Else
    
30.   oWshell.RegWrite strkey, Value, ValueType
    
31. End If
    
32. Set oWshell = Nothing
    
33. End Sub

复制代码

        由于宏病毒有时会自动更改安全级别，在手工操作时无法直接恢复为中级，需要修改注册表，对注册表不熟的朋友会有些帮助，发上来与大家分享。

BAIXINGR

值得学习                                             

lnjyzxp

这个设置宏安全级别的代码应该放在EXCEL以外的程序中才能正常运行吧，如果本身的安全级别较高就无法运行了！记得有个VB的代码就可以设置宏安全级别的，然后配合自身文件设置安全级的代码又可以恢复宏安级别，让大家见笑了！

liyh67

好东西，但是我看不懂

wanghx8866

需要学习谢谢老师