一次性物品在生活中隨處可見(jiàn)，但是你見(jiàn)過(guò)一次性Excel工作表嗎？簡(jiǎn)單地說(shuō)就是你發(fā)給客戶的Excel工作表，他只能打開(kāi)瀏覽一次，一旦他關(guān)閉Excel工作表后，文件會(huì)自動(dòng)刪除，而且刪除得干干凈凈，回收站都找不到。
這樣設(shè)置的目的是為了保證文件的安全性，如果是重要文件未被及時(shí)刪除，造成內(nèi)容泄露，給公司造成不必要的損失就虧大了，所以說(shuō)設(shè)置一次性文件很有必要。
我們先來(lái)看一下展示效果。是不是覺(jué)得很神奇呢？接下來(lái)一起探討Excel一次性文件怎么制作吧！
步驟一：通過(guò)編輯VBA代碼來(lái)制作一次性工作表。首先右鍵單擊示例工作表，然后左鍵單擊右鍵菜單中的查看代碼選項(xiàng)，打開(kāi)Visual Basic編輯器。在工程資源管理器窗口中左鍵雙擊【ThisWorkbook】選項(xiàng)，打開(kāi)ThisWorkbook的代碼窗口，并將以下代碼復(fù)制粘貼到代碼窗口中。
代碼區(qū)域：
Private Sub Workbook_BeforeClose(Cancel As Boolean)
ActiveWorkbook.ChangeFileAccess xlReadOnly
Kill ActiveWorkbook.FullName
Application.Quit
End Sub
步驟二：先別著急關(guān)閉Visual Basic編輯器，接下來(lái)要做的是限制VBA代碼查看和編輯權(quán)限，如果不進(jìn)行加密設(shè)置的話，別人可以隨意更改和查看代碼，那么你所編輯的VBA代碼指令就失效了，前面做的準(zhǔn)備工作就白費(fèi)了。對(duì)VBA代碼加密具體操作流程請(qǐng)參考文章 Excel工作簿自動(dòng)銷毀功能，使用時(shí)間到期后自動(dòng)刪除文件 ，在步驟三中有詳細(xì)的操作指南。設(shè)置完成后關(guān)閉Visual Basic編輯器回到Excel工作表界面。
步驟三：最后一步，但也是最最重要的一步，看過(guò)上一篇文章的小伙伴請(qǐng)注意啦，這次的操作方法不同于上一篇文章的操作。雖然都是將Excel工作表另存為Excel啟用宏的工作薄(*.xlsm)，但是本次需要將Excel工作表另存為二個(gè)工作表，并重命名為不同的名稱。例如：第一次另存為名稱設(shè)置為A.xlsm，第二次另存為的名稱設(shè)置為B.xlsm。
這樣設(shè)置的目的是因?yàn)榱泶鏋槲募?，?huì)將存儲(chǔ)的文件打開(kāi)，如果你執(zhí)行關(guān)閉的話，文件就會(huì)被自動(dòng)刪除。但是如果存儲(chǔ)兩個(gè)文件，只會(huì)刪除最后存儲(chǔ)的那個(gè)文件。實(shí)例中，最后存儲(chǔ)的文件為B.xlsm，所以被刪除掉的是B.xlsm。
至此，Microsoft Excel使用一次后文件自動(dòng)刪除功能已經(jīng)介紹完畢。在制作一次性Excel工作表之前，請(qǐng)做好文件的備份，文件自動(dòng)刪除后除非使用數(shù)據(jù)恢復(fù)軟件，回收站是找不到的，請(qǐng)謹(jǐn)慎操作。
聯(lián)系客服
