Boa tarde pessoal,
Estou com um código que ele bloqueia uma aba de pois que eu faço um lançamento, só que se eu for em revisão e desbloquear ela será desbloqueada, eu gostaria que isso não acontecesse... segue o código que utilizo.

Public Sub lsIncluirLancamento()
 Dim lUltimaLinhaAtiva As Long
 Dim url As String
 url = Plan2.Cells(17, 3)

 lUltimaLinhaAtiva = Worksheets("Registro de Inventário").Cells(Worksheets("Registro de Inventário").Rows.Count, 1).End(xlUp).Row + 1

 Sheets("Registro de Inventário").Unprotect
 Application.ScreenUpdating = False

 'Produto
 Worksheets("Registro de Inventário").Cells(lUltimaLinhaAtiva, 1).Value = Worksheets("Entrada e Saída").Range("C3").Value

 'Produto
 Worksheets("Registro de Inventário").Cells(lUltimaLinhaAtiva, 2).Value = Worksheets("Entrada e Saída").Range("C4").Value

 'Tipo movimento
 If (Worksheets("Entrada e Saída").Range("C9").Value = "Entrada") Then
 Worksheets("Registro de Inventário").Cells(lUltimaLinhaAtiva, 4).Value = "E"
 Else
 Worksheets("Registro de Inventário").Cells(lUltimaLinhaAtiva, 4).Value = "S"
 End If

 'Data
 Worksheets("Registro de Inventário").Cells(lUltimaLinhaAtiva, 5).Value = Worksheets("Entrada e Saída").Range("C10").Value

 'Quantidade
 Worksheets("Registro de Inventário").Cells(lUltimaLinhaAtiva, 6).Value = Worksheets("Entrada e Saída").Range("C11").Value

 'Valor unitário
 Worksheets("Registro de Inventário").Cells(lUltimaLinhaAtiva, 7).Value = Worksheets("Entrada e Saída").Range("C12").Value

 'Operação Fiscal
 Worksheets("Registro de Inventário").Cells(lUltimaLinhaAtiva, 8).Value = Worksheets("Entrada e Saída").Range("C8").Value

 'Série
 Worksheets("Registro de Inventário").Cells(lUltimaLinhaAtiva, 9).Value = Worksheets("Entrada e Saída").Range("C14").Value

 'Nota Fiscal
 Worksheets("Registro de Inventário").Cells(lUltimaLinhaAtiva, 10).Value = Worksheets("Entrada e Saída").Range("C15").Value

 'Fornecedor/Cliente
 Worksheets("Registro de Inventário").Cells(lUltimaLinhaAtiva, 11).Value = Worksheets("Entrada e Saída").Range("C16").Value

 'Operação Fiscal
 Plan4.Cells(lUltimaLinhaAtiva, 12).Hyperlinks.Add Anchor:=Plan4.Cells(lUltimaLinhaAtiva, 12), Address:=url, TextToDisplay:="Nota Fiscal"
 'Ordem de Compra
 Worksheets("Registro de Inventário").Cells(lUltimaLinhaAtiva, 3).Value = Worksheets("Entrada e Saída").Range("C18").Value

 'Limpa o movimento
 lsLimpaMovimento

 Application.ScreenUpdating = True
 Sheets("Registro de Inventário").Protect

End Sub

Será que tem algum jeito de colocar uma senha no macro e ele desbloquear com essa senha e bloqueai de novo com a senha?