在工作當(dāng)中,我們時常遇到一些敏感的數(shù)據(jù),涉及到個人或單位的安全,因此,Excel文件數(shù)據(jù),只能給部分人看,而不能讓其他人看; 同時,能看數(shù)據(jù)的同志,有的時候也得加上查看次數(shù)的限制; 如果要想在Excel中實現(xiàn)文件查看次數(shù)的限制,得使用VBA不可;本文,我們就來詳細介紹如何使用VBA來完成此功能! 一、理論知識指導(dǎo) 實現(xiàn)的方法,是這樣的,在工作薄中,多增加一工作表,該工作表沒有重要數(shù)據(jù),僅用來存儲每次打開文件的次數(shù);之后,將該工作表隱藏起來,每次打開Excel文件就自動加1,經(jīng)過程序判斷,如果次數(shù)超過欲設(shè)的次數(shù),會給出提示,并退出Excel; 二、實現(xiàn)方法 如下圖: 上圖中,假設(shè)Sheet1、Sheet2、Sheet3三個工作表為包含重要數(shù)據(jù)的工作表;這個時候,我們再多新建一工作表,假設(shè)取名為Count,之后,在Count工作表的A1單元格中輸入1;記住,Count中的A1單元格,就是使用來存儲每次打開Excel文件的次數(shù)的; 然后,在Count工作表窗口中,執(zhí)行如下圖的操作,將工作表隱藏起來! 然后,按住鍵盤的組合鍵“Alt+F11”,這個時候,會打開VBA程序設(shè)計窗口,如下圖! 打開的VBA程序設(shè)計窗口,在左邊,我們能看到類似上圖的界面,我們選擇“ThisWorkbook”并點擊右鍵,同時執(zhí)行“查看代碼”,彈出如下圖的代碼編寫小窗口; 上圖中,務(wù)必選擇事件為Open,最后,我們就可以在窗口中輸入代碼了! 代碼如下圖! 輸入好代碼之后,在VBA窗口中,執(zhí)行“文件”→“保存(這里顯示你的工作薄名稱)”,關(guān)閉VBA窗口,返回Excel窗口; 就這樣,整個過程完成了! 當(dāng)我們每次打開這個Excel文件時,會在Count工作表的A1單元格中自動將原值加1,如果超過使用的次數(shù),那么,會看到如下圖的提示! 點擊確定按鈕,會自動退出Excel窗口,以此,來達到限制使用次數(shù)的目的! 知識擴展: 這種限制只是相對性的限制,要確保程序能運行,還需要設(shè)置安全級別為低或中; 另外,精通Excel的同志還可能會找到已經(jīng)隱藏的Count工作表,修改A1單元格的,讓使用次數(shù)永遠不會超過限制;
|
|