Libros compartidos, error método “Unprotec” de objeto “_Workbook”

Con una molestia alguien que me apoye con lo siguiente tengo un libro con varias hojas las cuales se pueden incrementar, las hojas están ocultas para evitar manipulación en ellas, al iniciar la macro las hojas se visualizan, para trabajar en ellas, este proceso se ejecuta correctamente en el archivo sin compartir, sin embargo al compartir el archivo con otros usuarios, me marca error en el método “Unprotec” de objeto “_Workbook”

Sub visualiza_hoja()

ActiveWorkbook.Unprotect "A C C E S O"

ActiveSheet.Unprotect "A C C E S O"

numeroHojas = Sheets.Count

    For i = 1 To numeroHojas

        c = Sheets(i).Name

            If c <> "A C C E S O" Then

        Worksheets(c).Visible = True

            End If

    Next

    With ActiveWindow

        .DisplayHeadings = False

        .DisplayHorizontalScrollBar = False

        .DisplayVerticalScrollBar = False

        .DisplayWorkbookTabs = False

    End With

Application.ScreenUpdating = False

End Sub

Anteriormente tenía el siguiente proceso que no definía el número de hojas existentes y funcionaba con el archivo compartido, debido a las necesidades se crean nuevas hojas que no están determinadas en esta macro por lo que se opto por utilizar la anterior.

Sub visualiza_hoja()

Worksheets("Apizaco").Visible = True

Worksheets("Actual").Visible = True

Worksheets("Anaquel gris").Visible = True

Worksheets("JLHH").Visible = True

Worksheets("Catalogo_Proy").Visible = True

Worksheets("Usuarios").Visible = True

Worksheets("Busqueda").Visible = True

With ActiveWindow

.DisplayHeadings = False

.DisplayHorizontalScrollBar = False

.DisplayVerticalScrollBar = False

.DisplayWorkbookTabs = False

End With

End Sub