Makro mit Passwortabfrage

Sub Blattschutz_aus()
'Blattschutz aufheben
Dim Blatt As Worksheet
For Each Blatt In Worksheets
Blatt.Unprotect "Test"
Next Blatt
End Sub

Jedoch möchte ich das Makro soweit änder, das zuerst noch eine Passwortabfrage kommt, und dann erst der Blattschutz in allen Mappen aufgehoben wird.
Im Voraus vielen Dank
Andreas