自定按鈕保護Excel工作表（1）

[文章導讀]
 
　　我們在工具欄上添加四個(gè)按鈕，來(lái)完成保護（撤銷(xiāo)保護）操作……

　　我們在用Excel制作表格時(shí)，為了防止使用者修改或者復制工作表，常常通過(guò)執行“工具→保護→保護工作表（簿）”命令，并設置密碼加以保護。

　　如果經(jīng)常要進(jìn)行這樣的操作，上述過(guò)程就顯示有些麻煩了，下面我們在工具欄上添加四個(gè)按鈕，方便對工作表（簿）的保護和撤銷(xiāo)保護操作。
　　一、編輯宏

　　1、啟動(dòng)Excel2003（其它版本請仿照操作），執行“工具→宏→Visual Basic編輯器”命令，進(jìn)入“Visual Basic編輯器”窗口（如圖1）。

　　2、在右側“工程資源管理器”窗口中，選中“VBAProject(PERSONAL.XLS)”選項，執行“插入→模塊”命令，插入一個(gè)模塊（“模塊1”，參見(jiàn)圖1）。

　　注意：選中“VBAProject(PERSONAL.XLS)”選項，制作的宏對所有工作簿有效；如果選中“VBAProject(Book1)”選項（參見(jiàn)圖1），則制作的宏僅對Book1工作簿有效。

　　3、雙擊“模塊1”展開(kāi)右側模塊代碼書(shū)寫(xiě)窗口，將下述代碼輸入其中：

　　Sub 保護工作表()
　　ActiveSheet.Protect Password:="123456"
　　End Sub 字串9

　　Sub 撤銷(xiāo)表保護()
　　ActiveSheet.Unprotect ("123456")
　　End Sub 字串9

　　Sub 保護工作簿()
　　ActiveWorkbook.Protect Password:="654321"
　　End Sub 字串8

　　Sub 撤銷(xiāo)簿保護()
　　ActiveWorkbook.Unprotect ("654321")
　　End Sub

　　注意：①運行上述4個(gè)宏，依次實(shí)現“保護工作表”、“撤銷(xiāo)工作表保護”、“保護工作簿”、“撤銷(xiāo)工作簿保護”操作。
　�、诤昝�稱(chēng)“保護工作表”等，你可以自動(dòng)修改為其它字符。
　�、邸氨Ｗo工作表”的密碼（123456）和“保護工作簿”的密碼（6543321），請根據你自己的情況設置，二者可以相同。
　�、鼙Ｗo工作表（簿）和撤銷(xiāo)工作表（簿）保護的密碼要對應。

　　4、輸入完成后，關(guān)閉“Visual Basic編輯器”窗口返回。

【自定按鈕保護Excel工作表1】相關(guān)文章：

自定按鈕保護Excel工作表（2）11-11

Excel：工作表錦上添花11-11

Excel中三表“嵌套”成一表11-11

Excel 2002制作自動(dòng)記錄的考勤表(3)11-11

Excel 2002制作自動(dòng)記錄的考勤表(2)11-11

按鈕圖標來(lái)這里找 可以獲得現成的按鈕圖標11-11

讓Excel說(shuō)話(huà)11-11

EXCEL兩則技巧11-11

“蓋章”—我選用Excel11-11