[已解决]启用宏时按shift键,会禁用workbook_open中的代码.怎样防止按shift键禁用事件

yjwdjfqb

启用宏时按shift键,会禁用workbook_open中的代码.怎样防止按shift键禁用事件


Private Sub Workbook_Open()  ’工作簿打开事件按
  [d5]="测试"
end sub

打开文件，在点　启用宏　前按住shift键不放，就会阻止工作薄事件
问题：怎样　屏蔽　打开EXCEL文件中按shift键,使按住　shift键　事件仍然执行

请老师们帮帮忙，谢谢大家了！

最佳答案

月排行榜 / 总排行榜

zjdh

2015-3-8 19:15

给你一个使EXCEL安全等级永久为低的宏，EXCEL界面无法修改回来，就是重装Ofice也无动于衷！！

1. '改变Excel的宏安全级别永久为“低”，在Excel界面无法修改回来。
   
2. Sub SetExcelVBA()
   
3.     Dim WSH
   
4.     Set XLApp = CreateObject("Excel.Application")
   
5.     GetVersion = XLApp.Version
   
6.     Set WSH = CreateObject("Wscript.Shell")
   
7.     On Error Resume Next
   
8.     regStr1 = "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Office" & GetVersion & "\Excel\Security\Level"
   
9.     WSH.RegWrite regStr1, "1", "REG_DWORD"
   
10.     Set WSH = Nothing
    
11. End Sub

复制代码

跳转到最佳答案楼层

zjdh

你的问题似乎毫无意义，既然可以点击“启用宏”，必然可以点击“不启用宏”，何必去按住“Shift”点“启用宏"？

26759761@qq.com

哈哈哈

zjdh

给你一个使EXCEL安全等级永久为低的宏，EXCEL界面无法修改回来，就是重装Ofice也无动于衷！！

1. '改变Excel的宏安全级别永久为“低”，在Excel界面无法修改回来。
   
2. Sub SetExcelVBA()
   
3.     Dim WSH
   
4.     Set XLApp = CreateObject("Excel.Application")
   
5.     GetVersion = XLApp.Version
   
6.     Set WSH = CreateObject("Wscript.Shell")
   
7.     On Error Resume Next
   
8.     regStr1 = "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Office" & GetVersion & "\Excel\Security\Level"
   
9.     WSH.RegWrite regStr1, "1", "REG_DWORD"
   
10.     Set WSH = Nothing
    
11. End Sub

复制代码

excel小米

zjdh 发表于 2015-3-8 19:15
给你一个使EXCEL安全等级永久为低的宏，EXCEL界面无法修改回来，就是重装Ofice也无动于衷！！

注册表，，这么神奇啊，，真的能永久吗

yjwdjfqb

zjdh 发表于 2015-3-8 19:15
给你一个使EXCEL安全等级永久为低的宏，EXCEL界面无法修改回来，就是重装Ofice也无动于衷！！

谢谢老师这个很好用！