Restabeleça a proteção da planilha ao salvar e fechar

Question

Atualmente, tenho um código do VBA que desprotegerá automaticamente todas as planilhas do meu arquivo do Excel 2016 por nome de usuário.

Atualmente,quandoabrooarquivo,elepedeumasenha.Eunãoqueroissoparapedirumasenha,eusóquerodesprotegertodasasfolhasseonomedeusuáriodapessoaqueoabrecoincidircomoqueestaránocódigo.

Digamosqueeuestejaautorizadoafazeralteraçõesnapastadetrabalho,abri-laeTODASasfolhasestãodesprotegidas.Eufaçoalgumasalterações,masquerorestabelecerautomaticamenteaproteçãoqueeuconfigureiemcadaplanilhaenquantosalvoasalteraçõesfeitas.

Ousuáriofinalqueestarápreenchendoasplanilhasnãotemacessoparaalterarnadaabreoarquivoetodaaproteçãoqueeuconfigureinolugareativa.Atualmenteestouusandoestecódigo,masnãoestáfuncionando.

PrivateSubWorkbook_BeforeClose(CancelAsBoolean)Sheets("ADD-EXTEND").Protect Password:="SPAR"
      ActiveWorkbook.Save
 End Sub

P.S. Este sub está abaixo do código para desbloquear as folhas no ThisWorkbook?

    

Answer 1

A captura de tela abaixo deve ser suficiente para você começar, é bastante autoexplicativa: