Discussion :

[Momo143]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Menhir]

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)

[Momo143]

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

[Menhir]

Dans ce cas, commence ta macro par un :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[antonysansh]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[Momo143]

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

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

Momo 143