Hyperlinks nur in einem begrenzten Bereich zulasse

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Private Sub Worksheet_Change(ByVal Target As Range) Target.Hyperlinks.Delete If Not Intersect(Target, Range("K5:N235")) Is Nothing Or _ Not Intersect(Target, Range("Q5:AD235")) Is Nothing Then Target.Hyperlinks.Add Target, CStr(Target) End If End Sub

Private Sub Worksheet_Change(ByVal Target As Range) Target.Hyperlinks.Delete If Not Intersect(Target, Range("K5:N235")) Is Nothing Or _ Not Intersect(Target, Range("Q5:AD235")) Is Nothing Then Exit Sub Else Target.Hyperlinks.Add Target, CStr(Target) End If End Sub

Hallo Rob, Vielen Dank für die erneute Antwort. Meine Überlegung war halt diese:
Wenn der User über die rechte Maustaste auf Link... klickt, müsste Excel doch erkennen, dass ein Link eingefügt werden soll. Dies sollte dann nur in den zwei angegebenen Bereichen zugelassen werden. In allen anderen Bereichen sofort abgebrochen oder blockiert werden.
Hatte eigentlich nicht damit gerechnet, dass ich hier an die Grenzen von VBA stoßen würde.
Das Arbeitsblatt außerhalb der Ranges für Eingaben komplett sperren geht leider nicht.
Ich werde mir dann etwas anderes einfallen lassen müssen. Leider sind meine VB-Kenntnisse eher bescheiden.
Falls jemand dennoch eine Lösung wüsste, ich wäre sicher nicht traurig darüber!
Viele Grüße und jedenfalls ein dickes Dankeschön an alle Helfer des Forums.
Kalle Sz.

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

Beliebteste Forumthreads (12 Monate)

Hyperlinks nur in einem begrenzten Bereich zulasse

6 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread