Excel VBA密碼保護出現中斷

我以前從未見過這樣的事情。我用這個代碼來設置密碼Excel VBA密碼保護出現中斷

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

我遇到的是，設置密碼，然後保存工作簿後，當我回來後的密碼不再有效的問題。我必須使用密碼破解器來取消保護表格。

有沒有人有任何信息？我一直在谷歌搜索，似乎無法找到答案。

來源

2011-03-01 CABecker

的進一步信息。工作簿中的另一張工作表使用相同的密碼進行保護，但它被完全鎖定並已使用功能區上的命令鎖定。此工作表的行爲如預期。任何線索呢？因爲我出去了... – CABecker

我試過你的代碼，它開始奇怪的行爲 - 我認爲這是因爲最後兩行被分解到兩個單獨的行。如果將它們合併，那麼事情應該正常工作，因爲我相信一旦保護了工作表，就不能再修改保護參數。

嘗試下面的代碼，而不是：

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

來源

2011-03-18 13:34:16

Excel VBA密碼保護出現中斷

回答

相關問題