利用VBA代碼實現(xiàn)自動隱藏、顯示指定Excel工作表

1、利用vba代碼實現(xiàn)自動隱藏、顯示指定excel x作表摘要：編寫vbd代碼實現(xiàn)自動隱藏、顯示任意excel文檔中的指 定工作表。關(guān)鍵詞：隱藏工作表顯示工作表visible屬性vba代碼日 常工作中我們會接觸各種各樣的數(shù)據(jù)。隨著計算機(jī)的普及，人們都會 使用這種現(xiàn)代化的工具處理數(shù)據(jù)。在計算機(jī)技術(shù)中專門有專業(yè)的數(shù)據(jù) 庫軟件來管理數(shù)據(jù)，這其中有ibm的db2、甲骨文的oracle>微軟 的sql server> unix系統(tǒng)用的informix>免費的mysql等等。這些 都是功能強(qiáng)大并且得到用戶廣泛應(yīng)用和認(rèn)可的專業(yè)數(shù)據(jù)庫軟件。但是 它們都有一個特點就是需耍較長時間的學(xué)習(xí)才能掌握，這

2、并不利用計 算機(jī)水平一般乂需要處理各種日常工作數(shù)據(jù)的用戶。其實對付數(shù)據(jù)量不是非常大的口常工作，我們幾乎每個人都在用 的excel就足夠了。因此excel成了我們?nèi)粘＾k公的數(shù)據(jù)處理軟件的 首選，很多中小企業(yè)的銷售、財務(wù)、庫房管理等都在使用它來完成數(shù) 據(jù)的處理。但是excel工作表在默認(rèn)情況下是全部開放的，只要打 開文件任何用戶都可以任意操作。這時如果你既要共享excel數(shù)據(jù)分 析處理的結(jié)果，又不想讓對方看見具體數(shù)據(jù)，如何保密就成了問題。 例如：利用單位月費用報銷的明細(xì)數(shù)據(jù)制作了各部門報銷費用的比較 圖，希望發(fā)給各部門查看但又不能讓對方看到具體數(shù)據(jù)項。這就需要 隱藏“原始數(shù)據(jù)”所在數(shù)據(jù)表，只顯示“

3、各部門報銷費用比較圖”所 在的數(shù)據(jù)表。有下面就這個問題給出幾種解決方法：1直接隱藏工作表“右鍵單擊指定工作表標(biāo)簽” 一 “隱藏”，這樣重要的工作表就 被隱藏起來了。雖然該方法簡單易行，但是卻存在一個致命弱點，他 人只需右鍵單擊任意工作表標(biāo)簽一 “取消隱藏”，就會重現(xiàn)被隱藏的 工作表。2隱藏工作表并保護(hù)工作簿按照上面的方法將工作表隱藏，然后通過設(shè)置“保護(hù)工作簿一結(jié) 構(gòu)”于老可以選擇添加口令況。這樣操作后被隱藏的工作表將無法再顯 示，只能先取消“保護(hù)工作簿”才能取消隱藏。但是這個方法也有缺點，就是當(dāng)“保護(hù)工作簿一結(jié)構(gòu)”時，對于 工作表的其它操作也無法進(jìn)行，比如：插入、刪除、重命名等。3 visua

4、l basic編輯器修改屬性3. 1 “右鍵單擊工作表標(biāo)簽”-> “查看代碼”，打開visual basic 編輯器窗口，在左側(cè)可以看到“工程”和“屬性”面板。3. 2在“工程”面板中顯示了該excel文檔的所有工作表。選擇 要隱藏的工作表，然后在“屬性”面板中設(shè)置"visible"的參數(shù)為 2-xlsheetveryhiddeno這樣工作表就被隱藏了，而且此時“取消隱 藏”功能顯示為灰色不可用。但是別人只要知道這個方法，要顯示工作表時只要再修改屬性 “visible ” 的參數(shù)為-1- xlshcctvisiblc 就可以了。3.3為了防止無權(quán)用戶的修改，我們需要設(shè)

5、置口令。打開"visual basic編輯器窗口” 一"工具f vbaproject屬性一保護(hù)”選項卡，勾 選“查看時鎖定工程”，并設(shè)置查看工程屬性的密碼，單擊“確定” 按鈕。3.4按下ctrl+s保存文件，返回excel界面并且關(guān)閉文件。下 一次再打開該excel文檔時,只要打開“visual basic編輯器窗口” 就會立刻提示"vbaproject密碼”，只有輸入正確密碼才能繼續(xù)操作。 如此一來，即便有人知道這種操作方法，沒有密碼的話也不能顯示出 隱藏的工作表，因此大大增強(qiáng)了 excel的安全性能。注意：每個excel文檔中必須至少有一個工作表的visibl

6、e屬 性值為"1 - xlsheetvisible”,即至少有一個工作表是顯示的。4 vba代碼實現(xiàn)4. 1新建excel文件一“右鍵單擊工作表標(biāo)簽”一查看代碼，打 開"visual basic編輯器窗口” 一工程-右鍵單擊vbaprojectbookl 況一插入f模塊一雙擊新建的“模塊1” 一在打開的窗口填寫如下代 碼。說明：這一系列操作會生成3個宏hide、show、showall,它們 對應(yīng)的功能如下“隱藏指定工作表”、“顯示指定工作表”、“顯示全部 工作表”。這段代碼會將“password”為名稱的工作表中，a列第1-10行 單元格內(nèi)容視為要被隱藏的工作表名稱，并將

7、它們高級隱藏。sub hide ()for i = 1 to 10，設(shè)定判斷ito行a 二 sheets ( “password”) cells (i, 1)'把 password 表 i 行 1列單元格內(nèi)容放入變量aif athenworksheets(a).visible 二-1elseend ifnextend sub這段代碼會將文檔中全部工作表顯示sub showall ()dim ws as worksheetfor each ws in sheetsws.visible 二 tnext wsend sub4.2按下ctrl+s保存文件一右鍵單擊“模塊-導(dǎo)出文件f 指定文件名和路徑保存為.bas文件。4.3當(dāng)有excel文檔需要隱藏部分工作表時?！坝益I單擊工作表 標(biāo)簽”一查看代碼，打開“visual basic編輯器窗口” 一工程一右 鍵單擊vbaproject “excel文件名”況一導(dǎo)入文件一導(dǎo)入剛剛導(dǎo) 出的.bas文件。這是當(dāng)前工作簿中就會有對應(yīng)的3個宏了。4. 4在當(dāng)前文檔新建名稱為“password的工作表，然后將要隱 藏的丁作表名稱填入password工作表中a列1t0行單元格。最后執(zhí) 行“hide宏”，就可以實現(xiàn)工作表隱藏了。注意：password工作表中a列1t0行單元格填寫工作表名稱一 定要和當(dāng)前excel工作