Macro vba do excel com erro no calc

oueltonmorais · May 31, 2023, 8:27pm

Estou migrando para o LibreOffice, e estou com problemas para executar a seguinte função VBA que uso na planilha Excel:

Option VBASupport 1
Private Sub Workbook_Open()
Dim NomePC As String
NomePC = Environ(“ComputerName”)

If NomePC = "ECOTECA99" Or NomePC = "SIRIEMA" Or NomePC = "CASAECAMPO" Then
   MsgBox "Este PC tem permissão para abrir esse arquivo Excel."
 ActiveWorkbook.Unprotec "V0(ddw[=S!~E1'k4=TOSUyFuz])"
   Worksheets("Lançar").Visible = True
Else
   MsgBox "Este PC não tem permissão para abrir esse arquivo Excel. Ligue: (69)98486-7020."
   ActiveWorkbook.Close savechanges:=False
   Exit Sub
End If

End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Worksheets(“Lançar”).Visible = False
ActiveWorkbook.Protect “V0(ddw[=S!~E1’k4=TOSUyFuz])”
ThisWorkbook.Save
End Sub
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
If SaveAsUI = True Then
Cancel = True
Application.EnableEvents = False
ThisWorkbook.Save
MsgBox “A Opção ‘Salvar Como’ está desabilitada! Ligue: (69)98486-7020.”
Application.EnableEvents = True
End If
End Sub