Protection et masquer lignes

[natbru]

Bonsoir à tous,

Je cherche à autoriser l'option 'masquer ligne' lors de la protection d'une feuille de calcul par vba.

Dans excel l'option n'est pas proposé lorsqu'on protège une feuille donc pas possible de voir l'instruction par l'enregistreur de macro.

Merci beaucoup pour votre aide.

 

[Jacques87]

Bonsoir Natacha

Voici le bout de code qui te permettra de masquer la ligne 7

Rows('7:7').Select
Selection.EntireRow.Hidden = True

Bonne soirée

 

[natbru]

Bonsoir Jacques,

Merci pour ta réponse mais mon problème se pose lorsque la feuille est protégée.

Il y a un message d'erreur si tu exécute ce code sur une feuille protégée.

 

[Jacques87]

J'avais bien compris Natacha

Ce bout de code est à intégrer dans une procédure du genre

déprotection de la feuille
masquer la ligne
reprotection de la feuille

exemple
WorkSheets('Feuil1').Unprotect ' si c'est la feuille 1, et éventuellemnt voir s'il y a un mot de passe
Rows('7:7').Select
Selection.EntireRow.Hidden = True
WorkSheets('Feuil1').Protect

n'hésite pas à me contacter si problème

PS ajoute en début de procédure
Application.ScreenUpDating
pour éviter de voir 'les transformations' éventuelles

Message édité par: Jacques87, à: 23/01/2006 23:00

 

[natbru]

Escuse moi, je t'es sous estimé.

Effectivement, je n'avais pas pensé à déprotéger avant et reprotéger aprés.

Ca marche trés bien.

Merci beaucoup pour ton aide si efficace.

A bientôt.

 

[Jacques87]

Pas de problème, Natacha
A quand tu veux.
Nous essaierons à chaque fois de te satisfaire même si parfois nous shuntons ce qui nous semble être des évidences

Je te souhaite une bonne nuit

 

[Dan]

Bonsoir,

Une solution est pour éviter les Select. Ce qui donne

WorkSheets('Feuil1').Unprotect
Rows('7:7').EntireRow.Hidden = True 
WorkSheets('Feuil1').Protect

Bonne soirée



Message édité par: Dan, à: 24/01/2006 09:05

 

[natbru]

Merci à tous les deux pour vos réponses.

A bientôt.