Discussion :

[mia.555]

Bonjour,

J'aimerais pouvoir protéger mes cellules Excel en écriture sans toucher aux macros. Les utilisateurs pourront modifier les cellules qu'à l'aide des boutons mis à leur disposition. Y a-t-il une ligne de code en vba qui permet de faire ça.
Merci d'avance.

[Menhir]

Il suffit de commencer la macro liée au bouton par un déblocage de la protection et de la terminer par une remise en place de cette protection.
https://msdn.microsoft.com/fr-fr/lib.../ff840611.aspx
https://msdn.microsoft.com/fr-fr/lib.../ff841143.aspx

Si ta protection inclut un mot de passe, ne pas oublié de protéger aussi les macro, sinon n'importe qui pourra aller y lire le mot de passe en question.

[mia.555]

Merci pour votre réponse. J'ai utiliser ce code :
ActiveSheet.Unprotect "TonMotDePasse"
'mon code...
ActiveSheet.Protect "TonMotDePasse", True, True, True

Ca marche bien mais je me heurte à quelques soucis. En faite j'ai crée un module dans un autre fichier qui permet de basculer les données finalisées dans le fichier où j'ai mis ce code. Et quand je clique sur ce bouton, il me dit que le classeur a été protégé du coup je ne peux pas basculer mes données dans ce fichier.

[Menhir]

Ta demande n'est pas claire.
Il faut que tu sois plus précise en ce qui concerne les deux fichiers (qu'est-ce qui se trouve dans quoi) et la nature exacte des protections (dans Excel, il y a de multiples façons de protéger des données).

[mia.555]

En faite j'ai deux fichiers qui sont liés. J'ai bloqué la modification manuelle des cellules en écriture du 1er fichier . Ainsi les utilisateurs ne pourront modifier ces cellules grâce aux boutons mis à leur disposition ( qui marche bien avec le code suivant :

Code :

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

1
2
3
ActiveSheet.Unprotect "TonMotDePasse"
'Ici ton code...
ActiveSheet.Protect "TonMotDePasse", True, True, True)

L e deuxième fichier contient aussi un bouton qui permet de basculer mes données vers le 1 er fichier mais quand je clique sur ce bouton ça ne marche car il m'affiche un message d'erreur me disant que le 1 er fichier est protégé

[Menhir]

Dans ce cas, dans le code de ton second fichier, il faut mettre les mêmes commandes de (dé)protection mais en remplaçant ActiveSheet par la référence à la feuille de ton premier fichier (puisque l'Activesheet est dans ce cas ton second fichier).
Quelque chose comme

Code :

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

Workbooks("Fichier1.xlsm").Worksheets("Mafeuille")