[Resolvido] Macro para desbloquear e bloquear planilha

ncezarcf disse:

Pessoal, consegui resolver a pendência da minha planilha.

Obrigado.

Seria interessante colocar aqui como resolveu - assim pode ajudar alguém que tenha a mesma dificuldade.

Sub ProtegerDesprotegerPlanilha()



'desproteger a planilha

ActiveSheet.Unprotect

 

  'aqui o seu código para executar ações na planilha não protegida

 

'proteger a planilha

ActiveSheet.Protect: ActiveSheet.EnableSelection = xlUnlockedCells

Sub protegerdesproteger()



'Variável para DESBLOQUEAR a planilha.

Dim pswStr As String

'Update by ExtendOffice 20181106

'Linha abaixo sem senha.

    pswStr = ""

    On Error Resume Next

   Application.ScreenUpdating = False

   ActiveSheet.Unprotect Password:=pswStr



‘Inserir código principal aqui



'Após, a planilha volta a ser BLOQUEADA automaticamente.

ActiveSheet.Protect Password:=pswStr, DrawingObjects:=true, _

                        Contents:=True, Scenarios:=true, _

                        AllowFormattingCells:=True, AllowFormattingColumns:=True, _

                        AllowFormattingRows:=True, AllowInsertingColumns:=True, _

                        AllowInsertingRows:=True, AllowInsertingHyperlinks:=True, _

                        AllowDeletingColumns:=True, AllowDeletingRows:=True, _

                        AllowSorting:=True, AllowFiltering:=True, _

                        AllowUsingPivotTables:=True





End Sub