Empecher la supression des feuilles d'un classeur

Sub ProtegeClasseur()
'Protection des feuilles et du classeur
  Dim maFeuille As Worksheet
   'Parcours l'ensemble des feuilles du classeur
    For Each maFeuille In ThisWorkbook.Worksheets
     'Si la feuille en cours est visible alors protection
      maFeuille.Protect "arcadisse", True, True, True
    Next
   'Pose la protection du classeur
    ActiveWorkbook.Protect Structure:=True, Windows:=False, Password:="arcadisse"
End Sub

Sub DeProtegeClasseur()
'Déprotection des feuilles et du classeur
  Dim maFeuille As Worksheet
  'Parcours l'ensemble des feuilles du classeur
   For Each maFeuille In ThisWorkbook.Worksheets
    'Si la feuille en cours est visible alors déprotection
    If maFeuille.Visible Then maFeuille.Unprotect "arcadisse"
   Next
  'Dépose la protection du classeur
   ActiveWorkbook.Unprotect Password:="arcadisse"
End Sub

 impossible de définir la propriété hidden de la classe range