Protéger toutes les Feuilles en meme temps

Bonjour,
2 Macros tirées d'un site d'ami.
Une pour protéger toutes les Feuilles, l'autre pour ôter cette protection.
Mais le code vba du mot passe n'accepte que les lettres (texte : string), et moi je veux utiliser tous les caractères (alphanumérique). Que dois- je ajouter dans ce code vba ?
Merci bien pour vos aides


Sub Protéger()
' Protection automatique de toutes les feuilles d'un classeur
Dim nombre As Integer
Dim Motdepasse As String
Motdepasse = InputBox("Entrer le mot de passe :", "Mettre la protection sur toutes les feuilles", "")
nombre = ActiveWorkbook.Sheets.Count
Application.ScreenUpdating = False
For i = 1 To nombre
Worksheets(i).Protect Password:=Motdepasse
Next i
End Sub

Sub Déprotéger()
' Déprotection automatique de toutes les feuilles d'un classeur
Dim nombre As Integer
Dim Motdepasse As String
Motdepasse = InputBox("Entrer le mot de passe :", "Oter la protection de toutes les feuilles", "")
nombre = ActiveWorkbook.Sheets.Count
Application.ScreenUpdating = False
For i = 1 To nombre
Worksheets(i).Unprotect Password:=Motdepasse
Next i
End Sub