VBA exécuter une macro sur un document protégé

Bonjour le forum,

J'ai une macro qui permet de masquer/afficher des colonnes pour faciliter la lecture d'un fichier et je souhaiterais pouvoir l'utiliser lorsque le document est protégé, c'est-à-dire l'ouvrir pour la consultation, permettre le filtrage des données et bien-sûr permettre l'utilisation de cette macro bien utile (voir ci-dessous:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Not Intersect(Target, Range("A2:XFD2" & Range("XFD65555").End(xlUp).Row)) Is Nothing Then Select Case Target.Address Case "$A$3:$A$4" Columns("B:AQ").EntireColumn.Hidden = Not Columns("B:AQ").EntireColumn.Hidden Case "$B$3:$B$4" Columns("C:K").EntireColumn.Hidden = Not Columns("C:K").EntireColumn.Hidden Case "$L$3:$L$4" Columns("M:AF").EntireColumn.Hidden = Not Columns("M:AF").EntireColumn.Hidden Case "$AG$3:$AG$4" Columns("AH:AK").EntireColumn.Hidden = Not Columns("AH:AK").EntireColumn.Hidden Case "$AL$3:$AL$4" Columns("AM:AQ").EntireColumn.Hidden = Not Columns("AM:AQ").EntireColumn.Hidden End Select End If [A1].Select AllowFiltering = True End Sub

---

Alors, ma question est toute simple et j'espère que la solution le sera tout autant, c'est-à-dire, comment modifier cette macro pour qu'elle autorise mes desiderata ?

D'avance un tout gros MERCI et meilleurs messages.

Momo143

Citation:

---

Envoyé par Momo143

je souhaiterais pouvoir l'utiliser lorsque le document est protégé

---

Comment ton document est-il protégé ? (il y a de multiples façons de "protéger" dans Excel)

Rebonjour,

Il est protégé avec la commande du ruban Protégé la feuille et les protections cochées sont: Sélectionner les cellules verrouillées, sélectionner les cellules déverrouillées et utiliser le filtre automatique.

J'espère avoir répondu à la question et meilleurs messages en attendant !

@+ Momo

Dans ce cas, commence ta macro par un :

Code:

---

ActiveSheet.Unprotect(mot de passe)

---

Et termine la par son opposé Protect
Regarde dans l'aide VBA d'Excel les paramètres de Protect pour voir comment tu vas reprotéger la feuille.

Pense aussi à protéger ta macro.
Sinon, ça reviendrait à fermer la porte à clé mais laisser la clé sur le rebord de la fenêtre.

Bonjour a vous deux,

Pour quasiment tous mes classeurs Excel protégés qui comportent des macros, j'utilise ceci :
UserInterfaceOnly:=True dans la méthode Protect de l'objet Sheets.

Exemple :

Code:

---

1 2 3

Private Sub Workbook_Open() ThisWorkbook.Sheets("NomdemaFeuille").Protect Password:="MDP", UserInterfaceOnly:=True End Sub

---

Avec ça, a chaque fois que le fichier s'ouvre, ta feuille va être protégée mais uniquement pour les actions de l'utilisateur. Les macros pourront tourner sans soucis.
Il est quand même important de définir la protection et les cellules a verrouiller.

Toute fois la remarque de Menhir est juste, il faut penser a protéger le Projet VB.

C'est SUPER ! Mieux., ce n'est vraiment pas possible !

Un grand MERCI et une toute belle journée à vous !

Momo 143