Disable Hyperlink Hover Info?

[billpq]

I have a worksheet with hyperlinks and I would like to disable the little yellow balloon that appears when you hover over the cell with the mouse.

Can this be done? If so, can it be done on a cell by cell basis or just all of nothing for the entire sheet? If cell by cell, can I change the words that appear in the yellow balloon for those that I don't want to disable?

Thanks!

 

[billpq]

This now should work for disabling the tooltip balloons of all Hyperlinks including those associated with the HYPERLINK function.

Workbook Update

Code stays the same.

Excellent! Thanks a lot for your help!

 

[RoyR]

Greetings to everyone,
I came across this site by searching for a way to get rid of the hyperlink balloon. Same problem as Billpq. I followed everything that was said here and downloaded the files from jaafar Tribak. The example workbooks work great but no matter what I try, I get the following error upon opening my own workbook.

Run-time error '13':
Type Mismatch

ReDim Bytes(LBound(aVar) To UBound(aVar))

I used copy/paste to get the macro code from the example workbook. I have no idea what mistake I am making. I am using excel 2003 on a HP laptop with Vista in case that has something to do with it.

Also, I tried to unhide the dllBytes sheet in the example workbook incase there was something there I missed, but can not do it.
Don’t know what else to try.

Thank you for any time you give to me.

 

[Jaafar Tribak]

Greetings to everyone,
I came across this site by searching for a way to get rid of the hyperlink balloon. Same problem as Billpq. I followed everything that was said here and downloaded the files from jaafar Tribak. The example workbooks work great but no matter what I try, I get the following error upon opening my own workbook.

Run-time error '13':
Type Mismatch

ReDim Bytes(LBound(aVar) To UBound(aVar))

I used copy/paste to get the macro code from the example workbook. I have no idea what mistake I am making. I am using excel 2003 on a HP laptop with Vista in case that has something to do with it.

Also, I tried to unhide the dllBytes sheet in the example workbook incase there was something there I missed, but can not do it.
Don’t know what else to try.

Thank you for any time you give to me.

Try adding braces to the aVar array variable located in the CreateDll routine as follows :

Public Sub CreateDll (ByVal Dummy As Boolean)
 
    Dim Bytes() As Byte
    Dim lFileNum As Integer
    Dim aVar[B][COLOR=Red]()[/COLOR][/B] '[COLOR=Red]<-----[/COLOR]
    Dim x As Long
 
    aVar = ThisWorkbook.Worksheets("dllBytes").UsedRange.Value
 
    ReDim Bytes(LBound(aVar) To UBound(aVar))

 

[RoyR]

Try adding braces to the aVar array variable located in the CreateDll routine as follows :

Public Sub CreateDll (ByVal Dummy As Boolean)
 
    Dim Bytes() As Byte
    Dim lFileNum As Integer
    Dim aVar[B][COLOR=Red]()[/COLOR][/B] '[COLOR=Red]<-----[/COLOR]
    Dim x As Long
 
    aVar = ThisWorkbook.Worksheets("dllBytes").UsedRange.Value
 
    ReDim Bytes(LBound(aVar) To UBound(aVar))

The Brackets did not help. I did solve the problem by using your workbook. Deleated the sheets and replaced them with ones from my workbook and renamed your workbook as needed. A bandaid solution. I was thinking of keeping your workbook as a template for now. Hope you don't mind this.

I just don't understand why your workbook works so well and mine don't. Doing something wrong for sure. Thank you for the quick responce.

 

[JuliFee]

Hi Jaafar Tribak,
I have build in your fantastic code in my workbook. Thanks! But I have a problem with joint cells! Where was the quickinfo always see! Do you know this problem?
Greeting
Juli

 

[JuliFee]

Hello,
thanks for your quick answer! I can wait a couple of days.
I have an worksheet with united cells (German: verbundene Zellen)! There I can see the quickinfo after starting the code!
Do you know this effect!
Thanks
Juli

 

[Jaafar Tribak]

Hello,
thanks for your quick answer! I can wait a couple of days.
I have an worksheet with united cells (German: verbundene Zellen)! There I can see the quickinfo after starting the code!
Do you know this effect!
Thanks
Juli

The code worked for me with merged cells with hyperlinks.


See if this hack works for you ?

In a standard module :

Option Explicit

Private Declare Function SetTimer Lib "user32.dll" _
(ByVal hwnd As Long, ByVal nIDEvent As Long, _
ByVal uElapse As Long, ByVal lpTimerFunc As Long) As Long

Private Declare Function KillTimer Lib "user32.dll" _
(ByVal hwnd As Long, ByVal nIDEvent As Long) As Long

Private Sub Auto_Open()
    SetTimer Application.hwnd, 0, 500, AddressOf TimerProc
End Sub

Private Sub Auto_Close()
 KillTimer Application.hwnd, 0
End Sub

Private Sub TimerProc()
    On Error Resume Next
    If ActiveWorkbook Is ThisWorkbook Then
        With Application
            .DisplayFullScreen = .DisplayFullScreen
        End With
    End If
End Sub

Note that this code uses a timer ...It won't crash the application as it is but will have a slight impact on the workbook performace.

 

[JuliFee]

Hi,
it works very well!
And it 's very short!
I'm appreciating of your fast help!
Thanks
Juli

 

[FrankFromGermany]

After registering the DLL it works.
However, for some reason after a while I will get runtime error 429.
After reregistering the DLL it works again for a while ...

 

[Murmelmann]

Do you mind sharing the source code of the dll? I would love to understand how this works. Thanks!