Pergunte aqui

Histórico de revisões [voltar]

clique para ocultar/mostrar a revisão 1
Versão inicial

Ok Gilberto , tive dificuldade para inserir a senha na macro que desprotege e protege, mas no final deu certo, segue a macro:

Option VBASupport 1 Option Compatible

' Macro para Desproteger a planilha sub desprotege_protege ' desprotege Planilha

Dim oDoc As Object, oPlan As Object

oDoc = ThisComponent
oPlan = oDoc.Sheets.getByName( "NOME DA PLANILHA" )


oPlan.Unprotect( "DIGITE_AQUI_ A_SENHA" )

' ' Insira aqui a Macro para Ordenar ou executar outra operação conforme sua necessidade

' protege a planilha ' oPlan.Protect( "DIGITE_AQUI_A_SENHA" )

end sub

Ok Gilberto , tive dificuldade para inserir a senha na macro que desprotege e protege, mas no final deu certo, segue a macro:

Option VBASupport 1
Option Compatible

Compatible

' Macro para Desproteger a planilha sub desprotege_protege ' desprotege Planilha

desprotege_planilha

Dim oDoc As Object, oPlan As Object

Object
oDoc = ThisComponent
oPlan = oDoc.Sheets.getByName( "NOME DA PLANILHA" "Nome da Planilha" )
 oPlan.Unprotect( "Senha" )

'Insira aqui a macro para executar a ação que deseja (Ordenar, mesclar, etc)
 oPlan.Unprotect( "DIGITE_AQUI_ A_SENHA" )

  ' Proteger a planilha

oPlan.Protect( "Senha" )   

end sub

' ' Insira aqui a Macro para Ordenar ou executar outra operação conforme sua necessidade

' protege a planilha ' oPlan.Protect( "DIGITE_AQUI_A_SENHA" )

end sub