Masquer et vérouiller une ou des colonnes par un mot de passe Résolu/Fermé

Question

Bonjour, 
J' ai Masqué et vérouillé des colonnes par un mot de passe d'un fichier excel par le macro suivant:   Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
        If Sheets("Feuil1").Range("G:G").EntireColumn.Hidden = False Then
            Sheets("Feuil1").Range("G:G").EntireColumn.Hidden = True
        End If
        Sheets("Feuil1").Protect "mdp"
    End Sub
    Private Sub Workbook_Open()
        reponse = InputBox("Saisir le mot de passe pour accès complet ou cliquer sur annuler", "Mot de passe")
        If reponse <> "" And reponse = "mdp" Then
            Sheets("Feuil1").Unprotect reponse
            If Sheets("Feuil1").Range("G:G").EntireColumn.Hidden = True Then
                Sheets("Feuil1").Range("G:G").EntireColumn.Hidden = False
            End If
        End If
   End Sub. Et ça a marché. Mais le problème est que chaque fois que j'enregistre, il faut que je mette le mot de passe pour afficher les colonnes masquées.
Et si j'utilise la macro dans une autre feuille pour masquer des colonnes, ça ne marche pas.
Aider moi svp.

via55 · Answer

Bonjour

1) Mettre dans before save  Sheets("Feuil1").Unprotect "mdp" avant le If

2) Si dans toutes les feuilles c'est la colonne G à masquer tu peux faire une boucle du style
Par exemple pour protéger les feuilles 1 à 3
For n=1 to 3
Sheets(n)Unprotect reponse 
 If Sheets(n).Range("G:G").EntireColumn.Hidden = True Then 
 Sheets(n).Range("G:G").EntireColumn.Hidden = False 
Next
 End If

Sinon il faut rajouter des lignes
If Sheets("Feuille2").Range("K:K").EntireColumn.Hidden = True Then 
 Sheets("Feuille2").Range("K:K").EntireColumn.Hidden = False

Cdlmnt
Via

Masquer et vérouiller une ou des colonnes par un mot de passe

1 réponse

Discussions similaires