Modifier les attributs du texte d'une cellule dans un document protégé.

Anonyme

Bonjour,

J'espère que vous pourrez m'aider à comprendre pourquoi ma macro ne fonctionne pas comme je voudrais et que faire pour y arriver.

J'ai une feuille excel qui me sert de "formulaire" pour enregistrer les réponses à un certain nombre de questions.

Certaines cellules sont utilisées pour des choix multiples alors que d'autres font appel à des réponses ouvertes.

Ces cellules "ouvertes" sont "unlock" et je veux y faire apparaître un texte consigne: "Insert comments here" qui disparaît dès que l'on introduit son texte de réponse.

Le texte consigne a une taille et une couleur propre, le texte de la réponse a une autre couleur et une autre taille.

Tout cela fonctionne avec un code VBA.

Private Sub Worksheet_Change(ByVal Target As Range)

If Target = Range("D1") Then

If Target.Text = "" Then

Target.Value = "Insert Application's Name Here"

Target.Font.Size = 14

Target.Font.ColorIndex = 48

Target.Font.Italic = True

Else

Target.Font.Size = 18

Target.Font.Color = vbBlack

End If

If Target = Range("D17") Then

If Target.Text = "" Then

Target.Value = "Insert comments here"

Target.Font.Size = 14

Target.Font.ColorIndex = 48

Target.Font.Italic = True

Else

Target.Font.Size = 14

Target.Font.Color = vbBlack

End If

If Target = Range("D19") Then

If Target.Text = "" Then

Target.Value = "Insert comments here"

Target.Font.Size = 14

Target.Font.ColorIndex = 15

Target.Font.Italic = True

Else

Target.Font.Size = 14

Target.Font.Color = vbBlack

End If

If Target = Range("D35") Then

If Target.Text = "" Then

Target.Value = "Insert comments here"

Target.Font.Size = 14

Target.Font.ColorIndex = 15

Target.Font.Italic = True

Else

Target.Font.Size = 14

Target.Font.Color = vbBlack

End If

End Sub

Tout roule (presque) tant que je n'ai pas protégé la feuille.

Dès que je met la protection, j'ai un message d'erreur :

" Run-time error '1004':

Unable to set the Size property of the Font class."

Ce message n'apparait plus si j'autorise l'accès au format des cellules dans la boîte de dialogue de protection de la feuille, ce que je ne souhaite pas car cela donne la possibilité de modification du format de toutes les cellules par l'utilisateur.

Je voudrais donc pouvoir uniquement autoriser le formatage de la cellule (ou du Font dans la cellule) par mon code VBA lorsque la cellule concernée est sélectionnée.

J'ai un deuxième problème:

Le changement de couleur et d'attributs de Font fonctionne très bien sur 2 cellules (D1 et D35) et, par contre, pour les 2 autres, j'ai un premier changement qui s'effectue lors de la frappe de texte, puis lors de l'effacement, la cellule ne reprend pas les attributs de départ...

Merci de m'aider à comprendre...

Question verrouillée. Cette question a été migrée à partir de la Communauté Support Microsoft. Vous pouvez voter pour indiquer si elle est utile, mais vous ne pouvez pas ajouter de commentaires ou de réponses ni suivre la question.

0 commentaires

91 réponses

DanielCo 107.7K Points de réputation

2016-03-18T15:33:44+00:00

Tu peux essayer d'exécuter :

Sub test()

Sheets("xxx").Select

ActiveSheet.Protect Password:="nnn", userinterfaceonly:=True

End Sub

en remplaçant le nom de la feuille et le mot de passe (s'il y en a un). Cette instruction permet d'intervenir avec une macro sur une feuille protégée.

Daniel
Cette réponse a-t-elle été utile ?

0 commentaires Aucun commentaire
Anonyme

2016-03-18T15:18:46+00:00

Bonsoir Droopy,

Ne me faites pas dire maintenant ce que je n'ai pas encore dit...

Mais c'est un joli cas d'école, et je vous en proposerai une évolution en tenant compte des spécificités que j'aurai vues...

Je n'ai pas de doute sur ce que vous direz à votre retour à propos de celles que je n'aurai pas vues !

Bon week-end et bon voyage!

Merci...

Je n'aurai probablement pas beaucoup l'occasion de me mettre sur le sujet cette semaine, mais je ne doute pas qu'à mon retour vous aurez pu tester l'une ou l'autre solution.

J'ai essayer avec Sheet.Unprotect et Protect directement dans mon code, sans passer par un sous-ensemble, mais... ça ne fonctionne pas non plus!

Sans doute que je ne les mets pas au bon endroit dans mon code...

Je sens que ça va m'énerver pendant toute la semaine ce truc!

Et je pressens que la solution est probablement très simple! ;-)
Cette réponse a-t-elle été utile ?

0 commentaires Aucun commentaire
Anonyme

2016-03-18T15:05:59+00:00

Oui, mais si tu modifies une cellule verrouillée quand la feuille n'est pas protégée, ça n'a pas d'importance. C'est tout différent quand la feuille est protégée.

Daniel

C'est bien ce dont je me suis rendu-compte et ce qui me pose problème...! :-(
Cette réponse a-t-elle été utile ?

0 commentaires Aucun commentaire
Anonyme

2016-03-18T14:59:21+00:00

Bonsoir Droopy,

Ne me faites pas dire maintenant ce que je n'ai pas encore dit...

Mais c'est un joli cas d'école, et je vous en proposerai une évolution en tenant compte des spécificités que j'aurai vues...

Je n'ai pas de doute sur ce que vous direz à votre retour à propos de celles que je n'aurai pas vues !

Bon week-end et bon voyage!
Cette réponse a-t-elle été utile ?

0 commentaires Aucun commentaire
DanielCo 107.7K Points de réputation

2016-03-18T14:54:32+00:00

Non, non, les cellules qui sont déverrouillées sont celles dans lesquelles l'utilisateur va devoir taper du texte. Les cellules proposant un liste de choix de réponse sont verrouillées.

Ce que je veux ce n'est pas vérifier l'adresse de cellule, mais bien modifier les attributs du texte qui est entré par l'utilisateur lorsque la feuille est protégée.

Oui, mais si tu modifies une cellule verrouillée quand la feuille n'est pas protégée, ça n'a pas d'importance. C'est tout différent quand la feuille est protégée.

Daniel
Cette réponse a-t-elle été utile ?

0 commentaires Aucun commentaire