Bom dia!!
Esse exemplo é de autoria do JoseA.

Deve te ajudar, muito bom

'codigo para ir as guias nomeadas do excel
'Deve ser criado um botão em cada guia e adicionar um ÚNICO modulo para os botões
Private Sub UserForm_Initialize()
Dim sht As Worksheet
For Each sht In ActiveWorkbook.Worksheets
ListBox1.AddItem sht.Name
Next sht
End Sub
Private Sub ListBox1_Click()
Sheets(ListBox1.ListIndex + 1).Activate
'Unload Me
End Sub

Bom dia caro Alexandre, acho que nao expliquei bem o que preciso,

Tenho um projeto, ( que vc deve ate lembrar pois ja ajudou com outras coisas ), que tem la um form que chamo de menu, ali tenho botoes que me levam ate as outras forms do projeto, mas agora gostaria de criar um botao neste menu que abra uma aba do meu projeto, o seu formato original e para ediçao, e possivel???

Boa tarde!!

Seria...

Private Sub CommandButton1_Click()
Worksheets("MinhaPlanilha").Select
End Sub

Um grande abraço Ale,

Valeu

Boa tarde!!

Obrigado pelo retorno, se poder clicar na mãozinha...Obrigado!!

Alexandre,

Acabou que apareceu outro probleminha em torno desta questao.
Ao iniciar este projeto, a nossa secretaria entrara com login e senha comum,( userform presente mas desativada no momento) que neste caso bloqueia todas as abas, e ai esta o problema, tem como eu liberar somente esta aba para ela no mesmo esquema do botao citado no topico?

Ja arrumei, Obrigado.

Um grande abraço Alexandre.

Boa tarde!!

Como dica use a pesquisa do fórum, esse tópico e o seu novo tópico abaixo desse, caso queira vai encontra algo similar.

Tente adaptar..
Os dois últimos tem muita proximidade de seu caso, já que não postou sua planilha.

Auto: JValq

Option Explicit

Sub BloquearPlanilhas()
    Dim Pl As Worksheet
    
    For Each Pl In Worksheets
        Pl.Select
        Pl.Unprotect "SENHA"
            Cells.Locked = True
            [E3:F5000].Locked = False
        Pl.Protect "SENHA"
    Next
End Sub

Sub DesbloquearPlanilhas(ByVal Usuario As String, ByVal Senha As String)
    Dim Pl As Worksheet
        
    If Usuario = "Eu" Then
        For Each Pl In Worksheets
            Pl.Select
            Pl.Unprotect Senha
            Cells.Locked = True
            [E3:F5000].Locked = False
            Pl.Protect Senha
        Next
    End If
End Sub

Sub BloquearPlanilhas(ByVal Usuario As String, ByVal Senha As String)
    Dim Pl As Worksheet
        
    If Usuario = "Eu" Then
        For Each Pl In Worksheets
            Pl.Select
            Pl.Unprotect Senha
            Cells.Locked = True
            Pl.Protect Senha
        Next
    End If
End Sub
BloquearPlanilhas Usuario, Senha
DesbloquearPlanilhas Usuario, Senha