【VBA 保护工作表】

Sub 保护工作表()
  '
  ' 循环保护当前工作簿中的每个工作表
  For Each one In Worksheets
    one.Select
    '保护工作表，设置密码为123456
    ActiveSheet.Protect Password:=123456, _
    DrawingObjects:=True, Contents:=True, _
    Scenarios:=True
  Next one
End Sub
'撤销当前工作簿中所有工作表的保护
Sub 撤销工作表保护()
  For Each one In Worksheets
    one.Select
    ActiveSheet.Unprotect Password:=123456
  Next one
End Sub