如何把密码写入代码,让VBA自动撤销工作表保护 / 工作簿保护（使用VBA代码 保护工作表 / 工作簿 和取消保护工作表 / 工作簿）

 对工作表的操作——worksheet    其中的"123"  是密码  下面同理

Sub test_worksheet_key()
    ActiveSheet.Protect ("123") '加密
    ActiveSheet.Unprotect ("123") '解密
End Sub

  对工作簿的操作——workbook

Sub test_workbook_key()
    ActiveWorkbook.Protect ("123"), Structure:=True, Windows:=False '保护结构
    ActiveWorkbook.Unprotect ("123")
End Sub