XL 2010 Vba masquer des lignes et protection de la feuille

Jacky67 à dit:

Bonjour,
Déprotège la feuille et applique cette macro

VB:

Private Sub Worksheet_Change(ByVal Target As Range)
Application.ScreenUpdating = 0

Rows("23:33").EntireRow.Hidden = False
If Range("C22").Value = "Concours" Then Rows("29:33").EntireRow.Hidden = True
If Range("C22").Value = "Marchés globaux" Then Rows("23:28").EntireRow.Hidden = True
If Range("C22").Value = "Appel d'offre" Then Rows("23:33").EntireRow.Hidden = True
ActiveSheet.Protect , UserInterfaceOnly:=True
End Sub

La feuille sera protégée (ici sans mot de passe), mais exécutera les codes VBA

Cliquez pour agrandir...

Dudu2 à dit:

Bonjour,
Je ne vois pas le problème...
Me.Protect
ou bien
Me.Protect "mot de passe"
Par contre si tu protèges cette feuille tu ne peux plus intercepter les Worksheet_Change() sur les cellules verrouillées tant que la feuille est protégée.
Me.UnProtect
ou bien
Me.UnProtect "mot de passe"

Cliquez pour agrandir...

James007 à dit:

Bonjour,

A quel endroit se trouve le filtre dont tu parles dans ta Feuille ...? Est-ce ta Colonne D ... ???

Cliquez pour agrandir...