- 相关推荐
自定按钮保护Excel工作表（1）
[文章导读]
我们在工具栏上添加四个按钮，来完成保护（撤销保护）操作……
我们在用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 字串9
Sub 撤销表保护()
ActiveSheet.Unprotect ("123456")
End Sub 字串9
Sub 保护工作簿()
ActiveWorkbook.Protect Password:="654321"
End Sub 字串8
Sub 撤销簿保护()
ActiveWorkbook.Unprotect ("654321")
End Sub
注意：①运行上述4个宏，依次实现“保护工作表”、“撤销工作表保护”、“保护工作簿”、“撤销工作簿保护”操作。
②宏名称“保护工作表”等，你可以自动修改为其它字符。
③“保护工作表”的密码（123456）和“保护工作簿”的密码（6543321），请根据你自己的情况设置，二者可以相同。
④保护工作表（簿）和撤销工作表（簿）保护的密码要对应。
4、输入完成后，关闭“Visual Basic编辑器”窗口返回。
【自定按钮保护Excel工作表1】相关文章：
快速删除Word不常用的按钮和菜单07-31
解决Excel数值进位问题07-31
解决Excel求和产生的误差07-31
Excel打印故障问答锦囊07-31
构造Excel动态图表07-31
四招打造Excel函数高手07-31
巧用Excel帮助你查邮编07-31
Excel快速录入小数技巧07-31
向Excel中快速输入相同文本07-31
Excel中快速输入有相同特征的数据07-31