XL 2010 Vba masquer des lignes et protection de la feuille

[zajden]

Bonjour,
nouvelle sur ce forum. ne connait rien en vba mais ai reussi a faire quelques macros grâce a vous.
Besoin d'aide sur un classeur excel. J'ai bien reussi à masquer des lignes selon valeur d'une liste déroulante. Mais quand je veux protéger cette feuille ca me retourne une erreur et ne fonctionne plus. Une idée.
Je joins le fichier c'est dans la feuille calcul TDC

 

[James007]

Bonjour,

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

 

[Dudu2]

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"

 

[zajden]

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

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

 

[zajden]

Genial ca marche nickel.
Merci mille fois

 

[zajden]

en fait non ca a marché puis rebug. erreur d'execution 1004. Impossible de definir la propriété hidden de la classe Range

 

[zajden]

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"

 

[zajden]

a quel endroit je dois ecrire ca ?

 

[zajden]

Bonjour,

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

 

[zajden]

colonne C 22

 

[Jacky67]

en fait non ca a marché puis rebug. erreur d'execution 1004. Impossible de definir la propriété hidden de la classe Range

Re..
Place ce code à l'ouverture du classeur

Sheets("Calcul TDC").Protect , UserInterfaceOnly:=True

 

[zajden]

merci j'ai testé ça a l'air de marcher