XL 2016 Macro pour masquer ou afficher une colonne "E" sur toutes les feuilles d'un dossier

[berru76]

Bonjour

Afin de déterminer si on joue en doublettes ou triplettes
Est il possible de faire une macro pour masquer et une pour afficher une colonne ( exemple la E ) pour toutes les feuilles du dossier
vu qu'il y auras une centaine de feuilles
toute les feuilles seront protégées par code " 1 "

Merci

 

[vgendron]

Hello
un essai en PJ

 

[berru76]

Bonjour
Bon début mais il faudrait que la colonne E de la page inscriptions soit masquée aussi et le code de protection remis dans toute les feuilles
Merci

 

[vgendron]

il te suffit de regarder un peu le code et supprimer le test "ws.name <> "Inscriptions"

 

[berru76]

excuser pas un bon dans le vba
je vais regarder pour inscription mais pour reverrouiller les feuilles je vais dans quel ligne
Merci

 

[vgendron]

Je viens de regarder pour la protection
j'avais une erreur dans mon code

met celui ci à la place.. ca devrait rentrer dans l'ordre

Sub MasquerColE()
Application.ScreenUpdating = False 'pour éviter l'effet sapin de Noel
With ActiveWorkbook 'dans le classeur actif
    For Each ws In .Sheets 'pour chaque feuille
            ws.Unprotect Password:="1" 'on déprotege
            ws.Columns("E:E").EntireColumn.Hidden = Not (ws.Columns("E:E").EntireColumn.Hidden) 'on bascule la colonne E entre masquée  visible
            ws.Protect Password:="1", DrawingObjects:=True, Contents:=True, Scenarios:=True 'on reprotège la feuille
    Next ws
End With
With Sheets("Inscriptions") 'dans la feuille inscriptions
    .Unprotect Password:="1" 'on déprotège
    .Range("J5") = IIf((.Range("J5") = "ColE Masquées"), "ColE Visibles", "ColE Masquées") 'on indique l'état des colonnes
    .Protect Password:="1", DrawingObjects:=True, Contents:=True, Scenarios:=True 'on reprotège
End With
End Sub
Application.ScreenUpdating = True

Je viens d'ajouter une ligne pour éviter le sapin de Noël.. surtout que tu as une centaine de feuilles...

 

[berru76]

Marche nickel c'est exactement ce qu'il me fallait
j'ai modifier pour revenir a la feuille inscriptions
enlever l’état des colonnes vu que je le vois dans inscriptions

Sub MasquerColE()
Application.ScreenUpdating = False 'pour éviter l'effet sapin de Noel
With ActiveWorkbook 'dans le classeur actif
For Each ws In .Sheets 'pour chaque feuille
ws.Unprotect Password:="1" 'on déprotege
ws.Columns("E:E").EntireColumn.Hidden = Not (ws.Columns("E:E").EntireColumn.Hidden) 'on bascule la colonne E entre masquée visible
ws.Protect Password:="1", DrawingObjects:=True, Contents:=True, Scenarios:=True 'on reprotège la feuille
Next ws
End With
With Sheets("Inscriptions") 'dans la feuille inscriptions
.Unprotect Password:="1" 'on déprotège
.Protect Password:="1", DrawingObjects:=True, Contents:=True, Scenarios:=True 'on reprotège
Application.ScreenUpdating = True
End With
Sheets("Inscriptions").Select
End Sub

Un grand MERCI a vous

 

[vgendron]

Au fait;. on est d'accord que la protection par mot de passe ne sert strictement à rien, puisque n'importe qui ayant le fichier peut cliquer sur le bouton pour afficher ou cacher la colonne E SANS connaitre le mot de passe, vu qu'il est directement dans la code, et qu'à aucun moment, excel ne le demande à l'utilisateur...

 

[berru76]

oui
j'ai sécurisé les cellules dans les feuilles pour l'on ne puisse pas se tromper
Normalement le placement du numéro du gagnant se feras automatiquement au placement du G ou P vers le tour suivant
le fait de masquer la colonne m'évite de faire un dossier pour chaque style de concours
un grand merci a vous