Permettre masquage colonne sur feuille protégée (sans passer par format colonne)

Tonino7 à dit:

UP (je sais c'est pas bien) 🙂)

Cliquez pour agrandir...

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
If Not IsNumeric(Mid(Target.Address, 2, 1)) And Mid(Target.Address, 2, 1) = Mid(Target.Address, 5, 1) Then
Me.Unprotect "MdP"
Target.EntireColumn.Hidden = True
Me.Protect "MdP"
Cancel = True
End If
End Sub

JNP à dit:

Bonjour Tonino7 🙂,Surtout après seulement 3h23 d'attente... En principe, on patiente au moins 24h 🙄...
Le problème, c'est le déclencheur...
Si tu décoches Format de colonne, Masquer devient grisé dans le clic droit.
Eventuellement, à condition de prévenir les utilisateurs, le clic droit dans la colonne peut être traité ainsi dans le code de feuille

Code:

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
If Not IsNumeric(Mid(Target.Address, 2, 1)) And Mid(Target.Address, 2, 1) = Mid(Target.Address, 5, 1) Then
Me.Unprotect "MdP"
Target.EntireColumn.Hidden = True
Me.Protect "MdP"
Cancel = True
End If
End Sub

qui fonctionne jusqu'à la colonne Z, à l'unité. Si ça te convient, on regardera pour accepter 2 lettres, et surtout pour leur permettre de démasquer 😛.
Bonne journée 😎

Cliquez pour agrandir...

Tonino7 à dit:

Merci Beaucoup ! j'avais effectivement pas pensé à ça. D'après ton post, j'en déduis donc que le dégrisage unique de la fonction Masquer/Afficher n'est pas possible en vba? Je vais abandonner cette piste dans ces cas là 🙂 merci quand meme.

Cliquez pour agrandir...

JNP à dit:

Re 🙂,C'est peut-être possible, plus exactement il faudrait créer un menu contextuel supplémentaire pour masquer/démasquer en appellant une macro.
Mais ce qui ne sera pas évident à ce moment-là, c'est de déterminer ce qu'il faut masquer ou démasquer.
Mais as-tu essayé mon fichier, ça me parraissait une bonne alternative ?
Bonne fin de journée 😎

Cliquez pour agrandir...

Tonino7 à dit:

Mais il faudrait pouvoir sélectionner plusieurs colonnes en meme temps pour que les utilisateurs de mon fichiers soient satisfaits 🙂 (quasiment comme la fonction masquer/afficher)

Cliquez pour agrandir...