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

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

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

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

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

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

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

7、它們高級(jí)隱藏。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這段代碼會(huì)將文檔中全部工作表顯示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文檔需要隱藏部分工作表時(shí)?！坝益I單擊工作表 標(biāo)簽”一查看代碼，打開(kāi)“visual basic編輯器窗口” 一工程一右 鍵單擊vbaproject “excel文件名”況一導(dǎo)入文件一導(dǎo)入剛剛導(dǎo) 出的.bas文件。這是當(dāng)前工作簿中就會(huì)有對(duì)應(yīng)的3個(gè)宏了。4. 4在當(dāng)前文檔新建名稱為“password的工作表，然后將要隱 藏的丁作表名稱填入password工作表中a列1t0行單元格。最后執(zhí) 行“hide宏”，就可以實(shí)現(xiàn)工作表隱藏了。注意：password工作表中a列1t0行單元格填寫(xiě)工作表名稱一 定要和當(dāng)前excel工作