Proteger plusieurs feuilles excel

stef -  
 Tchouby -
Tout est dans le titre.
Voila, j'ai une application qui possede pas loin de 200 feuilles excel.
Toutes les feuilles sont protegées.
Lorsque je veux faire une modif, je doit oter la protection, faire la modif et remettre le protection sur CHAQUE feuille!!!

Y-a-t-il un moyen de proteger toutes les feuilles en meme temps?
Si je selectionne plusieurs onglets, l'action "proteger la feuille" est désactivée..

merci

4 réponses

  1.
    UsulArrakis Messages postés 7683 Statut Contributeur 3 196
     
    salut
    peux-tu enregistrer des macros avec ton application ?
    (menu Outils / macro / nouvelle macro)

    si oui : tu enregistres en macro la déprotection d'une feuille (idem pour la protection) puis tu ouvres visual basic editor et dans ta macro tu rajoutes au début :
    For i = 1 To 200

    Worksheets(i).Activate

    et à la fin :
    Next i

    ça devrait marcher

    tiens nous au courant

    (_Usul d'Arrakis
    Serial_Dreamer_)
    3
  2. Jo
     
    Salut
    Pourquoi ne pas proteger ton fichier avec un mot de passe ?
    0
    1. stef
       
      Si je protege le fichier avec un mot de passe, le fichier reste modifiable(mais pas enregistrable).

      La suptilité est de taille puisque le classeur utilise des Macros en relation avec une base de données....

      Merci quand meme
      0
  3. stef
     
    Je voulais éviter d'utiliser des macros mais je pense que c'est la seule solution

    Pour proteger les feuilles :

    For Each Sh In ThisWorkbook.Worksheets
    Sh.Protect Password:='', UserInterfaceOnly:=True
    Next Sh

    merci de votre aide
    0
    1. SOPHIE
       
      Je souhaite executer ma macro mais le messe : espace pile insuffisant s'affiche' ????!!!
      Que dois faire?
      Merci beaucoup
      Sophie
      0
    2. Tchouby
       
      Essaye le cote Face xD
      0
  4. pingu33
     
    Bonsoir,

    Il est probable que dans ta macro (que je ne connais pas) il y ait une boucle sans fin.

    A vérifier, bonne chance.
    0