Eu não acredito que haja um atalho direto para esse diálogo.
Você pode obter semelhante usando um pouco de VBA em uma macro e, em seguida, atribuindo-o a um atalho de teclado de sua escolha.
Sub ShowAllSheets()
Application.CommandBars("Workbook tabs").ShowPopup
End Sub
- Fonte
- Mais informações