Como não colocou a rotina que utiliza para carregar o textbox, de uma olhada no tópico abaixo se ajuda.

Hyperlink Em vba
viewtopic.php?f=10&t=3709

Se pesquisar por "hyperlink form" encontrara varios outros posts sobre o assunto.

[]a

Este ficheiro tem dois formulários e nos campos de numero de manual queria que aparecessem as hiperligações que estão na coluna C da Folha1.
tanto na frmpesqisa como tambem na frmManuais
Queria também que os outros usuários tivessem apenas acesso ao formulário de pesquisa e apenas eu ter acesso ao formulário de registo de manuais e á folha excel
Ficheiro em anexo

Obrigado

vi no topico que me enviou mas tambem nao resultou

enviei nova mensagem com o ficheiro em anexo
peço a sua ajuada

Não sei se entendi corretamente, mas a intenção é abrir o arquivo pelo hyperlink mostrado no textbox ?
Se for isto, pelo post que indiquei utilizando as dica do Alexandre no "txtnumerodomanual" de seu "frmManuais" utilize ma das rotinas abaixo :

Para abrir o arquivo com dois cliques no TextBox "txtnumerodomanual" utilize :

Private Sub txtnumerodomanual_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
    ActiveWorkbook.FollowHyperlink txtnumerodomanual
End Sub

Para abrir o arquivo ao selecionar o TextBox "txtnumerodomanual" utilize :

Private Sub txtnumerodomanual_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
     ThisWorkbook.FollowHyperlink txtnumerodomanual
End Sub

Tentei fazer o que me disse mas não resulta no TextBox4 continua a não dar para abrir o ficheiro.
o que tenho é assim:
Public GeralResultados As Variant
Private Sub btnPesquisar_Click()
If Me.TextBox1.Text = "" Then
MsgBox ("Digite o que você está procurando!"), vbInformation, "Pesquisa Personalizada Excel VBA 2013."
Else
Call PesquisaPersonalizada(Me.TextBox1.Text)
End If
End Sub
Private Sub TextBox4_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
ActiveWorkbook.FollowHyperlink TextBox4
End Sub
Private Sub SpinButton1_Change()
Dim Linha As Long
Dim Total As Long

Total = Me.SpinButton1.Max + 1
Linha = GeralResultados(Me.SpinButton1.Value)

Me.Labelcontador.Caption = Me.SpinButton1.Value + 1 & " de " & Total

Me.TextBox2.Text = Folha1.Cells(Linha, 1).Value
Me.TextBox3.Text = Folha1.Cells(Linha, 2).Value
Me.TextBox4.Text = Folha1.Cells(Linha, 3).Value
Me.TextBox5.Text = Folha1.Cells(Linha, 4).Value

End Sub

Private Sub PesquisaPersonalizada(ByVal Pesquisado As String)
Dim Pesquisa As Range
Dim Primeira As String
Dim Resultado As String

Set Pesquisa = Folha1.Cells.Find(What:=Pesquisado, After:=Range("A3"), LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False)

If Not Pesquisa Is Nothing Then
Primeira = Pesquisa.Address
Resultado = Pesquisa.Row

Do
Set Pesquisa = Folha1.Cells.FindNext(After:=Pesquisa)
If Not Pesquisa.Address Like Primeira Then
Resultado = Resultado & ";" & Pesquisa.Row
End If
Loop Until Pesquisa.Address Like Primeira

GeralResultados = Split(Resultado, ";")

Me.SpinButton1.Max = UBound(GeralResultados)

Me.SpinButton1.Enabled = True

Me.Labelcontador.Caption = "1 de " & UBound(GeralResultados) + 1

Me.TextBox2.Text = Folha1.Cells(GeralResultados(0), 1).Value
Me.TextBox3.Text = Folha1.Cells(GeralResultados(0), 2).Value
Me.TextBox4.Text = Folha1.Cells(GeralResultados(0), 3).Value
Me.TextBox5.Text = Folha1.Cells(GeralResultados(0), 4).Value

Else
Me.SpinButton1.Enabled = False
Me.Labelcontador.Caption = ""
Me.TextBox1.Text = ""
Me.TextBox2.Text = ""
Me.TextBox3.Text = ""
Me.TextBox4.Text = ""
Me.TextBox5.Text = ""

MsgBox ("Nenhum resultado para '" & Pesquisado & "' foi encontrado."), vbInformation, "Pesquisa Personalizada Excel VBA 2013."
End If
End Sub
Private Sub UserForm_Initialize()
Me.TextBox2.Enabled = False
Me.TextBox3.Enabled = False
Me.TextBox4.Enabled = False
Me.TextBox5.Enabled = False

Me.SpinButton1.Enabled = False
Me.Labelcontador.Caption = " "
End Sub

No frmManuais da este erro:
Private Sub txtnumerodomanual_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
ActiveWorkbook.FollowHyperlink txtnumerodomanual
End Sub

e na frmpesquisa não abre nada

No frmManuais da este erro:
Private Sub txtnumerodomanual_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
ActiveWorkbook.FollowHyperlink txtnumerodomanual
End Sub

e na frmpesquisa não abre nada

branca, primeiramente, quando responder NÃO precisa ficar repetindo a mensagem anterior, assim o tópico fica mais limpo, e segundo, coloque suas duvidas no tópico que abriu, e não por msg em PVT, assim outros colegas poderão ajudar, se não entendemos que foi resolvido.

Na msg que me enviou diz uma coisa e aqui diz outra:
Conforme sua msg em PVT:

se poder abra o documento compactado na terceira mensagem e altere e pode me enviar para [email protected]
o que eu pretendo é que na frmpesquisa na Textbox4 ao pesquisar consiga abrir o documento atraves de textbox e
na frmManuais na txtnumerodomanual faça exatamente o mesmo.
Queria ainda que o acesso á folha1 e á frmManuais seja apenas para mim como administrador
e o Acesso dos outros usuarios seja apenas a frmpesquisa.

Fiz as adaptações no modelo em anexo, veja se é isto:

Abrir arquivo por Hyperlink em textbox

Quanto a;
"Queria ainda que o acesso á folha1 e á frmManuais seja apenas para mim como administrador" - não entendi, uma vez que este modelo só temos uma aba a fFolha1".

[]

Era exactamente isto que precisava obrigadão.
Agora só preciso de saber como é que faço para só eu ter acesso acesso a tudo e os outros usuários terem acesso apenas á frmpesquisa???

quero que os outros usuários tenham apenas acesso á frmpesquisa

ou seja quero que eles ao abrirem a frmpesquisa o resto fique oculto e quando eu abro abre a folha de excel e as frm´s todas

ou seja quero que eles ao abrirem a frmpesquisa o resto fique oculto e quando eu abro abre a folha de excel e as frm´s todas

Como eu disse em um dos posts anteriores, você só tem uma aba em seu arquivo, mas para restringir os acessos da forma que pretende, tem de ter um form com login qdo abrir o arquivo, que solicitará o nome do usuário e a senha.
Pesquise aqui no forum por "login usuario" que encontrara varios tópicos a respeito.

[]s