在Private Sub Worksheet_Activate()End Sub和Private Sub Worksheet_Deactivate()End Sub中操作工作表的隐藏和显示Sheets(3).Visible = True表示工作表3显示，改成false是隐藏
