Qual o codigo que vc esta usando????

O ideal é postar o codigo com o arquivo que deve funcionar corretamente

Boa tarde Shroeder,

Utiliza a expressão "ThisWorkbook" no código que vai funcionar apenas na pasta de trabalho (planilha) que estiver o código.

Qualquer coisa da o grito.
Abraço

Obrigado pela ajuda mas já tentei o ThisWorkBook em alguns lugares do código e não estou a conseguir.

Sub SuaMacro()
'Código de sua macro aqui
If ActiveWindow.DisplayWorkbookTabs = True Then
Dim Resultado As VbMsgBoxResult
Resultado = MsgBox("Tem a certeza que quer ver os separadores?", vbYesNo, "Dúvida")
If Resultado = vbYes Then
MsgBox ("Até breve!")
Application.Quit
ActiveWorkbook.RefreshAll
ThisWorkbook.Close SaveChanges:=False
Else
ActiveWindow.DisplayWorkbookTabs = False
End If

End If
'Chama a rotina temporizador, que executará a
'SuaMacro após o tempo definido
Call Temporizador
End Sub

Sub Temporizador()
'Chama a rotina SuaMacro após 10 minutos
Call Application.OnTime(Now + TimeValue("00:00:01"), "SuaMacro")
End Sub

Nesta macro nao tem erros pra causar o que vc descrevee nela nao tem nenhuma instrução que delete qualquer aba.

Basta ver que nao tem Delete em nenhum local.

Como eu disse poste o arquivo, assim ajuda vem na medida....

Marcelo, não é para deletar.... é para fechar o Excel.

Vou dar uma analisada no código Shroeder. Um momento...

Verdade Bernardo, entao o problema esta aqui...

Application.Quit

A principio é so trocar por

Activeworkbook.close

Vai fechar uma so

O codigo application.quit encerra o excel activeworkbook.close fecha a planilha ativa.

Boa tarde Shroeder,

Tenta assim:

Option Explicit

Sub SuaMacro()
Dim wb          As Workbook
Dim Resultado   As VbMsgBoxResult

    Set wb = ThisWorkbook
    
    'Código de sua macro aqui
    If Windows(wb.Name).DisplayWorkbookTabs = True Then
    
    Resultado = MsgBox("Tem a certeza que quer ver os separadores?", vbYesNo, "Dúvida")
        If Resultado = vbYes Then
        MsgBox ("Até breve!")
        Application.Quit
        Windows(wb.Name).RefreshAll
        wb.Close SaveChanges:=False
        Else
        Windows(wb.Name).DisplayWorkbookTabs = False
        End If
    
    End If
    'Chama a rotina temporizador, que executará a
    'SuaMacro após o tempo definido
    Call Temporizador
End Sub

Sub Temporizador()
    'Chama a rotina SuaMacro após 10 minutos
    Call Application.OnTime(Now + TimeValue("00:00:01"), "SuaMacro")
End Sub

Marcelo, o problema não é apenas esse.
Ele quer executar duas planilhas ao mesmo tempo e não consegue pois o código verifica o Excel todo e deve verificar apenas uma planilha.
Faz essa correção, executa o código e abre uma nova pasta de trabalho em branco para testar.

Qualquer coisa da o grito.
Abraço

Bernardo Application. Quit vai encerrar o excel tendo 1, 2, ou 10 arquivos abertos.

Se nao trocar como eu disse vai sempre fechar os dois arquivos

Ok Marcelo.
Desde a comunidade você não muda cara...
Vou aguardar a posição do Shroeder.

Bernardo eu posso estar enganado e o problema nao ser somente este como vc disse mas, que vai fechar todo o excel isso vai.

Vamos aguardar

Marcelo, falei que você não muda por falta de interpretação.

Pelo visto, também não fez o que disse... O problema não é fechar o Excel todo. O problema é que mesmo "corrigindo" isso que você falou, ele não vai conseguir trabalhar com duas planilhas abertas ao mesmo tempo e que as duas demonstre tudo que deve ser demonstrado.

Apenas uma planilha deve fazer a verificação da exibição das abas, se ele abrir uma outra planilha, ela deve funcionar da maneira que ela foi feita, exibindo as abas, e esse código não permite isso.

O que você sugeriu é uma "ideia" também, mas não o que foi pedido, logo, não resolveria o problema.

Qualquer coisa da o grito.
Abraço

Obrigado. Resolveu em parte.

Agora ao sair, pergunta sempre se desejamos gravar. Antes, saía logo.

Cumps

Sair de onde Shroeder?
Fechar a planilha?

altera a posição do salvamento:

    Option Explicit

    Sub SuaMacro()
    Dim wb          As Workbook
    Dim Resultado   As VbMsgBoxResult

        Set wb = ThisWorkbook
       
        'Código de sua macro aqui
        If Windows(wb.Name).DisplayWorkbookTabs = True Then
       
        Resultado = MsgBox("Tem a certeza que quer ver os separadores?", vbYesNo, "Dúvida")
            If Resultado = vbYes Then
            MsgBox ("Até breve!")
            wb.Close SaveChanges:=False
            Application.Quit
            Windows(wb.Name).RefreshAll
            Else
            Windows(wb.Name).DisplayWorkbookTabs = False
            End If
       
        End If
        'Chama a rotina temporizador, que executará a
        'SuaMacro após o tempo definido
        Call Temporizador
    End Sub

    Sub Temporizador()
        'Chama a rotina SuaMacro após 10 minutos
        Call Application.OnTime(Now + TimeValue("00:00:01"), "SuaMacro")
    End Sub

Qualquer coisa da o grito.
Abraço

Uma vez mais, obrigado pela colaboração.

Ficou a funcionar na perfeição.

O código final foi este:

Sub SuaMacro()
'Código de sua macro aqui
Dim wb As Workbook
Dim Resultado As VbMsgBoxResult

Set wb = ThisWorkbook

If Windows(wb.Name).DisplayWorkbookTabs = True Then
Resultado = MsgBox("Tem a certeza que quer ver os separadores?", vbYesNo, "Dúvida")
If Resultado = vbYes Then
MsgBox ("Até breve!")
wb.Close SaveChanges:=False
ActiveWorkbook.Quit
ActiveWorkbook.RefreshAll
Else
ActiveWindow.DisplayWorkbookTabs = False

End If

End If
'Chama a rotina temporizador, que executará a
'SuaMacro após o tempo definido
Call Temporizador
End Sub

Sub Temporizador()
'Chama a rotina SuaMacro após 10 minutos
Call Application.OnTime(Now + TimeValue("00:00:01"), "SuaMacro")
End Sub