How can I stop all workbook sheets being shown when unprotect code runs

[QualEng]

I have a workbook with a large number of sheets (100+) Ihave a button for administrator/high level user use which unprotects the wholeworkbook which works OK, BUT when the code runs it shows/flashes through allthe sheets as they are being unprotected which is very annoying (and may evenbe a H&S issue for epilepsy sufferers).
How can I stop the sheets showing when are beingunprotected.

Any help will be very welcome!
Thanks
SubMacroUnP()
'Passwordfor unprotecting all in workbook
Dim Str As String
Str = InputBox("Enter Password")
If Str = vbNullString Then
MsgBox ("User canceled!")
End If
If Str = "0857" Then
Call UnprotectWorkbook
End If
End SubAll workbook sheets flashing

 

[WaterGypsy]

Have you tried to use

Application.ScreenUpdating=False

at the start of the process and then

Application.ScreenUpdatng=True

at the end?

 

[QualEng]

HI
Thanks but I just tried that but it didn’t work see code anderror message have I placed new lines in the correct position?


Sub UnprotectWorkbook()
Application.ScreenUpdatng = False
Dim wsheet As Worksheet
For Each wsheet In ActiveWorkbook.Worksheets
wsheet.Unprotect password:="0159"
Next wsheet
Application.ScreenUpdatng = True
End Sub

Run-time error ‘438’:
Object doesn’t support this property or method