脸上长痣如何去除安全:快速保护所有工作表或撤消所有工作表保护

来源:百度文库 编辑:中财网 时间:2024/04/29 07:56:52
快速保护所有工作表或撤消所有工作表保护 作者:未知 文章来源:www.excel123.cn 点击数: 231 更新时间:2011-1-6 12:21:47  

    有时需要让Excel工作簿中的每个工作表只能查看而不被修改,可以对所有的工作表进行保护,如果工作簿中的工作表数量较多,手动逐一操作十分繁琐。在工作表保护密码相同或不设置密码的情况下,用下面的方法可以快速保护所有工作表。

    1.按Alt+F11,打开VBA编辑器。单击菜单“视图→立即窗口”,或按Ctrl+G打开“立即窗口”。

    2.在“立即窗口”中输入下列代码,然后将光标定位到语句最后按回车键运行代码:

    For Each ws In Worksheets : ws.Protect Password:="123" : Next ws

    工作簿中所有的工作表即被保护,本例所设置的密码为“123”。如果要撤消所有工作表的保护,只需在立即窗口中输入下面的代码并回车运行:

    For Each ws In Worksheets : ws.Unprotect Password:="123" : Next ws