HOW INSERT A HYPERLINK TO A PROTECTED WORKSHEET THAT INCLUDES VBA

[AYSHANA]

GREAT DAY,

IM TRYING TO INSERT A HYPERLINK IN THE COLUMN (TEMPERATUER HYPERLINK), "CEHCK ATTACHMENT"

BUT UNFORTENTALLY IM NOT ABLE TO DO IT SINCE MY VBA CODE INCLUDES A PROTECTED FORMULA

I TRIED FROM REVIEW - PROTECT SHEET - INSERT HYPERLINK, BUT WHEN IM RUNING THE VBA CODE THE CELLS WILL NOT ALLOW ME TO INSERT THE HYPELINK.

IS THERE ANY WAY.

NOTE: I STILL WANT MY WORKSHEET TO BE PROTECTED EXCEPT FOR THE COLUMN (TEMPERATUER HYPERLINK) SO ILL BE ABLE TO DO THE LINK.

MUCH APPERCIATED.

THANK YOU.



PLEASE FIND THE FOLLOWING VBA CODE


Private Sub CommandButton1_Click()

Dim TargetRow As Integer
Dim Component As String 'Component
Dim MissingData As Boolean
Dim Ctrl As Control

ThisWorkbook.Sheets("Database").unprotect "AYE"
ThisWorkbook.Sheets("INSPECTION FORM").unprotect "AYE"



For Each Ctrl In Me.Controls
Select Case TypeName(Ctrl)
Case "TextBox", "ComboBox"
If Trim(Ctrl.Text) = "" Then
MissingData = True
Ctrl.BackColor = RGB(255, 255, 153) 'color highlight to indicate missing data
Else
Ctrl.BackColor = vbWhite 'if there is data
End If
End Select
Next Ctrl

If MissingData Then
MsgBox "Please fill highlighted empty boxes before saving", vbExclamation
Exit Sub
End If


TargetRow = Sheets("ENGINE").Range("B3").Value + 1
Component = TEXT_COMPO

Sheets("Database").Range("Delivery_Note").Offset(TargetRow, 0).Value = TEXT_DEL
Sheets("Database").Range("Delivery_Note").Offset(TargetRow, 1).Value = TEXT_COMPO
Sheets("Database").Range("Delivery_Note").Offset(TargetRow, 2).Value = TEXT_REC
Sheets("Database").Range("Delivery_Note").Offset(TargetRow, 3).Value = TEXT_DATE
Sheets("Database").Range("Delivery_Note").Offset(TargetRow, 4).Value = TEXT_DISP

Sheets("Database").Range("Delivery_Note").Offset(TargetRow, 5).Value = HEMO
Sheets("Database").Range("Delivery_Note").Offset(TargetRow, 6).Value = CLOT
Sheets("Database").Range("Delivery_Note").Offset(TargetRow, 7).Value = BAG
Sheets("Database").Range("Delivery_Note").Offset(TargetRow, 8).Value = LABEL
Sheets("Database").Range("Delivery_Note").Offset(TargetRow, 9).Value = COOLANT
Sheets("Database").Range("Delivery_Note").Offset(TargetRow, 10).Value = SEGMENT
Sheets("Database").Range("Delivery_Note").Offset(TargetRow, 11).Value = TEMP
Sheets("Database").Range("Delivery_Note").Offset(TargetRow, 12).Value = RECBY
Sheets("Database").Range("Delivery_Note").Offset(TargetRow, 13).Value = DATIME
Sheets("Database").Range("Delivery_Note").Offset(TargetRow, 14).Value = unitnum
Sheets("Database").Range("Delivery_Note").Offset(TargetRow, 15).Value = unitdate
Sheets("Database").Range("Delivery_Note").Offset(TargetRow, 16).Value = commen
Unload FORM1

MsgBox Component & " was added to the Database", 0, "Complete"


ThisWorkbook.Sheets("Database").protect "AYE"
ThisWorkbook.Sheets("INSPECTION FORM").protect "AYE"


End Sub

Private Sub CommandButton2_Click()


ThisWorkbook.Sheets("Database").unprotect "AYE"
ThisWorkbook.Sheets("INSPECTION FORM").unprotect "AYE"


Unload FORM1

ThisWorkbook.Sheets("Database").protect "AYE"
ThisWorkbook.Sheets("INSPECTION FORM").protect "AYE"



End Sub


Private Sub commen_Change()

End Sub

Private Sub DATIME_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean)
On Error Resume Next
Me.DATIME = CDate(Me.DATIME)
End Sub

Private Sub Label20_Click()

End Sub

Private Sub Label24_Click()

End Sub

Private Sub Label27_Click()

End Sub

Private Sub TEXT_DATE_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean)
On Error Resume Next
Me.TEXT_DATE = CDate(Me.TEXT_DATE)

End Sub

Private Sub TEXT_DEL_Change()

End Sub

Private Sub TEXT_DISP_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean)
On Error Resume Next
Me.TEXT_DISP = CDate(Me.TEXT_DISP)
End Sub


Private Sub UserForm_Click()

End Sub

 

[AYSHANA]

Anyone
I need it urgent

 

[AYSHANA]

??