Empecher la supression des feuilles d'un classeur

[creolia]

Bonjour à tous je recherche une macro me permetant de proteger et deproteger les structures et fenetres de mon classeur.

je m'explique un peu mon classeur est composer de plusieur feuille dont certaine cacher il arrive souvent que des petit malins me supprime des feuille du classeur et sa me fais des erreurs dans mon USF. je sais le faire manuelement avec outil protection proteger mon classeur mais mon but etant que au lancement de USF j'enleve la protection et à la fermeture le classeur se reprotege.

je vous est mis un exemple de macro j'utilise mais c'est pour la protection de mes cellules uniquement pas pour les onglet de mon classeur.

pouvez vous svp m'aider merci d'avance.

 

[camarchepas]

Re : Empecher la supression des feuilles d'un classeur

Bonjour Créolia,

Essais avec ce code modifié :

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

 

[creolia]

Re : Empecher la supression des feuilles d'un classeur

Bonjour samarchepas et merci pour ton aide ta solution fonctionne parfaitement merci de ton aide precieuse à tres bientot

 

[creolia]

Re : Empecher la supression des feuilles d'un classeur

Re bonjour je reviens vers vous il m'arrive un autre soucis suite à l'utilisation de la marco de protection

quand la macro ce lance la premiere fois il me met cette erreur avec un debogage

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

il est vrais que j'ai une macro afficher feuille masquer qui se lance au demarage de USF.

j'ai essayer de joindre un fichier joint mais l'original est trop gros et j'ai pas put recreer la meme erreur .

avec si peut d'element je me doute c'est pas simple mais quelqu'un aurais t'il une idée d'ou sa pourais venir svp merci d'avance