Locking Worksheets with a Macro

Good morning,

I found the following code which allows you to lock sheets 1 to 3 with the ActiveX control buttons located on Sheet4.

Private Sub CommandButton1_Click()
    Dim wsht As Worksheet
    
    If InputBox("Enter Password", "PASSWORD") <> "Secret" Then
        MsgBox "Wrong Password", vbCritical
        Exit Sub
    Else
        For Each wsht In ThisWorkbook.Worksheets
            For i = 1 To 3
                wsht.Visible = xlSheetVisible
            Next i
        Next wsht
    End If
    
End Sub

Private Sub CommandButton2_Click()
    Sheet1.Visible = xlSheetVeryHidden
    Sheet2.Visible = xlSheetVeryHidden
    Sheet3.Visible = xlSheetVeryHidden

End Sub

I figured out how to change the code so that, lets say I want Sheet1 to stay visible.

Private Sub CommandButton1_Click()
    Dim wsht As Worksheet
    
    If InputBox("Enter Password", "PASSWORD") <> "Secret" Then
        MsgBox "Wrong Password", vbCritical
        Exit Sub
    Else
        For Each wsht In ThisWorkbook.Worksheets
            For i = 1 To 3
                wsht.Visible = xlSheetVisible
            Next i
        Next wsht
    End If
    
End Sub
Private Sub CommandButton2_Click()
    Sheet1.Visible = xlSheetVisible
    Sheet2.Visible = xlSheetVeryHidden
    Sheet3.Visible = xlSheetVeryHidden

End Sub

What I cannot figure out is how to recode this so that I can setup the two ActiveX buttons on Sheet1 and it closes whatever sheet after it I want closed.

I am attaching the a sample spreadsheet I am working with and it has some additional notes on it.

Thanks!