Beispiel zur StatusBar-Eigenschaft

In diesem Beispiel wird die Statusleistenmeldung auf "Please be patient..." gesetzt, bevor die Arbeitsmappe LARGE.XLS geöffnet wird. Dann wird die Standardmeldung wiederhergestellt.

oldStatusBar = Application.DisplayStatusBar
Application.DisplayStatusBar = True
Application.StatusBar = "Please be patient..."
Workbooks.Open filename:="LARGE.XLS"
Application.StatusBar = False
Application.DisplayStatusBar = oldStatusBar