Notifications
Clear all

hiperlink para pasta protegida

9 Posts
1 Usuários
0 Reactions
3,546 Visualizações
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Hiperlink , linkar planilhas ocultas.

Tenho uma macro que:
1- DESPROTEGE a pasta de trabalho
2- COPIA uma planilha "Faixa" que está veryHiddem
3- GERA uma nova planilha a partir da copiada ;dando nome a esta dos dados preenchidos em um form.
4- Gera um em uma planilha "RESUMO" um HIPERLINK para esta "gerada" .
5- VeryHiddem nesta "gerada"
6- Visible na "RESUMO"
7- PROTEGE a pasta de trabalho

Até aqui funciona beleza ;

Mas quando aciono o hiperlink (a pata está protegida) então o hiperlink não funciona , como faço para o hiperlink desbloquear a plan linkada ,veryHidem na RESUMO e visible na GERADA.

P.S - Ia anexar a plan , mas não sei como faço isso?

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 31/01/2012 6:09 am
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

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..

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 31/01/2012 6:14 am
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

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?

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 31/01/2012 6:39 am
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

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

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 31/01/2012 10:51 am
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

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

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 31/01/2012 9:36 pm
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

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)

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 01/02/2012 9:01 am
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

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

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 01/02/2012 9:59 am
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

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

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 01/02/2012 8:53 pm
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

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

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 01/02/2012 10:28 pm