- 相關(guān)推薦
自定按鈕保護(hù)Excel工作表（1）
[文章導(dǎo)讀]
我們?cè)诠ぞ邫谏咸砑铀膫�(gè)按鈕，來(lái)完成保護(hù)（撤銷保護(hù)）操作……
我們?cè)谟肊xcel制作表格時(shí)，為了防止使用者修改或者復(fù)制工作表，常常通過(guò)執(zhí)行“工具→保護(hù)→保護(hù)工作表（簿）”命令，并設(shè)置密碼加以保護(hù)。
如果經(jīng)常要進(jìn)行這樣的操作，上述過(guò)程就顯示有些麻煩了，下面我們?cè)诠ぞ邫谏咸砑铀膫�(gè)按鈕，方便對(duì)工作表（簿）的保護(hù)和撤銷保護(hù)操作。
一、編輯宏
1、啟動(dòng)Excel2003（其它版本請(qǐng)仿照操作），執(zhí)行“工具→宏→Visual Basic編輯器”命令，進(jìn)入“Visual Basic編輯器”窗口（如圖1）。
2、在右側(cè)“工程資源管理器”窗口中，選中“VBAProject(PERSONAL.XLS)”選項(xiàng)，執(zhí)行“插入→模塊”命令，插入一個(gè)模塊（“模塊1”，參見(jiàn)圖1）。
注意：選中“VBAProject(PERSONAL.XLS)”選項(xiàng)，制作的宏對(duì)所有工作簿有效；如果選中“VBAProject(Book1)”選項(xiàng)（參見(jiàn)圖1），則制作的宏僅對(duì)Book1工作簿有效。
3、雙擊“模塊1”展開(kāi)右側(cè)模塊代碼書(shū)寫(xiě)窗口，將下述代碼輸入其中：
Sub 保護(hù)工作表()
ActiveSheet.Protect Password:="123456"
End Sub 字串9
Sub 撤銷表保護(hù)()
ActiveSheet.Unprotect ("123456")
End Sub 字串9
Sub 保護(hù)工作簿()
ActiveWorkbook.Protect Password:="654321"
End Sub 字串8
Sub 撤銷簿保護(hù)()
ActiveWorkbook.Unprotect ("654321")
End Sub
注意：①運(yùn)行上述4個(gè)宏，依次實(shí)現(xiàn)“保護(hù)工作表”、“撤銷工作表保護(hù)”、“保護(hù)工作簿”、“撤銷工作簿保護(hù)”操作。
�、诤昝Q“保護(hù)工作表”等，你可以自動(dòng)修改為其它字符。
�、邸氨Ｗo(hù)工作表”的密碼（123456）和“保護(hù)工作簿”的密碼（6543321），請(qǐng)根據(jù)你自己的情況設(shè)置，二者可以相同。
④保護(hù)工作表（簿）和撤銷工作表（簿）保護(hù)的密碼要對(duì)應(yīng)。
4、輸入完成后，關(guān)閉“Visual Basic編輯器”窗口返回。
【自定按鈕保護(hù)Excel工作表1】相關(guān)文章：
Excel：工作表錦上添花11-11
Excel中三表“嵌套”成一表11-11
Excel 2002制作自動(dòng)記錄的考勤表(3)11-11
Excel 2002制作自動(dòng)記錄的考勤表(2)11-11
按鈕圖標(biāo)來(lái)這里找 可以獲得現(xiàn)成的按鈕圖標(biāo)11-11
讓Excel說(shuō)話11-11
EXCEL兩則技巧11-11
“蓋章”—我選用Excel11-11