Automatically open to certain tab / Hide Sheet / Password Protect / Run macro on start up

Hello - if you could please help with writing code to perform the following functions?

1.Excel sheet that automatically opens to a tab called SR each time the workbook is opened
2.Additionally everytime the workbook is opened, I would like tab named IR to be hidden
3.When user manually unhides IR tab, a password is prompted every time to see the details within the IR spreadsheet.
4.Password = 1234


Also, do I paste in (Thisworkbook) within vba?

Hi b0whel01,
Try the sample in attached.

Regards,
tt3

b0whel01

Here is my approach for dealing with building in a password to the IR tab. If a user attempts to unhide the tab (for example, by right clicking any of the other active tabs, selecting the Unhide option, selecting IR, and clicking OK), then the user will be prompted to enter a password. The drawback of my approach is threefold. First, while the user is prompted for the password, he or she can see a portion of the IR tab. Second, each time you click away and back to the IR tab, you will be prompted for the password. Third, if someone is sufficiently familiar with VBA, he or she can discover the password by going into the VBE. If you are comfortable with these three drawback, then paste this code into the IR object in VBE (instead of a regular module).

Sub Worksheet_Activate()

    If Application.InputBox _
        (Prompt:="Enter the password.", _
        Title:="Sheet Protected", _
        Type:=2) <> "1234" Then
            Worksheets("IR").Visible = False
            Worksheets("SR").Activate
    Else
        Worksheets("IR").Visible = True
        Worksheets("IR").Activate
    End If

End Sub

_______________________
[1] If this reply was helpful, click the star to the left.
[2] If this reply answered your question, mark this thread as [SOLVED].