Ola @mlmacatto, tenho estas duas macros…
'' Proteção de Planilha = Sub SheetProtection ( oSheet$, oSenha$, onoff$ )
Sub SheetProtection ( oSheet$, oSenha$, onoff$ )
Select Case onoff
Case "on" : ThisComponent.Sheets.getByName( oSheet ).Protect( oSenha )
Case "off" : ThisComponent.Sheets.getByName( oSheet ).Unprotect( oSenha )
Case Else : MsgBox "Error", 0, "SheetProtection"
End select
End Sub
'' Proteção de Planilha ativa = Sub ActiveSheetProtection ( oSenha$, onoff$ )
Sub ActiveSheetProtection ( oSenha$, onoff$ )
Select Case onoff
Case "on" : ThisComponent.getCurrentController.getActiveSheet().Protect( oSenha )
Case "off" : ThisComponent.getCurrentController.getActiveSheet().Unprotect( oSenha )
Case Else : MsgBox "Error", 0, "ActiveSheetProtection"
End select
End Sub
EXEMPLO de uso:
Sub ProtegerPlanAtiva
ActiveSheetProtection "Senhaa", "on"
End Sub
Sub DesprotegerPlanAtiva
ActiveSheetProtection "Senhaa", "off"
End Sub
Observação, Caso queira dificultar a descoberta da senha, cria no arquivo, uma Biblioteca diferente da Standard, assim poderá por senha na Biblioteca também.