Microsoft 365 Déprotéger un onglet en sélectionnant une valeur dans une liste déroulante

[PatFr38]

Bonjour, à toutes et tous.

J'ai réussi à faire en sorte que, lors de la sélection d'une cellule dans l'onglet actif, ce dernier soit déprotégé, une macro soit activée pour masquer des lignes, puis que l'onglet actif soit protégé à nouveau. Par contre, j'ai essayé plusieurs méthodes, avec Worksheet_SelectionChange et Worksheet_Change, pour tenter de faire en sorte que, lors de la sélection d'une valeur (dans mon cas, un mois de l'année) dans une liste déroulante, l'onglet actif soit déprotégé et qu'une macro soit activée pour masquer des colonnes de mois précédent le mois sélectionné. Effectivement, la solution la plus simple est de déprotéger manuellement l'onglet, mais ce n'est pas l'objectif recherché... Je vous joins un fichier d'exemple. Un grand merci d'avance à celle/celui qui pourra me trouver la bonne solution.

 

[Gégé-45550]

Bonjour, à toutes et tous.

J'ai réussi à faire en sorte que, lors de la sélection d'une cellule dans l'onglet actif, ce dernier soit déprotégé, une macro soit activée pour masquer des lignes, puis que l'onglet actif soit protégé à nouveau. Par contre, j'ai essayé plusieurs méthodes, avec Worksheet_SelectionChange et Worksheet_Change, pour tenter de faire en sorte que, lors de la sélection d'une valeur (dans mon cas, un mois de l'année) dans une liste déroulante, l'onglet actif soit déprotégé et qu'une macro soit activée pour masquer des colonnes de mois précédent le mois sélectionné. Effectivement, la solution la plus simple est de déprotéger manuellement l'onglet, mais ce n'est pas l'objectif recherché... Je vous joins un fichier d'exemple. Un grand merci d'avance à celle/celui qui pourra me trouver la bonne solution.

Bonjour,
Une proposition :

Private Sub Worksheet_Change(ByVal Target As Range)
    If Range("A4") = "Février" Then
        Columns("C:C").EntireColumn.Hidden = True
    End If
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Not Intersect(Target, Range("A4")) Is Nothing Then ActiveSheet.Unprotect Else ActiveSheet.Protect
End Sub

Cordialement,

 

[PatFr38]

Merci, Gégé, mon sauveur ! Ca fonctionne, super ! Merci encore.

 

[Gégé-45550]

Merci, Gégé, mon sauveur ! Ca fonctionne, super ! Merci encore.

Si vous êtes satisfait n'hésitez pas à marquer le post #2 comme solution en cliquant sur la coche verte dans le bandeau à droite.
Bonne soirée.