工程密码破解后，工作薄添加自杀功能

fgfdfgdg

请大家帮我测试一下。附件内工作薄有工程密码，需要大家破解。
如果工作薄破解成功，它会有自杀功能。

joforn

不想打击你，共享才是正途。少走点弯路吧。

maditate

我把文件模块里的代码删掉了。


Sub auto_open()
Call runtimer '打开文档时自动运行
End Sub

Sub runtimer()
  Application.OnTime Now + TimeValue("00:00:01"), "saveit"
End Sub

Sub SaveIt()
  Application.DisplayAlerts = False
If ThisWorkbook.VBProject.Protection = 0 Then
  ThisWorkbook.ChangeFileAccess xlReadOnly
  Kill ThisWorkbook.FullName
  Application.Quit
End If
End Sub

fgfdfgdg

maditate 发表于 2018-3-19 20:47
我把文件模块里的代码删掉了。

感谢老师对我的测试：
       我在实验中，只有打开工作薄的时候，做快速中断，可以避免自杀功能。
不知道还有其他的方法避免吗？
       附件我做了更新，避免中断代码功能，请您在测试一下。
      

chenjx80

这种加密方法似乎没什么作用！

Sub auto_open()
Application.EnableCancelKey = xlDisabled
Call runtimer '打开文档时自动运行
End Sub

Sub runtimer()
Application.EnableCancelKey = xlDisabled
  Application.OnTime Now + TimeValue("00:00:01"), "saveit"
End Sub

Sub SaveIt()
Application.EnableCancelKey = xlDisabled
  Application.DisplayAlerts = False
If ThisWorkbook.VBProject.Protection = 0 Then
  ThisWorkbook.ChangeFileAccess xlReadOnly
  Kill ThisWorkbook.FullName
  Application.Quit
End If
End Sub

wmqz.130

先破解你工程密码

然后禁用宏

然后把你自杀代码取消。

然后就没有然后了。

shaokui123

楼上正解，一切靠代码加密的都是耍流氓

Kaohsing

学学vsto吧

huangling888

只要禁用宏代码，一切都是徒然