Bom dia!!!

Quando for postar ou responder note que logo abaixo no roda pé onde digita sua mensagem, vai está escrito "Adicionar um anexo"

Att..

Ah tá , é que aqui na empresa nem tudo é liberado , onde seria o anexador está "conteudo bloqueado".

Posso lhe mandar por email e vc por fv anexa para mim?

claudinei, pode enviar a planilha para o meu email que se a mesma estiver dentro das regras do Forum eu anexo, o email aparece logo abaixo :

Quanto a usar o Kyperlink para acessar aba Oculta podemos usar a rotina abaixo :
Fonte:
http://www.excelbanter.com/showthread.php?t=24331

Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)

Dim testRng As Range

    If Intersect(Target.Parent, Me.Range("a:a")) Is Nothing Then
        Exit Sub
    End If

    Set testRng = Nothing
    On Error Resume Next

    Set testRng = Application.Range(Target.Parent.Value)
    On Error GoTo 0

    If testRng Is Nothing Then
        'do nothing
    Else
        testRng.Parent.Visible = xlSheetVisible
        Application.Goto testRng, scroll:=True
    End If
    
End Sub

Fiz o teste com hyperlink no mesmo WKBook, e funciona corretamente, agora quanto a cessar outra Pasta com senha não sei se é possível desta forma, vou fazer algumas pesquisas e se encontrar algo eu posto, se não teriámos de alterar para macro pura sem Hyperlink.

Aproveitando, para acessar um Pasta externa com a senha definida em uma rotina usariámos de seguinte forma:
Workbooks.Open Filename:="Pasta2", Password:="XYZ", WriteResPassword:="XYZ"

[]s

Claudinei, veja se seria isto.

Fiz conforme entendi em sua explicação, só o lance do ENTER que fiquei em duvida, e tamebm não encontrei a proteção que cita acima, eu havia entendido que "PASTA" era um arquivo externo.

Qq duvida, retorne

[]s

Claudinei, veja se seria isto.

Fiz conforme entendi em sua explicação, só o lance do ENTER que fiquei em duvida, e tamebm não encontrei a proteção que cita acima, eu havia entendido que "PASTA" era um arquivo externo.

Qq duvida, retorne

[]s

O ENTER era mudar de um txt para outro somente dando ENTER (bloquear o mouse e o tab) porque o codigo que estava usando para maiuscula ,só mudava para maiuscula depois de dar ENTER , então se o sujeito usasse um o MOUSE ou o TAB ficava em minuscula.Mas com seu código MATOU A PAU.

A proteção estava desativada; ela está no módulo prot_desprot_pass , a ativei ai NÃO FUNCIONOU o hiperlink.

Outra coisa quando clico em inserir mais planilha blz ,insere mais 1 planilha normalmente(Ex: txtDispositivo=47010 , txtAlimentador=SRT006) nome da plan = Faixa_txtDispositivo_txtAlimentador ou seja Faixa_47010_SRT006, mas quando clico em inserir novamente e uso o mesmo (Ex: txtDispositivo=47010 , txtAlimentador=SRT006) dá erro porque o nome já existe , tem como se existir ele nomear a nova planilha como Faixa_txtDispositivo_txtAlimentador(nº crescente) ; por exemplo Faixa_47010_SRT006(1) ;Faixa_47010_SRT006(2) e assim sucessivamente?

Desculpem me a folga mas é que o pouco que sei de excel (pouco mesmo) aprendi "fuçando"; pego um código aqui na net e mudo pra lá ,pra cá só pra ver pra que serve .Então as vezes faço perguntas idiotas mas...

E Mauro a sua forma de fazer e comentar os códigos tem me ajudado muito a aprender desde que me cadastrei aqui, MUITO OBRIGADO MESMO.

P.S- Mandei o arquivo novamente para seu email. (Desculpe o incomodo)

Usei este código para o Link funcionou legal;
As outras duvidas ainda persistem

Créditos ao Natan Silva um outro colaborador muito atencioso dali do Ceará.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Desprot2 'Chama a sub desproteger a pasta
If Target.Column = 1 Then 'Verificar se a célula que está sendo clicada está na coluna 1:
If Target.Row > 14 Then 'Verificar se a célula que está sendo clicada está após a linha 14:
If IsNull(Target.Value) = False Then ' Verificar se a célula que está sendo clicada não está vazia
'' Verificar se a célula que está sendo clicada contém o nome de uma plan válida:
Set c = Nothing 'Destroi qualquer coisa atribuída a variável C, deixando ela como Nula ou Nada
On Error Resume Next 'Ignora quaquer possivel erro na linha abaixo, como você poderá clicar em uma célula inválida, ele irá ignorar o erro.
Set c = Sheets(Target.Value) 'Atribui o valor da célula como o Nome da Sheet que_
'será atribuída por sua vêz na variável C
If c Is Nothing Then 'Se C continuar como Nothing, que dizer que:
Exit Sub 'MsgBox "Planilha Não existe"
Else 'Se for algo, quer dizer que o nome da guia é válido e poderá ser selecionada....
Sheets(Target.Value).Visible = xlSheetVisible = Visible
End If
On Error GoTo 0 'Volta a verificação de erros para o nível 0 (todos os erros serão retornados).
End If
End If
End If
Prot2 'Chama a sub proteger a pasta

End Sub

Claudinei, a rotina que postou de fato é bem funcional, você disse que utilizou, mas não a encontrei no novo exemplo que me enviou.

De qualquer forma segue o exemplo adaptado a sua nova necessidade, não cheguei a utilizar a rotina acima, sómente a adaptei criando uma outra para verificar se existe quando for Criar uma nova aba(estácomentada)
Quanto a questão do erro da Proteção, o mesmo se dava pelo fato de quando a aba é criiada você utiliza protteção para a Pasta e para a nova Aba, e quando acessava desprotegia somente a Pasta, corrige a mesma, veja no anexo.

Qualquer duvida, retorne.

[]s

Vou testar aqui Mauro , essa planilha tá me matando , por hora muitissimo obrigado.