Microsoft 365 Accès restreint par onglet suivant utilisateur

Sub Bld_Param()
Dim LFeuilles As String
Dim Ws As Worksheet

    For Each Ws In ThisWorkbook.Worksheets
        If Ws.Type = xlWorksheet Then
            LFeuilles = LFeuilles & IIf(LFeuilles = "", "", ",") & Ws.Name
        End If
    Next

    With Sheets("Paramétrage")
        
        .Visible = True
        .Activate
        On Error Resume Next
            .ListObjects("Param").Unlist
        On Error GoTo 0
        .ListObjects.Add(xlSrcRange, Range("A1:AE7"), , xlYes, _
            "TableStyleMedium9").Name = "Param"
    End With
    [Param[#Headers]].Columns.AutoFit
    [Param].AutoFilter
    
    
    For Each Elem In [Param[#Headers]]
        With Elem.Validation
            If Elem <> "NOM" And Elem <> "Mot de Passe" Then
                .Delete
                .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, _
                    Operator:=xlBetween, Formula1:=LFeuilles
            End If
        End With
    Next

End Sub

Private Sub CommandButton1_Click()
PSW = TextBox1.Value
Unload UserFormMDP
End Sub

Public PSW As String

Sub MOT_DE_PASSE()
Call Masquer_feuille
PSW = ""
UserFormMDP.TextBox1.Value = ""
UserFormMDP.Show
If PSW = "Admin" Then
             MsgBox ("cette macro va déclencher la macro ouvrir tous les onglets!")
      Call Ouvrir_Tous_Les_Onglets

       ElseIf PSW = "roger" Then
             MsgBox ("Bonjour Monsieur, choisir votre macro pour roger!")
      
              ElseIf PSW = "pierre" Then
             MsgBox ("Bonjour Monsieur, choisir votre macro pour pierre!")
      
              ElseIf PSW = "paul" Then
             MsgBox ("Bonjour Monsieur, choisir votre macro pour paul!")
      
      
         Else
            MsgBox ("vous n'êtes pas autorisé à utiliser ce PROGRAMME   !")
         'l'information suivante ferme le classeur
            'Application.Quit
  
  End If

End Sub