Bom dia!!

Uma forma seria...

Em um módulo insira o código

Sub Desprotege()
Dim Sht As Worksheet

    For Each Sht In Application.Worksheets
        Sht.Unprotect ("MinhaSenha")
    Next
End Sub
Sub Protege()
Dim Sht As Worksheet

    For Each Sht In Application.Worksheets
        Sht.Protect Password:="MinhaSenha", DrawingObjects:=True, Contents:=True, Scenarios:=True
    Next

End Sub

...E caso você precisar chamala use essa forma.

Sub MacroparaTalCoisa()
    Call Desprotege
    'Seu código aqui
    Call Protege
End Sub

Att

Bom dia !

DrawingObjects:=True, Contents:=True, Scenarios:=True seria a mesma coisa que UserInterfaceOnly:=True ?

Boa tarde!

Veja as diferenças.
Fonte: http://www.ozgrid.com/VBA/excel-macro-p ... -sheet.htm

O UserInterFaceOnly é um argumento opcional do Protect Method que podemos definir como True, o padrão é False. Definindo esse argumento como True o Excel permitirá que todas as macros do VBA do Excel sejam executadas na Planilha que protegida com ou sem uma senha.

Fonte: https://msdn.microsoft.com/en-us/librar ... 40611.aspx

Syntax:
expression.Protect(Password, DrawingObjects, Contents, Scenarios, UserInterfaceOnly, AllowFormattingCells, AllowFormattingColumns, AllowFormattingRows, AllowInsertingColumns, AllowInsertingRows, AllowInsertingHyperlinks, AllowDeletingColumns, AllowDeletingRows, AllowSorting, AllowFiltering, AllowUsingPivotTables)

Att

Só aceita 3 números, poi se colocar 4 números, acontece erro de tempo de execução 1004

Qualquer senha da erro quando executo macro, pois acho que tem que ser mesmo UserInterfaceOnly:=True

Descobri, pois eu tenho que desproteger a planilha,trocar a senha e colocar depois a mesma senha no vba
Esse ponto você não explicou rs