excel - 如何使用VBA保护Excel工作簿？

Question

通过像复选框这样的触发器，我想保护我的工作簿。我尝试过 Excel 2003:

thisworkbook.protect("password",true,true)

thisworkbook.unprotect("password")

它不工作。有什么建议吗？

Answer 1

我同意@Richard Morgan...你正在做的事情应该有效，因此可能需要更多信息。

微软对options to protect your Excel 2003 worksheets有一些建议.

这里有更多信息...

来自帮助文件(保护方法):

expression.Protect(Password, Structure, Windows)

表达式必需。返回 Workbook 对象的表达式。

密码可选变体。指定工作表或工作簿密码(区分大小写)的字符串。如果省略此参数，您可以取消对工作表或工作簿的保护，而无需使用密码。否则，您必须指定密码才能取消对工作表或工作簿的保护。如果忘记密码，则无法取消对工作表或工作簿的保护。最好将您的密码及其相应文档名称的列表保存在安全的地方。

结构可选变体。为真，可以保护工作簿的结构(工作表的相对位置)。默认值为 False。

Windows 可选变体。如果为 True，则保护工作簿窗口。如果省略此参数，则窗口不 protected 。

ActiveWorkbook.Protect Password:="password", Structure:=True, Windows:=True

如果您想在工作表级别工作，几年前当我需要保护/取消保护时我使用了类似的东西:

Sub ProtectSheet()
    ActiveSheet.Protect "password", True, True
End Sub

Sub UnProtectSheet()
    ActiveSheet.Unprotect "password"
End Sub

Sub protectAll()
    Dim myCount
    Dim i
    myCount = Application.Sheets.Count
    Sheets(1).Select
    For i = 1 To myCount
        ActiveSheet.Protect "password", true, true
        If i = myCount Then
            End
        End If
        ActiveSheet.Next.Select
    Next i
End Sub