Question

我以前从未见过这样的事情。我使用此代码设置密码

Impact_Chart.Unprotect Password:="********" 

With Impact_Chart
    .Range("A19:N19").Locked = False

    .Shapes("Button 36").Locked = False
    .Shapes("Button 19").Locked = False
    .Shapes("Button 37").Locked = False
    .Shapes("Button 38").Locked = False
    .Protect Password:="********", Userinterfaceonly:=True
    .Protect AllowInsertingRows = True, AllowFormattingCells:=True, AllowSorting:=True
End With

我遇到的问题是，在设置密码后，保存工作簿是因为我稍后回来时密码不再有效。我必须使用密码破解程序取消保护工作表。

有没有人有任何信息？我整个上午一直在谷歌搜索，似乎无法找到答案。

Answer 1

我尝试了你的代码并开始表现得很奇怪 - 我认为这是因为最后两行被分成两行。如果你把它们组合起来，那么事情应该正常工作，因为我相信一旦你保护工作表，你就无法修改保护的参数。

请尝试使用以下代码：

Impact_Chart.Unprotect Password:="********" 

With Impact_Chart
    .Range("A19:N19").Locked = False

    .Shapes("Button 36").Locked = False
    .Shapes("Button 19").Locked = False
    .Shapes("Button 37").Locked = False
    .Shapes("Button 38").Locked = False
    .Protect Password:="********", Userinterfaceonly:=True, AllowInsertingRows:=True, AllowFormattingCells:=True, AllowSorting:=True
End With

Excel VBA密码保护显示已损坏

1 个答案: