VBE to hide sheets "can i share it as well"

[Tia]

have a workbook for the time attendance in the main sheet there is a
list of ID (numbers) with link
when ever you click on your number your sheet will open and than you
can
put how many hours y have worked each day
what i need is a way to hide those sheets from being seen but
whenever
you press on your name your sheet will be displayed. but each month i
have to access each sheet so i can add rows in it and add the date
and
the projects +sometimes i need to add sheets for new employees
I have used the following code but the code is for name not for a
number so its not working
how can i adjust it ? and can i put it as a share folder so multiple
person can use it in the same time ?
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim ws As Worksheet
If Range("D1").Value = "Tia" Then Exit Sub
If Target.Count > 1 Then Exit Sub
If Not Intersect(Target, Range("A:A")) Is Nothing And _
Target.Row > 1 Then
For Each ws In ThisWorkbook.Worksheets
If ws.Name <> "Main" Then ws.Visible = False
Next ws
Sheets(Target.Value).Visible = True
Sheets(Target.Value).Select
End If
End Sub

Private Sub Workbook_Open()
Dim ws As Worksheet
If Sheets("Main").Range("D1").Value = "Tia" Then
For Each ws In ThisWorkbook.Worksheets
ws.Visible = True
Next ws
End If
End Sub