Excel VBAのパスワード保護が破損しているように見える

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

私はあなたのコードを試してみましたが、それが妙に演技を始め - 私はそれがために二つの別々のラインに上の壊れている最後の2行のだと思います。それらを組み合わせると、ワークシートを保護すると保護のパラメータを変更できなくなると思うので、正しく動作するはずです。

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