AW: Hyperlinks nur in einem begrenzten Bereich zulasse
29.01.2019 21:54:29
Rob
Hi, also es geht doch aber über Umwege. Du musst die Command-Ebene der Menüleiste der Datei ändern. Das geht z.B. mit dem CustomUI-Editor. Leider kann man den HTML-Quellcode hier nicht posten (wegen den Rauten-Klammern) aber der nachfolgende Quellcode sollte nachvollziehbar sein:
HTML-Quellcode
customUI xmlns="http://schemas.microsoft.com/office/2009/07/customui" onLoad="NHA_Excel"
commands
command idMso="HyperlinkInsert" onAction="NHA_Exit" /
/commands
ribbon
/ribbon
backstage
/backstage
/customUI
Das kommt in ein Standardmodul:
Option Explicit
Public objRibbon As IRibbonUI
Public bolNotHyperlinkAllowed As Boolean
Public Sub NHA_Excel(ribbon As IRibbonUI)
Set objRibbon = ribbon
End Sub
Public Sub NHA_Exit(control As IRibbonControl, ByRef cancelReturn)
If Not bolNotHyperlinkAllowed Then
cancelReturn = True
MsgBox "Das Einfügen von Hyperlinks ist hier nicht erlaubt. Vorgang abgebrochen.", 64, " _
Hinweis"
Else
cancelReturn = False
End If
bolNotHyperlinkAllowed = False
End Sub
In "Diese Arbeitsmappe":
Private Sub Workbook_Open()
bolNotHyperlinkAllowed = False
End Sub
Und in die Tabelle als Event:
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
If Target.Address = "$A$1" Then 'hier noch anpassen
bolNotHyperlinkAllowed = False
Else
bolNotHyperlinkAllowed = True
End If
End Sub
Natürlich musst Du Dich mit dem CustomUI-Editor etwas vertraut machen, ist aber nicht so schwer.
Gib mal Bescheid, ob Du klar kommst!
Grüße,
Rob