Protéger par un mot de passe

Bonjour,

Je souhaite créer une macro qui permet de protéger une feuille ainsi qu'une partie d'une seconde feuille par un mot de passe entré dans une MessageBox par celui qui exécute la macro . Est-ce possible?

J'ai ce code mais il prédéfinit un mot de passe, et il n'y a pas de notion de protection de partie de feuille:

ActiveSheet.protect Password:="****", DrawingObjects:=False, Contents:=True, Scenarios:=False
End Sub

Merci de votre aide