你可以建一个宏模块，把下面的内容加进去：
Sub SetPSW()
Dim i, num As Integer
num = Sheets.Count
For i = 1 To num
Sheets(i).Protect (＂123456＂)
Next i
End Sub
Sub SetUnPSW()
Dim i, num As Integer
num = Sheets.Count
For i = 1 To num
Sheets(i).Unprotect (＂123456＂)
Next i
End Sub
第一个是把所有的工作表加上密码，第二个是把所有的工作表取消保护。
