Liste déroulante et cellules protégées

Bonjour à tous et à toutes

Je viens vers vous car j'ai atteint ma limite avec ce

L'idée étant de créer un carnet numérique.

Dans l'onglet paramètres, j'ai transcrit en Rouge ce que je n'ai pas réussi a faire, c'est à dire:

1. Bloquer le choix suite a un clic sur la liste déroulante permettant de choisir un Responsable de conduite

2. Débloquer ce choix suite à un clic sur le bouton Imprimer.

Actuellement, le reste semble fonctionner mais tout se bloque lorsque je protège le classeur ou les feuilles…

Et je n'arrive pas non plus à automatiser l'envoi du mail. qu'il se fasse sans mon intervention sur outlook.

Merci de votre aide a venir

J'ai peut être trouvé la base du code…

Faudrait me rajouter un bouton pour valider la sélection… et lui affecter la macro Valider.

Et appeler la macro Unvalide a la fin du code pour le bouton Imprimer…

Qu'en pensez vous?

Un truc du genre:

Sub Unvalide()
'
' Permettre Choix
'

'
ActiveSheet.Unprotect motDePasse
Select Case Range("D2").Locked = False
End Select
End Sub
Sub Valider()
'
' Valider Choix et bloquer
'

'
ActiveSheet.Protect motDePasse
Select Case Range("D2").Locked = True
End Select
End Sub