How unlink a whole column?

[kevs1]

Version: 2004
Operating System: Mac OS X 10.4 (Tiger)
Processor: Power PC

I know how to right click for a single cell and undo the annoying e mail link, But when I select the whole column, the hyperlink option is not there. What is the trick? thanks.

 

[Bob Greenblatt]

Version: 2004
Operating System: Mac OS X 10.4 (Tiger)
Processor: Power PC

I know how to right click for a single cell and undo the annoying e mail link,
But when I select the whole column, the hyperlink option is not there. What is
the trick? thanks.

Exactly the same way. Highlight the column, select Insert Hyperlink, and
click on remove.

 

[kevs1]

Bob, it doesn't seem the Remove button is there when you have multiples selected. I don't see it. I see it with one at a time.

BTW: e mail notifiation is not working anymore for my post -- anyone know why, anyway to contact Mactopia about it? thanks

 

[Bob Greenblatt]

Bob, it doesn't seem the Remove button is there when you have multiples
selected. I don't see it. I see it with one at a time.

BTW: e mail notifiation is not working anymore for my post -- anyone know why,
anyway to contact Mactopia about it? thanks

I don't know. I am seeing it WITH YOUR WORKBOOK. Click on the J in the
column heading. Then go to Insert. Pick Hyperlink. Click on remove link in
the lower left. Do you not see this? What are you doing differently, than
the steps above?

 

[kevs1]

thanks, Bob, I did exactly what you say, (as I did before) and this is the box I get:

<http://img407.imageshack.us/my.php?image=picture1xw8.jpg>

But where is the remove link? I'm puzzled

 

[Bob Greenblatt]

thanks, Bob, I did exactly what you say, (as I did before) and this is the box
I get:

<http://img407.imageshack.us/my.php?image=picture1xw8.jpg>

But where is the remove link? I'm puzzled

I don't have a god answer for you. As I said, I tried it with your data and
the remove hyperlink was in the lower left of that same dialog. Did you
happen to protect the worksheet?

 

[kevs1]

Bob, did you see the link/screenshot?

I'm not making this up, the remove link button is not there, for any of my workbooks. I did not protect anything, but how do I check for that. thanks.

 

[kevs1]

JUst noticed something:
When do command K on single cell I get edit hyperlink (which has remove)
When I do command K on column I get insert hyperlink (which does not have remove.

 

[kevs1]

Yeah, that's it, why am I getting the insert hyperlink box?? I get the insert box even when I select just 5 in row that have live e mail links.
I even get it with cells that have a link forula in them. How can I force the edit hyperlink box to come UP?

 

[kevs1]

IN fact I see that command K, is under the insert menu. Where heck is Edit hyperlink in menus?

 

[Bob Greenblatt]

IN fact I see that command K, is under the insert menu. Where heck is Edit
hyperlink in menus?

There is no edit hyperlink. It is INSERT hyperlink, and that allows you to
edit or delete the hyperlink. Yes, I saw your screen shot. It is distinctly
different from what I see with YOUR data, I do not know why.

After selecting the column, did you try Edit-Clear and select hyperlinks?

 

[kevs1]

Bob,
1) When I command K on a single cell, I do get edit hyperlinks with the Remove button:
<http://img527.imageshack.us/my.php?image=picture1su3.jpg>

2) When I select more than one cell, I get insert hyperlink without the remove button.

3) edit clear: no option for hyperink, all I see is edit, clear: all, formats, contents, comments

 

[Bob Greenblatt]

Bob,
1) When I command K on a single cell, I do get edit hyperlinks with the Remove
button:
<http://img527.imageshack.us/my.php?image=picture1su3.jpg>

2) When I select more than one cell, I get insert hyperlink without the remove
button.

3) edit clear: no option for hyperink, all I see is edit, clear: all, formats,
contents, comments

Well, something's very fishy Ken. As I said it works fine for me with your
data. Are you sure you are completely up to date with OS and Office
modifications? Have you tried trashing your prefs? Have you repaired
permissions? Is this file on your hard drive? How much free disk space do
you have?

 

[kevs1]

Bob, I have plenty of free space. Don't fixate on any particular file.
Will all excel files, this is situation.
You said there is not edit hyperlnk box, did you see screenshot. What I am only one to have a edit hyperlink box?

You say there is only insert one? Where is the remove button?
Send a screenshot with insert hyperlink with a remove button

 

[Bill W]

Bob, I have plenty of free space. Don't fixate on any particular file.
Will all excel files, this is situation.
You said there is not edit hyperlnk box, did you see screenshot. What I am only one to have a edit hyperlink box?

You say there is only insert one? Where is the remove button?
Send a screenshot with insert hyperlink with a remove button

Greetings,

I have the same experience on Excel 2004 on Mac OS X 10.5.5, that is
not getting the remove hyperlinks for multiple cells. Since my
workflow at work includes linking items to supporting documentation, I
created the following VB scripts to remove the hyperlinks. Being a VB
script, this will not work with Excel 2008, but it might give you
enough to write an AppleScript that does the same thing.

There is a fair amount of fixing the formatting once the hyperlink is
removed (based on the formatting I use), but this should hopefully
help. I don't know that I've tried this with an entire column
selected, maybe it works, if not just select cell 1 to n or use "all
sheets"

Sub RemoveAllHyperlinks()
theResult = "Cancel"
On Error Resume Next
theResult = MacScript("display dialog ""Remove Hyperlinks from the
current Selection or ALL SHEETS of the active workbook?"" buttons
{""Cancel"", ""Selection"", ""ALL SHEETS""} default button 2 with icon
2")
On Error GoTo 0
If theResult = "Cancel" Then Exit Sub
If theResult = "button returned:Selection" Then
thisSheet = ActiveWorkbook.ActiveSheet.Name
For Each h In Selection.Hyperlinks
Call RemoveAllHyperlinks_Do(h, thisSheet)
Next h
ElseIf theResult = "button returned:ALL SHEETS" Then
For Each sht In ActiveWorkbook.Sheets 'for every sheet in WB
thisSheet = sht.Name
For Each h In sht.Hyperlinks
Call RemoveAllHyperlinks_Do(h, thisSheet)
Next h
Next sht
End If
End Sub

Sub RemoveAllHyperlinks_Do(h, thisSheet)
'Get the formatting to reapply because removing
hyperlink messes-up formatting besides color & underlining
thisRange = h.Range.Address()
theFontFace =
ActiveWorkbook.Sheets(thisSheet).Range(thisRange).Font.FontStyle
theNumFormat =
ActiveWorkbook.Sheets(thisSheet).Range(thisRange).NumberFormat
theAlignment =
ActiveWorkbook.Sheets(thisSheet).Range(thisRange).HorizontalAlignment
'theBorderFormat =
ActiveWorkbook.Sheets(thisSheet).Range(thisRange).Borders.LineStyle
theTopBorder =
ActiveWorkbook.Sheets(thisSheet).Range(thisRange).Borders(xlTop).LineStyle
If theTopBorder <> xlLineStyleNone Then
theTopBorderWeight =
ActiveWorkbook.Sheets(thisSheet).Range(thisRange).Borders(xlTop).Weight
theBottomBorder =
ActiveWorkbook.Sheets(thisSheet).Range(thisRange).Borders(xlBottom).LineStyle
If theBottomBorder <> xlLineStyleNone Then
theBottomBorderWeight =
ActiveWorkbook.Sheets(thisSheet).Range(thisRange).Borders(xlBottom).Weight
theLeftBorder =
ActiveWorkbook.Sheets(thisSheet).Range(thisRange).Borders(xlLeft).LineStyle
If theLeftBorder <> xlLineStyleNone Then
theLeftBorderWeight =
ActiveWorkbook.Sheets(thisSheet).Range(thisRange).Borders(xlLeft).Weight
theRightBorder =
ActiveWorkbook.Sheets(thisSheet).Range(thisRange).Borders(xlRight).LineStyle
If theRightBorder <> xlLineStyleNone Then
theRightBorderWeight =
ActiveWorkbook.Sheets(thisSheet).Range(thisRange).Borders(xlRight).Weight
h.Delete

ActiveWorkbook.Sheets(thisSheet).Range(thisRange).Font.FontStyle =
theFontFace

ActiveWorkbook.Sheets(thisSheet).Range(thisRange).NumberFormat =
theNumFormat

ActiveWorkbook.Sheets(thisSheet).Range(thisRange).HorizontalAlignment
= theAlignment
If theTopBorder <> xlLineStyleNone Then

ActiveWorkbook.Sheets(thisSheet).Range(thisRange).Borders(xlTop).LineStyle
= theTopBorder

ActiveWorkbook.Sheets(thisSheet).Range(thisRange).Borders(xlTop).Weight
= theTopBorderWeight
End If
If theBottomBorder <> xlLineStyleNone Then

ActiveWorkbook.Sheets(thisSheet).Range(thisRange).Borders(xlBottom).LineStyle
= theBottomBorder

ActiveWorkbook.Sheets(thisSheet).Range(thisRange).Borders(xlBottom).Weight
= theBottomBorderWeight
End If
If theLeftBorder <> xlLineStyleNone Then

ActiveWorkbook.Sheets(thisSheet).Range(thisRange).Borders(xlLeft).LineStyle
= theLeftBorder

ActiveWorkbook.Sheets(thisSheet).Range(thisRange).Borders(xlLeft).Weight
= theLeftBorderWeight
End If
If theRightBorder <> xlLineStyleNone Then

ActiveWorkbook.Sheets(thisSheet).Range(thisRange).Borders(xlRight).LineStyle
= theRightBorder

ActiveWorkbook.Sheets(thisSheet).Range(thisRange).Borders(xlRight).Weight
= theRightBorderWeight
End If
End Sub

 

[kevs1]

Bill
thanks for confirm this, Bob, are you here?
1) Why am I seeing the insert hyperlink box, when I want to edit.
2) Bob, did you see the edit hyperlink box. am I the only one to have an edit hyperlink box.

Bill, I'm not good with scripts. anything more for the layman.
That scipt stuff is way over my head.
Any idea why this is happening?

 

[Bob Greenblatt]

Bill
thanks for confirm this, Bob, are you here?
1) Why am I seeing the insert hyperlink box, when I want to edit.
2) Bob, did you see the edit hyperlink box. am I the only one to have an edit
hyperlink box.

Bill, I'm not good with scripts. anything more for the layman.
That scipt stuff is way over my head.
Any idea why this is happening?

OK, Kevs, I'm lost now. Where are we? I sent you screen shots privately. Can
you once again state what the problem is, and verify that
Edit-Clear-hyperlinks does not work.

And, need to select the cell(s) and use the INSERT menu and Select Hyperlink
to edit or remove it. Yes, I know you want to edit it, but you need to
select Insert hyperlink anyway.

 

[kevs1]

thanks Bob, never got any screenshots?
Edit- clear hyperlinks does not work.

I do what you said Bob, and I get the insert box which has no remove button.

 

[Bob Greenblatt]

thanks Bob, never got any screenshots?
Edit- clear hyperlinks does not work.

I do what you said Bob, and I get the insert box which has no remove button.

Yeah, the email with the screenshots bounced. I'm out of ideas. Send me the
workbook again, and I'll remove the hyperlinks and send it back. Just give
me a good email address.

 

[kevs1]

Bob, this is not an problem specific to one workbook. In all my dozens of workbooks with e mail, I cannot get the links out beyond one at a time.

The insert hyperlink box comes up, it does not have a remove button