我们在用Excel制作表格时，为了防止使用者修改或者复制工作表，常常通过执行“工具→保护→保护工作表（簿）”命令，并设置密码加以保护。
如果经常要进行这样的操作，上述过程就显示有些麻烦了，下面我们在工具栏上添加四个按钮，方便对工作表（簿）的保护和撤销保护操作。
一、编辑宏
1、启动Excel2003（其它版本请仿照操作），执行“工具→宏→Visual Basic编辑器”命令，进入“Visual Basic编辑器”窗口（如图1）。
2、在右侧“工程资源管理器”窗口中，选中“VBAProject(PERSONAL.XLS)”选项，执行“插入→模块”命令，插入一个模块（“模块1”，参见图1）。
注意：选中“VBAProject(PERSONAL.XLS)”选项，制作的宏对所有工作簿有效；如果选中“VBAProject(Book1)”选项（参见图1），则制作的宏仅对Book1工作簿有效。
3、双击“模块1”展开右侧模块代码书写窗口，将下述代码输入其中：
Sub 保护工作表()
ActiveSheet.Protect Password:="123456"
End Sub
Sub 撤销表保护()
ActiveSheet.Unprotect ("123456")
End Sub
Sub 保护工作簿()
ActiveWorkbook.Protect Password:="654321"
End Sub
Sub 撤销簿保护()
ActiveWorkbook.Unprotect ("654321")
End Sub
注意：①运行上述4个宏，依次实现“保护工作表”、“撤销工作表保护”、“保护工作簿”、“撤销工作簿保护”操作。
②宏名称“保护工作表”等，你可以自动修改为其它字符。
③“保护工作表”的密码（123456）和“保护工作簿”的密码（6543321），请根据你自己的情况设置，二者可以相同。
④保护工作表（簿）和撤销工作表（簿）保护的密码要对应。
4、输入完成后，关闭“Visual Basic编辑器”窗口返回。
|
