Hyperlink in Messagebox zum anklicken
17.06.2013 08:41:46
Nico
ich habe folgendes Anliegen, wie man im folgenden sieht habe ich ein Programm geschrieben, um mir im Falle des Abspeicherns einer Excel Datei eine Messagebox anzeigen zu lassen, die auf einen Link verweist. Nun wäre es mir sehr recht, dass dieser Link blau hinterlegt, heißt "anklickkbar" wäre und nicht nur angezeigt wird.Über schnelle Hilfe würde ich mich sehr freuen. :
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim sHyp As String
sHyp = "Hugo"
If ThisWorkbook.Saved Then
Cancel = True
Exit Sub
End If
If MsgBox("Bitte bestätigen Sie das Speichern mit Klicken auf OK ," + Chr(13) + "" + Chr(13) _
+ _
"Sollten Ihnen Fehler am Dokument auffalen, klicken Sie auf NEIN und sie werden _
automatisch in eine Liste weitergeleitet" + Chr(13) + "" + Chr(13) + _
"""" & sHyp & """" + Chr(13) + "" + Chr(13) + _
"Do you want to SAVE the Workbook anyway?", 308, "Important Advice") = vbNo Then
Cancel = True
ThisWorkbook.FollowHyperlink sHyp
End If
End Sub