首页 Office&WPS正文

自定按钮保护Excel工作表

mydiannao Office&WPS 09-12 3971 0
  我们在用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编辑器”窗口返回。

本站公告

【企业、公司、工作室、出租屋、家庭】
远程解决:网络异常,路由器配置,打印机设置,驱动安装,局域网文件共享,监控调试,电脑故障等电脑周边问题解决,欢迎咨询!
微信:1633694989