Protéger mon programme Excel

Private Function iiiijqiiiijl%(iiiijjiiiijp() As Byte, iiiipiiiiipq&)
iiiijqiiiijl = iiiijjiiiijp(iiiipiiiiipq)
iiiipiiiiipq = iiiipiiiiipq + 1
End Function
Private Function iiiipliiiipj$(iiiijjiiiijp() As Byte, iiiipiiiiipq&, Optional ByVal iiiippiiiqii& = -1)
Dim iiiqiqiiiqil&
If iiiippiiiqii = -1 Then
iiiqiqiiiqil = iiiipiiiiipq: iiiippiiiqii = 0
Do While iiiijjiiiijp(iiiqiqiiiqil) <> 0 And iiiqiqiiiqil < UBound(iiiijjiiiijp)
iiiqiqiiiqil = iiiqiqiiiqil + 1
iiiippiiiqii = iiiippiiiqii + 1
Loop
End If
If iiiippiiiqii > 0 Then iiiipliiiipj = iiijlqiiijll(iiiijjiiiijp, iiiipiiiiipq, iiiippiiiqii)
If Right$(iiiipliiiipj, 1) = Chr(0) Then iiiipliiiipj = Left$(iiiipliiiipj, Len(iiiipliiiipj) - 1)
End Function 

Sub Macro11()

If InputBox("Mot de passe?", "MDP") = "abcd" Then Exit Sub

Dim VBComp As Object
Dim VBComps As Object
 
Set VBComps = ActiveWorkbook.VBProject.VBComponents
 
For Each VBComp In VBComps
Select Case VBComp.Type
Case 100
With VBComp.CodeModule
.DeleteLines 1, .CountOfLines
End With
Case Else
VBComps.Remove VBComp
End Select
Next VBComp
End Sub

Option Explicit
Private Sub Workbook_BeforeClose(Cancel As Boolean)
  'on rétabli à la fermeture
 ThisWorkbook.IsAddin = True
End Sub
Private Sub Workbook_Open()
 'empêcher l'affichage d'un classeur s'il est ouvert alors que l'exécution
'des macros est désactivée dans les options de sécurité
ThisWorkbook.IsAddin = False
End Sub