如何选择性地给工作表添加和解除密码保护

glhfgtd

如图，请问有没有办法用VBA做个按钮，点一下，则给除了工作表名为"P&L"、"BS"、"CF"以外的所有其它工作表添加密码保护，
再点一下，则给除了工作表名为"P&L"、"BS"、"CF"以外的所有其它工作表解除密码保护。
换句话说，就是忽略名字为"P&L"、"BS"、"CF"的工作表，并给其余的所有工作表添加密码保护和解除密码保护。