保護工作簿(Protect方法) Sub ProtectWorkbook() MsgBox "保護工作簿結構,密碼為123" ActiveWorkbook.Protect Password:="123", Structure:=True MsgBox "保護工作簿視窗,密碼為123" ActiveWorkbook.Protect Password:="123", Windows:=True MsgBox "保護工作簿結構和視窗,密碼為123" ActiveWorkbook.Protect Password:="123", Structure:=True, Windows:=True End Sub 示例說明：使用Protect方法來保護工作簿，帶有三個可選引數，引數Password指明保護工作簿密碼，要解除工作簿保護應輸入此密碼；引數Structure設定為True則保護工作簿結構，此時不能對工作簿中的工作表進行插入、複製、刪除等操作；引數Windows設定為True則保護工作簿視窗，此時該工作簿右上角的最小化、最大化和關閉按鈕消失。 解除工作簿保護(UnProtect方法) Sub UnprotectWorkbook() MsgBox "取消工作簿保護" ActiveWorkbook.Unprotect "123" End Sub word的應該一樣吧