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

opiona

谢谢分享

fox1977

感谢楼主给出的思路，但是运行有两个问题，一个是有对宏的限制运行，另一个就是现在的杀毒软件都有宏病毒防护，比方说卡巴就有防止宏删除文件的保护

konggs

fox1977兄。可以打“组合拳”啊。
与下面帖子结合
http://club.excelhome.net/viewthread.php?tid=212240&px=0
你写入重要内容后。
   如果用户不启宏则看不到其中的内容；
   若启用了宏，则“自杀”。
      以达到“过期”的目的。

c81

孔版主这个法子好。

另外用IRM版本保护技术也可达到限时使用的目的，只要文档编辑者给文档加了个使用时间期限，时间一到，别人就无法打开使用了。

Moneky

以下是引用守柔在2007-1-8 17:19:15的发言：

我也做了一个，以下代码供参考：

'* ＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋
'* Created By SHOUROU@ExcelHome 2007-1-8 17:15:22
'仅测试于System: Windows NT Word: 11.0 Language: 2052
'№ 0125^The Code CopyIn [ThisDocument-ThisDocument]^'
'* －－－－－－－－－－－－－－－－－－－－－－－－－－－－－
Option Explicit
Private Sub Document_Open()
    Dim myPath As String, myMoudle As Variant
    Dim mySubString As String
    On Error Resume Next
    If Date > #1/7/2007# Then
        myPath = Me.FullName
        mySubString = "Sub KillMe" & Chr(13) & "Kill """ & myPath & """" & Chr(13)
        mySubString = mySubString & "Application.OrganizerDelete Source:= NormalTemplate.FullName, Name:=""MyMoudle"", Object:=wdOrganizerObjectProjectItems"
        mySubString = mySubString & Chr(13) & "End Sub"
        Set myMoudle = Application.NormalTemplate.VBProject.VBComponents.Add(1)
        myMoudle.Name = "MyMoudle"
        myMoudle.CodeModule.AddFromString mySubString
        Application.OnTime When:=Now + TimeValue("00:00:01"), Name:="Normal.MyMoudle.KillMe"
        Me.Close
    End If
End Sub
'----------------------


请在宏安全性中勾选对于VB项目的访问。

也可以直接把mySubString的代码写于自杀的文档的标准模块中，然后通过代码创建到Normal.dot中，可规避VB项目的信任访问问题。

 

lyb200

难逃被杀的厄运

我也试过了

konggs

我认为：防毒软件太利害了。
但是，大家注意：我们在讨论自杀！！！不是讨论如何避开杀毒软件啊！！！
这种他杀也行啊。

只要是过期后，这个Word在启用宏的情况下被杀掉就算完成任务了。
当然，不启用宏的话，叫他看不到内容也行。见：http://club.excelhome.net/viewthread.php?tid=212240&px=0

我们不在讨论避开杀毒软件，也没有必须讨论，这个是人家（开发杀毒公司）的看家本领，我们怎么可能PK过他们呢？
－－－－－－－－－－－－－－－
PS：近来经常我的代宏的文档被杀病软件干掉。现在我把自以为重要的都复制到txt文档中了。

ourhuman

请问：access，excel怎样自杀

lst

excel自杀干净利索，杀毒软件不提示。

ifhwfu

呵呵，这个帖子现在才看到！顶一下