Děkuji ti, moc jsi mi pomohl.

Již to funguje, tak jak má.

Jenom ještě doplním, že v případě příkazu pro provedení akce "Upravit objekty" je třeba zadat DrawingObjects:=False nikoliv True. Nevím, proč to zrovna u této akce funguje takto obráceně, ale po vyzkoušení mohu potvrdit, že tomu skutečně tak je.

Pro tento konkrétní případ by se tedy doplňovalo následující:
wSheet.Protect Password:=TextBox1.Text, DrawingObjects:=False, Contents:=True, Scenarios:=True, AllowFormattingRows:=True

Ještě jednou děkuji.