Bloquer une feuille d'un classeur par un mot de passe

Bonsoir,

Pour ma part j'ai entrée ces infos. mais impossible de renommer mes feuilles en modifiant aussi les nom de la VBA il doit me manquer une info ma feuille 1 se nomme Accueil (qui comprend mes bouton Masquer et afficher pour avoir accès a mes feuilles) - 2 CSST - 3 CNESST - 4 PAIE donc si vous pourriez m'aider à trouver mon problème cela serait très gentil.

Private Sub Workbook_Open()
Dim i As Integer
Worksheets("Accueil").Activate
End Sub

Sub Masquerfeuille()
Dim i As Integer
If MsgBox("Voulez-vous vraiment masquer les feuilles?", vbYesNo, "Confirmation!") = vbYes Then
For i = 1 To Sheets.Count - 1
Sheets("CSST ").Visible = xlSheetVeryHidden
Next i
End If
End Sub

Sub ActiverFeuille()
Dim i As Integer
Dim MonPassword As Variant
Dim AjoutData As Range
Set AjoutData = Sheets("CNESST").Cells(Rows.Count, 1).End(xlUp).Offset(1, 0)

On Error GoTo 1

For i = 1 To Sheets.Count - 1
Sheets("PAIE ").Visible = xlSheetVeryHidden
Next i

MonPassword = InputBox("Veuillez saisir votre mot de passe pour acc?der ? votre feuille :", "Identification")
If MonPassword = "1" Then
Sheets("CSST").Visible = True
Worksheets("CSST").Select
Range("A1").Select
End If
If MonPassword = "2" Then
Sheets("CNESST").Visible = True
Worksheets("CNESST").Select
Range("A1").Select
End If

If MonPassword = "3" Then
Sheets("PAIE").Visible = True
Worksheets("PAIE").Select
Range("A1").Select
End If

If MonPassword = "admin1" Then
For i = 1 To 3
Sheets("CSST, CNESST, PAIE'').Visible = True
Worksheets("CSST, CNESST, PAIE").Select
Range("A1").Select
Next i

End If

If MonPassword <> "" Then
AjoutData = MonPassword
AjoutData.Offset(0, 1).Value = Now
End If
1 End Sub