View Single Post
  #2   Report Post  
Posted to microsoft.public.excel.programming
Ryan H Ryan H is offline
external usenet poster
 
Posts: 489
Default code for Allow Insert Hyperlink

This code will protect the activesheet and allow inserting of hyperlinks.

ActiveSheet.Protect Password:= "password", AllowInsertingHyperlinks:=True

If you want to test if AllowInsertingHyperlinks is true run this code.

If ActiveSheet.Protection.AllowInsertingHyperlinks = True Then
Msgbox "AllowInsertingHyperlinks = True"
End If

Read the VBA help on "Allow Hyperlinks". Hope this helps! If so, let me
know, click "YES" below.

--
Cheers,
Ryan


"Jeff" wrote:

Hi All,
Please help me with the VBA to Allow Insert Hyperlinks from an unlocked cell
in a protected sheet.

The worksheet is protected and all cells are unlocked. It has code to lock
rows as a Final cell is changed to Yes. I also have code in ThisWorkbook that
hides columns based on current user. What happens is, in the course of
opening the file, the Allow Insert Hyperlinks is set to not checked,
regardless of its status when the file is saved. So I need to add code to set
Allow Insert Hyperlink to Yes. To make it clearer, below is the process:
ThisWorkbook
gets current user
unprotects worksheet
unhides all columns
hides columns (based on current user)
needs to set Allow Insert Hyperlinks<<<

protects sheet

Thanks for any help.
Jeff