Protection des céllules avec marco

Bonjour, voilà je cherche à protégé des cellules et laissé d'autre pour les saisies?

Y a t'il un moyen de mettre un mot de passe pour la protection, car pour l'instant je suis obligé de protégé sans pour pouvoir exécuter la macro

Mon but c'est que l'utilisateur pusse saisir une valeur dans des cellules et lancé la macro pour exécuté les formules.

Merci pour votre aide.


Sub Macro1()
'
' Macro1 Macro
' Macro enregistrée le 17/06/2004 par ..
'
ActiveWindow.SmallScroll ToRight:=-4
ActiveSheet.Unprotect
Range('D:E,H:Q').Select
Range('H1').Activate
Columns('D:E').Select
Dim Msg, Style, Fichier, Reponse, MyString
Msg = 'Souhaitez-vous supprimer les lignes vides ?'
Style = vbYesNo + vbQuestion
Fichier = 'Fichier APPROBATION DE PRIX'
Reponse = MsgBox(Msg, Style, Fichier)
If Reponse = vbYes Then
Selection.AutoFilter Field:=6, Criteria1:='='
Selection.AutoFilter Field:=7, Criteria1:='='
Rows('17:1191').Select
Selection.Delete Shift:=xlUp
Selection.AutoFilter Field:=6
Selection.AutoFilter Field:=7
Else
End If
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End Sub