EXCEL（VBA）如何在点取消是返回前面一个表！（代码如下）

有很多没用的语句 都 加了 '
Private Sub Worksheet_Activate()
Dim password As String: Dim x As Byte: Dim retry As Byte
If retry = 0 Then
Rows("1:79").Select
Selection.EntireRow.Hidden = True
End If
're: x = 1
'Do While x < 2
password = InputBox("输入密码", "输入密码", "")
If password = "a" Then
MsgBox "欢迎登陆", vbOKOnly + vbInformation
'Rows("1:79").Select
Selection.EntireRow.Hidden = False
' Exit Do
Else
MsgBox "密码不正确", vbOKOnly + vbCritical
Sheets(1).Activate '这句是添加的,你可以自定义
End If
'Loop
'If x = 2 Then retry = MsgBox("是否重试？", vbOKOnly + vbCritical)
'If retry = re Then
' End If
End Sub