自定按钮保护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编辑器”窗口返回。