Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema TextBox
BildScreenshot zu TextBox TextBox-Seite mit Beispielarbeitsmappe aufrufen

Hyperlink aktiv trotz Blattschutz? | Herbers Excel-Forum


Betrifft: Hyperlink aktiv trotz Blattschutz? von: Axel
Geschrieben am: 05.03.2010 17:46:12

Hallo zusammen,

wie kann ich gewährleisten, dass man Hyperlinks nur anklicken (!) kann, wenn das Tabellenblatt geschützt ist? Man soll die Zelle nicht verändern können.

Vielen Dank im Voraus

Axel

  

Betrifft: AW: Hyperlink aktiv trotz Blattschutz? von: Backowe
Geschrieben am: 05.03.2010 18:06:15

Hi Axel,

setze mal zusätzlich den Haken bei "Objekte bearbeiten", dann sollte es funktionieren.

Gruß Jürgen


  

Betrifft: AW: Hyperlink aktiv trotz Blattschutz? von: Axel
Geschrieben am: 05.03.2010 18:42:16

Hi Jürgen,

das klappt leider nicht. Danke aber für Deine Antwort.

Gruß

Axel


  

Betrifft: Sorry, hatte XL2002 überlesen! von: Backowe
Geschrieben am: 05.03.2010 18:45:37

Hi Axel,

bei Office 2007 funktioniert es, ich habe kein XL2002, also stelle ich die Frage wieder auf offen!

Gruß Jürgen


  

Betrifft: AW: Hyperlink aktiv trotz Blattschutz? von: Reinhard
Geschrieben am: 08.03.2010 12:01:36

Hallo Axel,

mal ein Ansatz, du mußt nur die Prozedur "Initialize" ausführen.

Option Explicit
'
Sub Initialize()
On Error Resume Next
CommandBars("Worksheet Menu Bar"). _
   Controls("Extras").Controls("Schutz").Controls("&Blatt schützen...").OnAction = "SchutzEin"
CommandBars("Worksheet Menu Bar"). _
   Controls("Extras").Controls("Schutz").Controls("&Blattschutz aufheben...").OnAction = " _
SchutzAus"
End Sub
'
Sub SchutzEin()
With CommandBars("Worksheet Menu Bar").Controls("Extras").Controls("Schutz") _
                                       .Controls("&Blatt schützen...")
   .Caption = "&Blattschutz aufheben..."
   .OnAction = "SchutzAus"
End With
ActiveSheet.Hyperlinks.Add Anchor:=Worksheets("Tabelle1").Range("A1"), Address:="", SubAddress:= _
 _
        "Tabelle3!B12", TextToDisplay:="HüpfenzuB12"
ActiveSheet.Protect Password:="Geheim"
End Sub
'
Sub SchutzAus()
With CommandBars("Worksheet Menu Bar").Controls("Extras").Controls("Schutz") _
                                       .Controls("&Blattschutz aufheben...")
   .Caption = "&Blatt schützen..."
   .OnAction = "SchutzEin"
End With
ActiveSheet.Unprotect Password:="Geheim"
With Worksheets("Tabelle1").Range("A1")
   .Hyperlinks.Delete
   .Font.ColorIndex = 41
   .Font.Underline = xlUnderlineStyleSingle
End With
End Sub

Gruß
Reinhard


Beiträge aus den Excel-Beispielen zum Thema "Hyperlink aktiv trotz Blattschutz?"