excel表自杀用VBA如何编写？

Posted 2023-03-09

只能在一台电脑里才能打开，复制到别的电脑里打开该文件将会“自杀”，也就是说在别人的电脑上一打开就自动删除该文件，请赐教

如何自杀还真是没有想过，不过可以禁止复制，楼主可以试试！（转）Sub cc()
With Application

'屏蔽常用工具栏剪切、复制、粘贴
.CommandBars(3).Controls("剪切(&T)").Enabled = False
.CommandBars(3).Controls("复制(&C)").Enabled = False
.CommandBars(3).Controls("粘贴(&P)").Enabled = False

'屏蔽单元格右键菜单中的剪切、复制、粘贴命令
.CommandBars("Cell").Controls("剪切(&T)").Enabled = False
.CommandBars("Cell").Controls("复制(&C)").Enabled = False
.CommandBars("Cell").Controls("粘贴(&P)").Enabled = False

'屏蔽编辑菜单中的剪切、复制、粘贴命令
.CommandBars(1).Controls("编辑(&E)").Controls("剪切(&T)").Enabled = False
.CommandBars(1).Controls("编辑(&E)").Controls("复制(&C)").Enabled = False
.CommandBars(1).Controls("编辑(&E)").Controls("粘贴(&P)").Enabled = False

'屏蔽键盘剪切、复制、粘贴键
.OnKey "^x", ""
.OnKey "^c", ""
.OnKey "^v", ""
End With
End Sub 参考技术A 在工作薄OPEN事件中填入Private Sub Workbook_Open()
If ThisWorkbook.Path<> "C:\Documents and Settings\xd\My Documents" Then Call delt
End Sub
我以工作薄路径来判断，"C:\Documents and Settings\xd\My Documents"，此段请作相应更改,注意,键入后你的工作薄位置更改后也会被杀掉.在模块中键入自杀程序Sub delt()
Application.DisplayAlerts = False
ActiveWorkbook.ChangeFileAccess xlReadOnly
Kill ActiveWorkbook.FullName
Application.Quit
End Sub 参考技术B 可以考虑sky的建议，但意义不大，别人一定要打开你的文件，将将宏安全性设置为高，这样文件也不会自杀的 参考技术C 用代码生成1.bat,并在里面写入删除代码，最后把bat自删 参考技术D 可以将硬盘序列号存在某个单元，每次打开都读取序号对比一下，不同就自动删除本文件