Seria interessante voce compartilhar sua planilha...

att // Lustosa

LustosaG ela é maior que o permitido para postar e aqui na empresa não tenho acesso a arquivos na nuvem
Já vi e revi os códigos e não possui nenhuma linha que oculte as planilhas!

Veja se funciona: ( FAÇA AS DEVIDAS ADEQUAÇÕES DE NOMES NO CÓDIGO )

Sub UnhideSheet ()
Dim sht como planilha
Definir sht = folhas ("" Folha1 "")
sht.Visible = xlSheetVisible
End Sub

/ Jogue essa macro em um botão e execute para ver se funciona.. ou se não .. tente essa:

Sub Protect_Unprotect_Sheet() 
' Version: Excel 2007 
'-- 
Const cstrSHEET_NAME As String = ""Sheet1"" 
On Error Resume Next 
With ThisWorkbook.Worksheets(cstrSHEET_NAME) 
If .Visible = xlSheetVisible Then 
' Hides the object so that the only way for you to make it 
' visible again is by setting this property to True 
' (the user cannot make the object visible). 
.Visible = xlVeryHidden ' = 2 
' or 
' Hides the worksheet which the user can unhide via menu. 
.Visible = xlSheetHidden ' = FALSE 
Else 
' Displays the sheet. 
.Visible = xlSheetVisible ' = TRUE 
End If 
On Error GoTo 0 
' Check Sheet status 
MsgBox ""Sheet: '"" & cstrSHEET_NAME & ""' is "" & _ 
IIf(.Visible = xlSheetVisible, ""Visible"", ""Hidden"") & _ 
IIf(Err.Number <> 0, vbLf & _ 
""("" & Err.Number & "") "" & _ 
Err.Description, """") & vbLf & _ 
""Multi User Editing = "" & _ 
.Parent.MultiUserEditing 
End With 
End Sub

Altere a propriedade na janela do VBE:

LustosaG

Os seus códigos estão todos com erro!
Não rodou nenhum!

Altere a propriedade na janela do VBE:

Como informei no meu questionamento, o Excel não permite eu alterar a propiredade

Dá o erro que esta na imagem

Como informei no meu questionamento, o Excel não permite eu alterar a propiredade

Foi mal, não li direito toda sua postagem inicial...

Por acaso o Workbook não está com Restrição de Edição? Pelo print de tela que vc anexou no início, os itens esmaecidos sugerem que é esse o problema.

Veja na guia Revisão, grupo Alterações, botão Proteger Pasta de Trabalho, se o item Proteger Estruturas e Janelas não está marcado. Se estiver, desmarque, especialmente o item Estrutura.

Ou verifique se a propriedade ThisWorkbook.ProtectStructure / ThisWorkbook.ProtectWindows estão True. Se estiverem, use o método Unprotect para depois poder tornar as planilhas visíveis.

EdsonBR provavelmente o código do login fazia proteger a planilha e eu nem tinha percebido
Muito obrigado!