可以在代码中设置工作表的保护密码，假设您的保护密码是“123”，可以用下面代码试试：
放在代码的前部
ActiveSheet.Unprotect Password:=123 '撤消工作表保护
放在代码的尾部
ActiveSheet.Protect Password:=123 ' 保护工作表并设置密码