Discussion :

[marama12]

Bonjour a Tous,

Je suis debutant avec VBA. Mon probleme est le suivant:

J'ai des boutons lies a des macro qui permetent de filtrer verticalement et horizontalement certain ranges sur ma feuille excel. En protegeant ma feuille et meme en utilisant le code que j'ai trouve sur tout les forums

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Activesheet.protect UserInterfaceOnly:=True

Mes macro ne marchent pas et j'ai un msg d'erreur disant:

Unable to set the hidden property of the range class

Pour plus de clarte en PJ un fichier simplifie pour ceux qui voudront m'aider a resoudre ce casse tete

Merci d'avance

[mercatog]

Regarde tous les paramètres de la méthode Protect

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
    Worksheets("Feuil1").Protect UserInterfaceOnly:=True, DrawingObjects:=True, _
        Contents:=True, Scenarios:=True, AllowFormattingCells:=True, _
        AllowFormattingColumns:=True, AllowFormattingRows:=True, AllowSorting:=True, _
        AllowFiltering:=True

Edit:
La protection n'est pas appliquée si les changements se font par code

[marama12]

Peux tu stp m'indiquer comment deproteger avant chaque code et ou dois-je placer le tou d'un module ou bien dans Worksheets or Workbook?

Merci

[mercatog]

J'ai édité mon post, j'avais dis une bétise.
par contre Userinterfaceonly=true protège seulement les modifications opérées par l'utilisateur (et pas par macro)

Poste ici l'une de tes macro qui pose problème.

[marama12]

Voici le type de macro qui me pose probleme

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Sub EM2()
Range("EMBB:EMEE").EntireRow.Hidden = False
Range("CVMBB:cvmee").EntireRow.Hidden = True
Range("IHCBB:RESPEE").EntireRow.Hidden = True
End Sub

cette macro permet d'afficher uniquement un certain nombre de lignes et en cache d'autres

[mercatog]

C'est quoi EMBB et EMEE?

La procédure fonctionne si tu enlève la protection de la feuille?