excel表自杀用VBA如何编写?

Posted

tags:

篇首语:本文由小常识网(cha138.com)小编为大家整理,主要介绍了excel表自杀用VBA如何编写?相关的知识,希望对你有一定的参考价值。

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

参考技术A 如何自杀还真是没有想过,不过可以禁止复制,楼主可以试试!(转)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

以上是关于excel表自杀用VBA如何编写?的主要内容,如果未能解决你的问题,请参考以下文章

如何编写代码解除EXCEL中VBA的工程保护

EXCEL根据单元格名称改变后自杀,求VBA代码!

如何将用Google表格编写的脚本迁移到VBA中的MS Excel宏?

如何用EXCEL VBA编写模糊查询程序,并将结果显示在工作表中

使用工作表函数编写自定义 Excel 函数的问题

VBA Excel如何在工作表区域内查找某个值,发回这个值所在的行号、列号