Ôter la protection de centaines de feuille Excel. Résolu/Fermé

Question

Bonjour, 

Je travaille sur de vieux fichiers Excel dont les feuilles sont protégées. Aucun mot de passe n'est nécessaire. Il me suffit de cliquer sur "Ôter la protection" chaque fois que j'ouvre une feuille. Cependant, j'ai plusieurs centaines de fichiers de une à trois feuilles à modifier. Y a-t-il possibilité pour enlever la protection de toutes ces feuilles d'un coup?

Ces fichiers datent d'une dizaine d'années. Je dispose de Excel 2010. Veuillez noter que je me trouve dans un bureau du gouvernement. Il m'est impossible d'installer aucun logiciel.

Merci à l'avance pour vos suggestions



Configuration: Windows XP / Internet Explorer 8.0

carmenita · Accepted Answer

Bonjour, j'aurais également besoin de cette fonction mais je n'ai aucune idée de comment "lancer" la Macro. J'ai fais Execution puis exectuter la Macro mais la protection n'a été ôté que sur une des feuilles et pas sur toutes les feuilles du classeur. 

Du coup je me demandais si c'est parce que mes fichiers ne sont pas dans un répertoire? Mais sa aussi je ne trouve pas ce que c'est. 

Quelqu'un pourrait il m'aider? 
D'avance merci. 
C.

pilas31 · Answer

Bonjour, 
  
Voici une proposition. 
Mettre tous les classeurs à déprotéger dans un même répertoire. 
Dans ce répertoire créer un classeur Excel avec la macro suivante : 

Sub Déprotége_Fichiers() 
    Dim Chemin As String, Fichier As String 
    Dim Feuille As Worksheet 
    Chemin = ThisWorkbook.Path & "\" 
    Fichier = Dir(Chemin & "*.xls") 
    'boucle sur tous les classeurs 
    Do While Len(Fichier) > 0 
        If Fichier <> ThisWorkbook.Name Then 
            'ouvre le fichier 
            Workbooks.Open Filename:=Chemin & Fichier 
            'boucle sur chaque feuille 
            For Each Feuille In ActiveWorkbook.Worksheets 
                'déprotège 
                Feuille.Unprotect 
            Next 
            ActiveWorkbook.Save 
            ActiveWorkbook.Close 
        End If 
        Fichier = Dir() 
    Loop 
End Sub

(pour créer la macro aller dans l'éditeur vba par alt+F11 faire insérer module et copier la macro ci-dessus) 
Lancer la macro 
A+  
Cordialement,

SuperPat · Answer

Ça marche à merveille. Merci!

Ôter la protection de centaines de feuille Excel.

3 réponses

Discussions similaires