对工作表的操作——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