VBA实例(45)–批量保护所有工作表及批量解除保护

作品简介

假设你现在有一个包含多个工作表的工作簿,现在需要保护所有工作表。

通常在Excel中,只能使用“保护工作表”功能来逐一保护工作表。

也就是说,如果需要保护大量纸张,需要每个工作表都要点击操作一次,既繁琐又费时。


天就来分享一下如何在Excel中批量保护所有的工作表,以及批量解除保护。

批量保护所有工作表

使用以下VBA代码,即可实现批量保护所有工作表:图片

运行效果:


输入两次保护密码,即可实现保护所有工作表。所有工作表均已使用相同的密码保护

批量解除保护所有工作表

使用以下VBA代码,即可实现批量解除:

图片

运行效果:

输入保护密码,即可快速解除所有工作表的保护。

创作时间: