protéger la 1ère feuille d'un classeur excel pour avoir accès aux autres

Option Explicit
Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Dim o As Worksheet
    Sheets("ACCUEIL").[B14:F15].ClearContents
    For Each o In Worksheets
        If o.Name <> "ACCUEIL" Then o.Visible = xlSheetVeryHidden
    Next
End Sub

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
    Dim o As Worksheet
    If [b14].Value = "toto" Then
        For Each o In Worksheets
            If o.Name <> "ACCUEIL" Then o.Visible = True
        Next
    End If
End Sub