Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 09:26:26
Median für Zeilen mit gleichen Zeitstempel
19.04.2024 08:41:23
Zwei Makros in ein Arbeitsblatt - zweite wird nicht ausführt
18.04.2024 21:09:11
4 Spalten aus smarter Tabelle in andere smarte Tab. kopieren
18.04.2024 20:45:35
Worksheet_Activate für alle Sheets
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1148to1152
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1148to1152
1148to1152
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Hyperlink in gesperrter Zelle erlauben

Hyperlink in gesperrter Zelle erlauben
Ronny
Hallo liebe Community,
mit folgendem Code erzeuge ich mir einen Hyperlink in der entsprechendenn Zelle:

Sub Hyper()
Range("C4").Select
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= _
"GLF!C125"
End Sub

Nun ist die Zelle "C4" aber schreibgeschützt beim Blattschutz wurde die Option "Gesperrte Zellen auswählen" deaktiviert. (Ist ein Muss!).
Wie kann ich es schaffen, dass trotz des Blattschutzes der Hyperlink ausgeführt werden kann?
Vielen Dank im Voraus,
Ronny.
versuche es mal so.
01.04.2010 14:47:19
Tino
Hallo,
    ActiveSheet.Protect "Passwort", userinterfaceonly:=True
ActiveSheet.Hyperlinks.Add Anchor:=Range("C4"), Address:="", SubAddress:= _
"GLF!C125"
Gruß Tino
AW: versuche es mal so.
01.04.2010 14:55:58
Ronny
Hallo Tino,
vielen Dank für die Antwort.
Leider funktioniert das nicht.
Das nur die Usereingabe gesperrt ist hatte ich auch vorher schon implemtiert. (Beim Workbook Open)
Aber das schränkt es wohl noch zu sehr ein.
Gibt es den keinen Code, der es dem User erlaubt alle hyperlinks auch in einer geschützter Zelle auszuführen...
AW: versuche es mal so.
01.04.2010 15:43:28
Tino
Hallo,
versuche es auf die alte Art und Weise, Schutz aufheben Link schreiben Schutz wieder setzen.
ActiveSheet.Unprotect "Passwort"
ActiveSheet.Hyperlinks.Add Range("C4"), "", "Tabelle3!C125", TextToDisplay:="C125"
ActiveSheet.Protect "Passwort"
Jetzt kann bei mir der Hyperlink ohne Meldung ausgeführt werden.
Gruß Tino
Anzeige
AW: Hyperlink in gesperrter Zelle erlauben
01.04.2010 15:37:15
Ronny
Vielleicht würde es auch gehen, dass man den Bereich des Hyperlinks eine andere Art von Blattschutz mitgibt.
Weiß den jemand, wie ich eine einzelne Zelle so schützen kann, dass der User diese gesperrte Zelle auswählen darf, obwohl beim Blattschutz mitgegeben wurde, das gesperrte Zellen nicht ausgewählt werden dürfen. (Diese Anweisung quasi in einem bestimmten Berich negieren) ?
AW: Hyperlink in gesperrter Zelle erlauben
01.04.2010 15:46:41
Tino
Hallo,
müsste so gehen.
 ActiveSheet.Protect "Passwort", userinterfaceonly:=True
ActiveSheet.Range("C4").Locked = False
Gruß Tino
@Tino : Wir bewegen uns doch in Office 2003 ;-)
01.04.2010 15:55:35
NoNet
Hallo Tino,
abgesehen davon, dass es nicht genügt, nur das Userinterface zu sperren, handelt der Thread doch von Office 2003 und hier gibt es detailliertere Schutz-Möglichkeiten - so z.B. auch "Alle Benutzer dieses Arbeitsblattes dürfen : Hyperlinks einfügen" oder in VBA formuliert :
activesheet.protect allowinsertinghyperlinks:=true
Gruß, NoNet
Anzeige
AW: Hyperlinks sollen nicht von Hand
01.04.2010 16:10:58
Hand
Nachtrag:
Genau wie Tino es beschrieben hast, sollte es sein.
Grüße,
Ronny.
AW: Hyperlink in gesperrter Zelle erlauben
01.04.2010 16:07:00
Ronny
Vielen Dank!!
Mein Kode funktioniert.
Problem war noch, das die Zieladresse natürlich nicht gesperrt sein darf. Mein Fehler...
Hier mein Code:

Sub Hyper()
ActiveSheet.Protect "123", userinterfaceonly:=True
Range("C4").Select
'Zelle auswählen in der der Hyperlink gestetzt werden soll
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:="GLF!C125"
'Adresse des Hyperlinks
Selection.Hyperlinks(1).ScreenTip = Cells(2, 8).Value
'Quick-Info definieren
ActiveSheet.Range("C4").Locked = False
ActiveSheet.Range("C125").Locked = False
End Sub

Vielen Dank und frohe Ostern!
Anzeige

175 Forumthreads zu ähnlichen Themen

Markierte Zellen: Text in Datum umwandeln
Peter

Guten Tag
Mit nachfolgendem Code wandle ich einen Textstring in ein Datum um. Komisch ist, dass ich die Schleife zweimal hintereinander laufen lassen muss. Nach dem ersten Mal wird das Datum mit "d/m/yy" und erst das zweite Mal im gewünschten Format "dd.mm.yy" angezeigt.
Was muss ich än...
15.09.2008 11:41:00
Thread-ID: 1009737
6 Beiträge
Anzeige
TextBox Komma in Punkt umwandeln
Heinz

Hallo Leute
Wie kann ich bitte,wenn in Textbox6 ein Komma eingegeben wird, das es automatisch auf Punkt wechselt ?
Gruß
Heinz
28.01.2009 17:42:00
Thread-ID: 1044650
3 Beiträge
TEXT in Tabelle umwandeln
Martin

Liebe Forumteilnehmer,
möchste aus einem TEXT in WORD der bestimmte wiederholte, standardisierte Abschnitte - in diesem fall Name, Vorname, Geb-Datum, eine Tabelle generieren. Geht das mit einem Makro aus Excel heraus?
Danke
Martin
02.02.2009 17:26:48
Thread-ID: 1046338
4 Beiträge
Anzeige
Datum in Textbox in eine Zahl umwandeln
TCO99

Hallo zusammen,
ich habe folgendes Problem.
In einer Spalte einer Tabelle befinden sich Datumsangaben. Ich filtere diese Liste nach einem Datum. Dieses Datum wird vor der Filterung in eine Textbox eingegeben. Als richtiges Datum fuktioniert die Filterung aber nicht mehr. Da habe ich ei...
26.02.2009 23:31:12
Thread-ID: 1054555
15 Beiträge
Text-String in Datumszahl umwandeln
MBorn

Hallo,
weiß jemand, wie ich einen Textstring ("27.02.1999") in die
passende Datumszahl (36218) umwandeln kann?
Danke,
Born
03.03.2009 13:16:27
Thread-ID: 1055953
4 Beiträge
Text-String in Datumszahl umwandeln
MBorn

Hallo,
weiß jemand, wie ich einen Textstring ("27.02.1999") in die
passende Datumszahl (36218) umwandeln kann?
Interessanterweise funktioniert das in Excel mit Ganzzahl(Datumsstring),
aber in VBA klappt int(Datumsstring) nicht.
Danke,
Born
03.03.2009 13:18:24
Thread-ID: 1055955
2 Beiträge
Hyperlink in TextBox
Mister

Hallo und guten Morgen,
in einer UF habe ich ein TextBox angelegt das den Pfad eines externen Dokuments beinhaltet. Durch Doppelklicken wird das externe Dokumet geöffnet. Mit folgendem Code aus dem Forum klappt es auch:
Private Sub TextBox1_DblClick(ByVal Cancel As MSForms.ReturnBoo...
18.05.2009 07:27:51
Thread-ID: 1075771
3 Beiträge
Textformat in Zahl umwandeln
Josef

Hallo!
Ich habe in einer Spalte textformatierte Zahlen mit führenden Nullen stehen.
Wie kann ich ohne Hilfsspalte (z.B. =A2*1) die führenden Nullenden in der Spalte wegbringen, damit eine Zahlenformatierung vorhanden ist?
z.B. 00013,80 = 13,80
Danke
Josef
09.07.2009 11:34:12
Thread-ID: 1087382
6 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
5
3
2
3
2
14
3
1
2
5
2
4
11
1
7
3
13
11
1
2
3
8
6
8
1