Hide Sheet once you have moved away from it

[Ben_Holmes]

Hi,

Does anyone happen to have any code that would ensure that a sheet is hidden when a user moves away from it?

I.e. they click onto another sheet?

Kind Regards

Ben

 

[VoG]

Try this: right click the sheet tab, select View Code and paste in

Private Sub Worksheet_Deactivate()
Me.Visible = xlSheetHidden
End Sub

 

[Ben_Holmes]

I have tried that but can not get it to work have I got it in the correct place?

Sub Quotetool()
'
' Turns off screenupdating (Makes screen transition more smooth)
Application.ScreenUpdating = False

' Selects cell to check (Change this to whatever cell is relevant)
Range("R20").Select

' If statement (Change rule to whatever you want, if could also be a cell reference)
If ActiveCell >= 0.18 Then

' Actions if true
Sheets("Quote Tool").Visible = True
Sheets("Quote Tool").Select
Range("A1").Select

' Actions if false
Else
MsgBox ("Insufficient revenue")

' Ends if
End If

' Turns screenupdating back on
Application.ScreenUpdating = True

End Sub

' Turns sheet hidden once move away from it
Private Sub Worksheet_Deactivate()
Me.Visible = xlSheetHidden

 

[VoG]

No, it should go in the sheet's code module. Right click the sheet tab, select View Code and paste in the code.

 

[Ben_Holmes]

Thats a great trick!

I like that a lot.

Thanks for the help.