Hide UnHide Worksheets in Excel VBA

How can you hide or unhide certain tabs for specific users? I was attempting the following code but the uname2 section has a syntax error.

UserNameWindows() As String
unamewindows = Environ(“Username”)
Uname2 = StrConv(unamewindows, vbUpperCase)

If Uname2 = “PERSON1” _
Or Uname2 = “PERSON2” _
Or Uname2 = “PERSON3” _

Sheets(“Copy Data”).Visible = True

End If

Hi PNRao!
Thank you so much!

I working on an application with 6 sheets that interact with each other via code. I do not want the users to be able to see the sheet tabs BUT, I need to be able to interact with them. I’m using Excel 2013 (xlsm file) and went into the File- Options-Advanced and deselected “Sheet Tabs visible”. The tabs are hidden and I can still access the sheet. However, after I save and close the workbook and then reopen it the sheet tabs are there again. I am at a lose as to why the sheet tab return. Is there some VBA code that can duplicate what the Options-Advance setting should keep in the workbook but does not.? I would be so grateful if someone could help me out on this one.

Hi
I have created navigation in home page. But the thing I want is to hide the sheet names which are shown below. But it should be accessed when the buttons are clicked.

Simply to say “Sheets should be hidden, but should be accessible”

Could you please help me in this issue.

Thanks in advance.

Hi,

I keep getting an error at the point below. I’m quite new to this so still learning.

For i = 0 To UBound(Split(strSheets, “,”))
Sheets(Split(strSheets, “,”)(i)).Visible = True

I’m not sure why, any help would be appreciated.

Thanks

C

Hi PNRao,

I’ve got a workbook that presently has 38 pages. I’ve included code to create a dynamic index.
Private Sub Worksheet_Activate()
Dim xSheet As Worksheet
Dim xRow As Integer
Dim calcState As Long
Dim scrUpdateState As Long
Application.ScreenUpdating = False
xRow = 1
With Me
.Columns(1).ClearContents
.Cells(1, 1) = “INDEX”
.Cells(1, 1).Name = “Index”
End With
For Each xSheet In Application.Worksheets
If xSheet.Name Me.Name Then
xRow = xRow + 1
With xSheet
.Range(“A1”).Name = “Start_” & xSheet.Index
.Hyperlinks.Add anchor:=.Range(“A1″), Address:=””, _
SubAddress:=”Index”, TextToDisplay:=”Back to Index”
End With
Me.Hyperlinks.Add anchor:=Me.Cells(xRow, 1), Address:=””, _
SubAddress:=”Start_” & xSheet.Index, TextToDisplay:=xSheet.Name
End If
Next
Application.ScreenUpdating = True
End Sub

When the index is created it links back to the index page but it is deleting a line I am trying to keep. I would like to insert a row before creating the link back to the index. Also when creating the index I would like to have it auto generate a checkbox to be used to hide worksheets not needed for the project we are working on.

I would like to use the same checkbox to hide rows on the cover sheet as well.

If you could provide any help it would be immensely appreciated.

Hi PNRao,

I would like to visible only link desire sheet which already hidden. How to do it? Please advice.
Thanks/
Jafar