message erreur 400

[Yldie]

Bonjour à tous,
j'ai créé une feuille avec un code pour dépasser les trois conditions classiques de mise en forme puis ai verrouillé cette feuille par un mot de passe.
Or le code fonctionne tant que la feuille est déprotégée mais bug (X 400) quand je protège (impossible d'exécuter ma macro).
Pourriez vous svp m'aider, merci d'avance
PS : petite précision, la plage de cellules affectée de cette macro est partiellement concerné par la protection (format>cellule>protection) puisque je l'ai en partie décoché

 

[Compte Supprimé 979]

Re : message erreur 400

Salut Yldie,

Pourrais tu nous joindre ton fichier ?

Sinon difficile de t'aider dans ces conditions !

A+

 

[jeanpierre]

Re : message erreur 400

Bonjour Yldie, et Bienvenue sur le forum XLD, Bruno,

Avec en début de ton code (après le Sub):

ActiveSheet.Unprotect ("ton mot de passe"),

et en fin (avant le End Sub):

ActiveSheet.protect ("ton mot de passe")

Tu nous dit si cela te convient.

Bon week-end.

Jean-Pierre

PS : tu peux aussi écrire comme cela (exemple pour la protection) :

ActiveSheet.Protect password:="ton mot de passe"

 

[Yldie]

Re : message erreur 400

Merci à vous,

c'est la 1ère fois que je viens sur un forum et déjà la solidarité se fait sentir....franchement vous êtes géniaux, j'essaye vos astuces et vous réponds dès que possible....encore merci à vous, c'est super sympa !!!!!

 

[Yldie]

Re : message erreur 400

Voici pour plus d'infos mon code avec les modifs que Jean Pierre m'a donné (ai je bien placé tout cela ?????)
Sub contionnel()
ActiveSheet.Unprotectmaverick
Application.ScreenUpdating = False
For Each cellule In [B4:W36]
cellule.Select
ActiveCell.Interior.ColorIndex = xlNone
With cellule
Select Case .Value
Case Is = ""
ActiveCell.Interior.ColorIndex = 0
Case Is = "piscine 1"
ActiveCell.Interior.ColorIndex = 34
Case Is = "piscine 2"
ActiveCell.Interior.ColorIndex = 33
Case Is = "aqua"
ActiveCell.Interior.ColorIndex = 32
Case Is = "Sortie L"
ActiveCell.Interior.ColorIndex = 27
Case Is = "Régul"
ActiveCell.Interior.ColorIndex = 38
Case Is = "Gymlud"
ActiveCell.Interior.ColorIndex = 44
Case Is = "kiné"
ActiveCell.Interior.ColorIndex = 4
Case Is = "étude"
ActiveCell.Interior.ColorIndex = 15
Case Is = "étude 2"
ActiveCell.Interior.ColorIndex = 7
End Select
End With
Next cellule
Application.ScreenUpdating = True
Range("a1").Select
ActiveSheet.protectmaverick
End Sub

a priori ce serait pas encore au point (propriété non gérée)
merci de votre aide

 

[jeanpierre]

Re : message erreur 400

Re,

Bien placé, oui, mais à priori, tu as mal lu :

ActiveSheet.Unprotect ("maverick"), serait mieux, et pareil pour la sortie.

Voilà.

 

[Yldie]

Re : message erreur 400

Merci Jean Pierre,

vraiment génial tes conseils, bon week end et sans doute à une prochaine pour d'autres macros.......COOOOOOOOOLLLLLLLLLLL

Yldie