Adamski
01-18-2010, 06:42 AM
Hello,
I have discovered that when the Save method is invoked with ScreenUpdating set to false, the save progress bar doesn't show.
Is there any way to get it to display without turning ScreenUpdating on?
Cheers
Sub SaveIt()
Debug.Print "SaveIt"
'Set Excel State
Application.DisplayStatusBar = True
Application.ScreenUpdating = False
' Do Something
Application.StatusBar = "Before Save"
Range("A1") = "Don't Display This!"
Application.Wait Time + TimeSerial(0, 0, 2)
Application.StatusBar = False
' This needs to be on for the "Saving" progressbar to show
' Application.ScreenUpdating = True ' Uncomment for progressbar
ThisWorkbook.Save
' Do Something Else
Application.StatusBar = "After Save"
Range("A1") = "Saved"
Application.Wait Time + TimeSerial(0, 0, 2)
Application.StatusBar = False
' Restore Excel State
Application.ScreenUpdating = True
End Sub
I have discovered that when the Save method is invoked with ScreenUpdating set to false, the save progress bar doesn't show.
Is there any way to get it to display without turning ScreenUpdating on?
Cheers
Sub SaveIt()
Debug.Print "SaveIt"
'Set Excel State
Application.DisplayStatusBar = True
Application.ScreenUpdating = False
' Do Something
Application.StatusBar = "Before Save"
Range("A1") = "Don't Display This!"
Application.Wait Time + TimeSerial(0, 0, 2)
Application.StatusBar = False
' This needs to be on for the "Saving" progressbar to show
' Application.ScreenUpdating = True ' Uncomment for progressbar
ThisWorkbook.Save
' Do Something Else
Application.StatusBar = "After Save"
Range("A1") = "Saved"
Application.Wait Time + TimeSerial(0, 0, 2)
Application.StatusBar = False
' Restore Excel State
Application.ScreenUpdating = True
End Sub