Hilfe bei Macro für Blattschutz mit Passwort

Sub schutz_ein()
ActiveSheet.Protect userinterfaceonly:=True
End Sub

Dieser ermöglicht mir das ausführen von Macros in geschützten Blättern.
Jetzt möchte ich nur noch ein Passwort hinterlegen, das automatisch abgefragt wird.

Ich habe gelesen, das man hinter das Protect das Passwort in Anführungsstrichen setzt, z.B. ActiveSheet.Protect "Passwort", das funktioniert in kombination mit userinterfaceonly:=True nicht.

Was mache ich falsch?

Danke
Marco