Assigning sheets to user in online document

Hello.

i am in desperate need of a Vba code to limit ussers Access to an online sheet. 

I have a worksheet With 24 sheets. the stores are putting in somme info for ther own store. and ther have been problems users not using the right sheet.  so i want to hide all sheets exept The One each user gets assigned. 

i have been working on a code but i can't seem to get it to work 

Sub HideAllSheets()
' Skjul alle ark for alle brukere
Dim ws As Worksheet
For Each ws In ThisWorkbook.Sheets
If ws.Name <> "NyttArk101" Then
' Bruk xlSheetHidden for å skjule arkene
ws.Visible = xlSheetHidden
End If
Next ws
End Sub

Private Sub Workbook_Open()
Dim currentUserName As String

' Hent e-postadressen fra Microsoft-kontoen
currentUserName = Application.Session.CurrentUser.Address

' Skjul alle ark
HideAllSheets

' Vis kun det spesifikke arket for hver bruker
Select Case UCase(currentUserName)
Case "email address removed for privacy reasons"
ShowSpecificSheet "NyttArk101"

Case "email address removed for privacy reasons"
ShowSpecificSheet "NyttArk102"

Case "email address removed for privacy reasons"
ShowSpecificSheet "NyttArk103"

' Legg til saker for andre brukernavn og ark

End Select
End Sub

Sub ShowSpecificSheet(sheetName As String)
' Vis kun det spesifikke arket
Worksheets(sheetName).Visible = xlSheetVisible
End Sub