通过VBA代码解决。
首先你得启用宏才行。启用宏的办法:
Excel2003:工具→宏→安全性,将宏安全性设为低。保存并关闭工作簿,重新打开。
Excel2007: 左上角圆形Office按钮→右下角Excel选项→信任中心→信任中心设置→宏设置,启用所有宏。保存并关闭工作簿,重新打开。(宏设置要重启Excel才生效)
Excel2007以上版本也差不多,可以在Excel帮助中搜“宏设置”看方法。
不要担心“不推荐”这个字眼。我提供的代码绝对安全的。完成宏设置后按如下操作:
1) 下载附件工作簿
2) 打开你的工作簿,并打开附件工作簿(此时只能看到你的工作簿,附件工作簿是不可见的)
3)按快捷键Ctrl+Shift+K,会要求你输入密码。输入密码后确定。
4)Excel会自动取消你工作簿所有表格的保护,并告知成功多少,如果有失败的则告诉你那些失败。
具体代码如下,仅供参考,知不知道无所谓。
Sub UnProtectSheet()但又要如何一次性将这些表格上锁呢?
追答如果上锁,按如下修改:
第8行改为:
sht.Protect strCode第17行改为:
但是以上不够严谨,因为工作表保护只对锁定的单元格生效,还应该在第8行前加一行:
sht.Cells.Locked = True以上仅供参考。
把代码复制到你的宏模块下;把代码中123的地方,改成你工作表的密码。运行即可;