In diesem Beispiel wird das Dialogfeld Öffnen angezeigt und die Option Schreibgeschützt markiert.
Application.Dialogs.Item(xlDialogOpen).Show arg3:=True