Example that activates cell A1 whenever the sheet is activated:
Private Sub Worksheet_Activate()
Range("A1").Activate
End Sub
Worksheet Deactivate event
Private Sub Worksheet_Deactivate()
MsgBox "You must stay on Sheet1"
Sheets("Sheet1").Activate
End Sub