VBA code to Hide/Unhide a Worksheet in a Workbook

[DominicanExcel]

Hello, I would like the VBA code to Hide/Unhide a Worksheet in a Workbook with a Formula.

I'm attaching a sample workbook where I would like the "Data" tab to be hidden/unhidden with password "test" upon clicking on cell C6 link on the "Content" tab.

Thanks

 

[rlv01]

If you are doing this to deter the casual user and are not concerned with it being cryptographically secure then something like this is a simple way
(note that this example uses the double-click event)

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    Const PW = "Test"
    Dim Ans As String

    If Target.Address = "$C$6" Then
        Ans = InputBox("Password")
        If Ans = PW Then
            With ThisWorkbook.Worksheets("Data")
                If .Visible = xlSheetVisible Then
                    .Visible = xlSheetVeryHidden
                Else
                    .Visible = xlSheetVisible
                End If
            End With
        Else
            MsgBox "Incorrect Password"
        End If
    End If
End Sub

If you are trying for cryptographically secure, then things quickly get a lot more complicated.