Worksheet protection

Hi Ben

Thank you for your question.

I'm not aware of a feature in Excel that would allow you to do this. It may be possible to set up by writing VBA code.

I will transfer your question to the Excel VBA forum thread in case this can be done.

Kind regards
Amanda

Hi Ben

Thank you for your question

The following code will provide a basic level of protection to each worksheet.

For this to work, you need to do the following

1. Enter the password for each sheet in cell "Q1" of that sheet. You can then hide the column to prevent casual observation of the password
2. Create a module in the VBA and then type in the following code
3. Create a worksheet called welcome. (This will be the sheet that the user will be directed to if they enter an incorrect password)

Sub Password()



    Dim varPass As String

    Dim varEntry As String

        

       

    Cells.Select

    Selection.EntireColumn.Hidden = True  'hide all the columns in the selected worksheet

    

    

    varPass = Range("Q1").Value

     

     If varPass = "" Then   'if there is no password for the sheet

        

        MsgBox "This sheet has no password"

        Cells.Select

        Selection.EntireColumn.Hidden = False

        Range("A1").Select

        Exit Sub

     

     Else

     

     varEntry = InputBox("Enter your Password") ' get password from user

     

        If varEntry = varPass Then   'if ok

        

           Cells.Select

           Selection.EntireColumn.Hidden = False

           Range("q1").EntireColumn.Hidden = True

           Range("A1").Select

           Exit Sub

           

        Else

        

           MsgBox ("Incorrect Password") 'if wrong

           

           Selection.EntireColumn.Hidden = False

           Cells.Select

           Worksheets("Welcome").Select  'go back to welcome sheet

           Range("q1").EntireColumn.Hidden = True

           Range("A1").Select

           

             

           

        End If

     

     End If

    



End Sub