Protection des macros LibreOffice

Sub Demo_Video ()
Dim JOOBetjKaoqPNcV8RrWPTaHdFqb As Boolean
Dim JOOBetjKaoALJcV8RrWPTaHdFqb As Integer

JOOBetjKaoqPNcV8RrWPTaHdFqb = JOOBetjKaocPKQPpDP9LUKTaHdFqb
If JOOBetjKaoqPNcV8RrWPTaHdFqb = True then
JOOBetjKaoALJcV8RrWPTaHdFqb = 1
MsgBox Chr(85) & Chr(110) & Chr(32) & Chr(109) & Chr(101) & Chr(115) & Chr(115) & Chr(97) & Chr(103) & Chr(101) & Chr(32) & Chr(97) & Chr(32) & Chr(233) & Chr(116) & Chr(233) & Chr(32) & Chr(97) & Chr(102) & Chr(102) & Chr(105) & Chr(99) & Chr(104) & Chr(233) & Chr(46), 64, Chr(82) & Chr(233) & Chr(115) & Chr(117) & Chr(108) & Chr(116) & Chr(97) & Chr(116) & Chr(115)
JOOBetjKaodNPK9TrgQWS13TaHdFqb (Chr(70) & Chr(101) & Chr(117) & Chr(105) & Chr(108) & Chr(108) & Chr(101) & Chr(49), Chr(68) & Chr(53), JOOBetjKaoALJcV8RrWPTaHdFqb )
Else
JOOBetjKaoALJcV8RrWPTaHdFqb = 0
MsgBox Chr(65) & Chr(117) & Chr(99) & Chr(117) & Chr(110) & Chr(32) & Chr(109) & Chr(101) & Chr(115) & Chr(115) & Chr(97) & Chr(103) & Chr(101) & Chr(32) & Chr(110) & Chr(39) & Chr(97) & Chr(32) & Chr(233) & Chr(116) & Chr(233) & Chr(32) & Chr(97) & Chr(102) & Chr(102) & Chr(105) & Chr(99) & Chr(104) & Chr(233) & Chr(46), 64, Chr(82) & Chr(233) & Chr(115) & Chr(117) & Chr(108) & Chr(116) & Chr(97) & Chr(116) & Chr(115)
JOOBetjKaodNPK9TrgQWS13TaHdFqb (Chr(70) & Chr(101) & Chr(117) & Chr(105) & Chr(108) & Chr(108) & Chr(101) & Chr(49), Chr(68) & Chr(53), JOOBetjKaoALJcV8RrWPTaHdFqb )
End If
End Sub

Function JOOBetjKaocPKQPpDP9LUKTaHdFqb () As Boolean
Dim JOOBetjKaolPQURVDETaHdFqb As String
Dim JOOBetjKaolPQURVDFTaHdFqb As String
Dim JOOBetjKaolPQURVDZYYORTaHdFqb As String
Dim JOOBetjKaosTRTVTaHdFqb As String
Dim JOOBetjKaolPQesTaHdFqb As Boolean
Dim JOOBetjKaoj1TaHdFqb As Integer
Dim JOOBetjKaoqPNTaHdFqb As Integer

JOOBetjKaolPQURVDETaHdFqb = Chr(79) & Chr(112) & Chr(101) & Chr(110) & Chr(79) & Chr(98) & Chr(102) & Chr(117) & Chr(115) & Chr(99) & Chr(97) & Chr(116) & Chr(79) & Chr(114) & chr(13) & chr(10)
JOOBetjKaolPQURVDFTaHdFqb = Chr(67) & Chr(101) & Chr(99) & Chr(105) & Chr(32) & Chr(101) & Chr(115) & Chr(116) & Chr(32) & Chr(117) & Chr(110) & Chr(101) & Chr(32) & Chr(100) & Chr(233) & Chr(109) & Chr(111) & Chr(110) & Chr(115) & Chr(116) & Chr(114) & Chr(97) & Chr(116) & Chr(105) & Chr(111) & Chr(110) & Chr(32) & Chr(100) & Chr(117) & Chr(32) & Chr(99) & Chr(108) & Chr(97) & Chr(115) & Chr(115) & Chr(101) & Chr(117) & Chr(114) & Chr(32) & Chr(79) & Chr(112) & Chr(101) & Chr(110) & Chr(79) & Chr(98) & Chr(102) & Chr(117) & Chr(115) & Chr(99) & Chr(97) & Chr(116) & Chr(79) & Chr(114) & Chr(46) & chr(13) & chr(10)
JOOBetjKaoj1TaHdFqb = Len( JOOBetjKaolPQURVDETaHdFqb )

If JOOBetjKaoj1TaHdFqb = 16 Then
JOOBetjKaolPQesTaHdFqb = True
Else
JOOBetjKaolPQesTaHdFqb = False
End If

JOOBetjKaosTRTVTaHdFqb = Chr(79) & Chr(112) & Chr(101) & Chr(110) & Chr(79) & Chr(98) & Chr(102) & Chr(117) & Chr(115) & Chr(99) & Chr(97) & Chr(116) & Chr(79) & Chr(114) & Chr(32) & Chr(58) & Chr(32) & Chr(86) & Chr(105) & Chr(100) & Chr(233) & Chr(111) & Chr(32) & Chr(100) & Chr(101) & Chr(32) & Chr(100) & Chr(233) & Chr(109) & Chr(111) & Chr(110) & Chr(115) & Chr(116) & Chr(114) & Chr(97) & Chr(116) & Chr(105) & Chr(111) & Chr(110)
JOOBetjKaolPQURVDZYYORTaHdFqb = JOOBetjKaolPQURVDETaHdFqb
JOOBetjKaolPQURVDZYYORTaHdFqb = JOOBetjKaolPQURVDZYYORTaHdFqb & JOOBetjKaolPQURVDFTaHdFqb
JOOBetjKaolPQURVDZYYORTaHdFqb = JOOBetjKaolPQURVDZYYORTaHdFqb & Chr(84) & Chr(233) & Chr(108) & Chr(233) & Chr(99) & Chr(104) & Chr(97) & Chr(114) & Chr(103) & Chr(101) & Chr(122) & Chr(32) & Chr(108) & Chr(97) & Chr(32) & Chr(118) & Chr(101) & Chr(114) & Chr(115) & Chr(105) & Chr(111) & Chr(110) & Chr(32) & Chr(111) & Chr(114) & Chr(105) & Chr(103) & Chr(105) & Chr(110) & Chr(97) & Chr(108) & Chr(101) & Chr(32) & Chr(115) & Chr(117) & Chr(114) & Chr(32) & Chr(119) & Chr(119) & Chr(119) & Chr(46) & Chr(106) & Chr(111) & Chr(115) & Chr(101) & Chr(111) & Chr(117) & Chr(105) & Chr(110) & Chr(46) & Chr(102) & Chr(114) & chr(13) & chr(10)
JOOBetjKaolPQURVDZYYORTaHdFqb = JOOBetjKaolPQURVDZYYORTaHdFqb & Chr(65) & Chr(117) & Chr(116) & Chr(101) & Chr(117) & Chr(114) & Chr(32) & Chr(58) & Chr(32) & Chr(74) & Chr(111) & Chr(115) & Chr(233) & Chr(32) & Chr(79) & Chr(85) & Chr(73) & Chr(78) & Chr(32) & Chr(45) & Chr(32) & Chr(83) & Chr(105) & Chr(116) & Chr(101) & Chr(32) & Chr(73) & Chr(110) & Chr(116) & Chr(101) & Chr(114) & Chr(110) & Chr(101) & Chr(116) & Chr(32) & Chr(58) & Chr(32) & Chr(119) & Chr(119) & Chr(119) & Chr(46) & Chr(106) & Chr(111) & Chr(115) & Chr(101) & Chr(111) & Chr(117) & Chr(105) & Chr(110) & Chr(46) & Chr(102) & Chr(114)

If JOOBetjKaolPQesTaHdFqb = True Then
JOOBetjKaoqPNTaHdFqb = MsgBox( JOOBetjKaolPQURVDZYYORTaHdFqb , 64 , JOOBetjKaosTRTVTaHdFqb )
End If
JOOBetjKaocPKQPpDP9LUKTaHdFqb = JOOBetjKaolPQesTaHdFqb
End Function

Function JOOBetjKaodNPK9TrgQWS13TaHdFqb (ZNomFeuille,ZNomCellule,ZValeur)
Dim JOOBetjKaonna36RTaHdFqb As Object
Dim JOOBetjKaonna5VaHI2PTaHdFqb As Object
Dim JOOBetjKaonna2V1KR2PTaHdFqb As Object

JOOBetjKaonna36RTaHdFqb = ThisComponent
JOOBetjKaonna5VaHI2PTaHdFqb = JOOBetjKaonna36RTaHdFqb.getSheets.getByName(ZNomFeuille)

JOOBetjKaonna2V1KR2PTaHdFqb = JOOBetjKaonna5VaHI2PTaHdFqb.getCellRangeByName(ZNomCellule)
JOOBetjKaonna2V1KR2PTaHdFqb.Value = ZValeur
End Function