Hide a sheet

[haseft]

Hi!

The below codes copy an unprotected sheet and copy it to a new sheet.
All codes works, but worksheet “Process” is still visible. I want it to be hidden at the end.
Please help!

Sub Start()
…
Worksheets("Process").Unprotect Password:="abcde"
Worksheets("Process").Visible = True
‘some codes
…
Call Steg1
Call Steg2
Call Steg3
…
‘at the end of Sub Steg3 are below codes
…
Worksheets("Process").Visible = xlSheetVeryHidden
Worksheets("Process").Protect Password:=" abcde "
Worksheets("Process").Visible = False
---
End Sub

 

[mole999]

select a different sheet then do the hide

 

[haseft]

I tried, but still the same problem.

 

[mse330]

Adding the last line in your code is making your sheet "hidden" but not "very hidden" ... Just comment the last line of code

'
'
'

Worksheets("Process").Visible = xlSheetVeryHidden
Worksheets("Process").Protect Password:="abcde"
'Worksheets("Process").Visible = False

 

[haseft]

I still ha the same problem.

Adding the last line in your code is making your sheet "hidden" but not "very hidden" ... Just comment the last line of code

'
'
'

Worksheets("Process").Visible = xlSheetVeryHidden
Worksheets("Process").Protect Password:="abcde"
'Worksheets("Process").Visible = False

 

[mole999]

stepping through the code, does it complete to the end without error, it could be dropping out which means that bit of code doesn't run