By "Pesquisa" :

search.php?keywords=open

[]s

Mauro

Você poderia abreviar algo sobre a instrução open.

Desde já agradeço,

Boa tarde!!
Poderia ser mais claro..?

O que deseja...?

Att

Mauro

Você poderia abreviar algo sobre a instrução open.

Desde já agradeço,

Lição 04: VBA - Trabalhando com o objeto Application
http://www.juliobattisti.com.br/cursos/ ... licao4.asp

[]s

Boa Noite

O Mauro estava me dizendo sobre VBA - Trabalhando com o objeto Application, mas ele ja passou o tutorial e entendi já.

Obrigado

Boa noite!!

Caso dê por solucionado, favor marcar como resolvido!

obrigado!!

Tem um exemplo... http://www.vbaexpress.com/kb/getarticle.php?kb_id=341

Option Explicit 
 
 '<< OPEN THE CLEAN UP MANAGER >>
Sub StartCleanUpManager() 
    On Error Goto 1 
     'ActiveWorkbook.FollowHyperlink "c:WindowsSystem32Cleanmgr.exe", _
     'NewWindow:=True      '< for WinXP
    ActiveWorkbook.FollowHyperlink "c:WindowsCleanmgr.exe", NewWindow:=True 
    Exit Sub 
    1:       MsgBox Err.Description 
End Sub 
 
 '<< START DISC DEFRAGMENTER >>
Sub StartDefrag() 
    On Error Goto 1 
     'ActiveWorkbook.FollowHyperlink "c:WindowsSystem32Defrag.exe", _
     'NewWindow:=True      '< for WinXP
    ActiveWorkbook.FollowHyperlink "c:WindowsDefrag.exe", NewWindow:=True 
    Exit Sub 
    1:       MsgBox Err.Description 
End Sub 
 
 '<< OPEN A WORD DOCUMENT >>
Sub OpenWord() 
    On Error Goto 1 
    ActiveWorkbook.FollowHyperlink (ActiveWorkbook.Path & "TestDoc.doc"), NewWindow:=True 
    Exit Sub 
    1:       MsgBox Err.Description 
End Sub 
 
 '<< OPEN ANYTHING >>
Sub OpenWindowsExplorer() 
     
    On Error Goto 1 
    ActiveWorkbook.FollowHyperlink "C:Windowsexplorer.exe", NewWindow:=True 
    Exit Sub 
    1:       MsgBox Err.Description 
End Sub 
 
 '<< OPEN AN ACCESS DATABASE >>
Sub OpenDatabase() 
    On Error Goto 1 
    ActiveWorkbook.FollowHyperlink ActiveWorkbook.Path & _ 
    "Testdb.mdb", NewWindow:=True 
    Exit Sub 
    1:       MsgBox Err.Description 
End Sub 
 
 '<< OPEN A PDF DOCUMENT >>
Sub OpenPDFdoc() 
    MsgBox "This will fail if you don't have Adobe Acrobat installed :o)" 
    On Error Goto 1 
    ActiveWorkbook.FollowHyperlink ActiveWorkbook.Path & _ 
    "AA cover.pdf", NewWindow:=True 
    Exit Sub 
    1:       MsgBox Err.Description 
End Sub 
 
 '<< OPEN A WEB PAGE >>
Sub OpenWebPage() 
    On Error Goto 1 
    ActiveWorkbook.FollowHyperlink "http://www.vbaexpress.com/portal.php", NewWindow:=True 
    Exit Sub 
    1:       MsgBox Err.Description 
End Sub 
 

Ola!

Boa Tarde.

Poderia explicar este processo que você citou.
Outra ajuda, como eu faço para bloquear o VB, com senha.

Desde já obrigado.

Boa tarde!!

Para proteger seu projeto.

Abra sua planilha
Entre no editor do VBA (Alt+F11)
Clique em Ferramentas e aponte para Propriedades de VBAProjec
Clique na ABA proteção
Clique em bloquear projeto para exibição
Defina a senha
Clique em ok

Outra ajudinha.

Como eu faço para esconder o caminho do hiperlink, coloquei uma figura e adicionei um caminho via hiperlink.
Quando o mouse passa por cima da figura mostra o caminho do hiperlink.

Desde já super agradecido.

Boa tarde!!

Se a ajuda anterior foi útil click na mãozinha

Mende seu arquivo, que não deu pra captar a mensagem.

Infelizmente consigo mandar só o print.

Segue em anexo

( Veja o caminho abaixo da seta do mouse, queria bloquear isso).

No site abaixo, tem uma duvida de um usuário sobre a mesma questão, e foi postado um arquivo com uma solução via VBA onde ao abrir o arquivo é criado uma "dll" (Hyperlnk.dll) que serve para guardar o caminho do Hyperlink e atravez dos Botões retiramos e restauramos os Balões dos Links, é bem interessante, baixe o anexo e de uma olhada :

Disable Hyperlink Hover Info?
http://www.mrexcel.com/forum/showthread.php?t=491587

No post do "Jaafar Tribak" o mesmo anexou o arquivo "Workbook Example" ( http://www.box.com/shared/hukrmo6dby ), veja as obs quanto a "Sheet" oculta onde é compilado o hyperlink.

[]s

Boa noite!!

Respondendo sua pergunta.

Como eu faço para esconder o caminho do hiperlink, coloquei uma figura e adicionei um caminho via hiperlink.
Quando o mouse passa por cima da figura mostra o caminho do hiperlink.

Click com o botão direito do mouse na figura, vá em Editar Link, click em Dica de Tela, na caixa que vai abrir digite "Click Aqui".

Quando alguém passar o mouse vai aparecer a mensagem que você digitou.

Mauro meu mestre

Infelizmente não manjo inglês, eu sei que é pedir demais, mas pode me dar o passo a passo.

Desde já agradeço.

Ferreira, você chegou a baixar o exemplo ?