Защита паролем 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

Я попробовал ваш код, и он начал работать странно - я думаю, что это из-за двух последних строк, которые разбиты на две отдельные строки.Если вы объедините их, то все должно работать правильно, так как я считаю, что, защитив рабочий лист, вы не сможете изменить параметры защиты.

Попробуйте вместо этого следующий код:

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