Hallo zusammen.

Ich würde gern ein Excelsheet per Makro entsperren.
Dazu dazugehörige Passwort wird als String eingelesen und dann im makro verwendet... das ganze sieht ungefähr so aus :

dim pass as string

i=0
do until (i=3)
pass = inputbox("passwort eingeben")
activesheet.unprotect password:=pass
if (activesheet.protectcontents = true) then
goto ende
else
i=i+1
loop

ende:
... weiter mit ursprünglichem makro

Nun produziert Excel aber den Laufzeitfehler 1004 falls das Passwort nicht passt,dieser soll abgefangen werden.

Wie geht das?

Vielen Dank für die Hilfe,
Gruß Alex.