Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
364to368
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
364to368
364to368
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

gesperrte Tabellenblätter

gesperrte Tabellenblätter
17.01.2004 17:35:32
Ralf
Hallo Forum,
ich möchte ein Tabellenblatt schützen und per Schaltfläche ein Makro ausführen, wo ein Tabellenbereich sortiert wird. Im nicht geschützten Tabellenblatt funktioniert alles einwandfrei, im geschützten leider nicht.
Hier mal das Makro (falls es daran liegt):

Sub tabellenstand_sortieren()
Range("B10:D14").Select
Selection.Sort Key1:=Range("C10"), Order1:=xlDescending, Key2:=Range("D10") _
, Order2:=xlDescending, Header:=xlGuess, OrderCustom:=1, MatchCase:= _
False, Orientation:=xlTopToBottom
Range("A1").Select
End Sub

Außerdem tritt ein Fehler in einem geschützten Tabellenblatt mit Hyperlinks innerhalb der Arbeitsmappe auf. Die Zellen mit Hyperlinks sind nicht gesperrt, mit gesperrten Zellen funktioniert es gar nicht.
Die Fehlermeldung lautet:
Laufzeitfehler '1004':
Die Methode 'Intersect' für das Objekt '_Global' ist fehlgeschlagen.
Beenden Debuggen Hilfe
Kann mir jemand helfen?
Gruß
Ralf

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: gesperrte Tabellenblätter
17.01.2004 17:50:02
Ulf

Sub tabellenstand_sortieren()
activesheet.unprotect
Range("B10:D14").Sort Key1:=Range("C10"), Order1:=xlDescending, Key2:=Range("D10") _
, Order2:=xlDescending, Header:=xlGuess, OrderCustom:=1, MatchCase:= _
False, Orientation:=xlTopToBottom
activesheet.protect contents:=true
End Sub

Zu den Hyperlinks weiß ich nichts.
Ulf
AW: gesperrte Tabellenblätter
18.01.2004 12:28:54
Ralf
Hallo Ulf,
danke das funktioniert.
Allerdings nur, wenn das Tabellenblatt ohne Paßwort geschützt ist.
Kann ich das Paßwort in das Makro integrieren?
Gruß
Ralf
AW: gesperrte Tabellenblätter
18.01.2004 20:29:16
Ulf

Sub tabellenstand_sortieren()
activesheet.unprotect password:="xxx"
Range("B10:D14").Sort Key1:=Range("C10"), Order1:=xlDescending, Key2:=Range("D10") _
, Order2:=xlDescending, Header:=xlGuess, OrderCustom:=1, MatchCase:= _
False, Orientation:=xlTopToBottom
activesheet.protect contents:=true , password:="xxx"
End Sub

Ulf
Anzeige
AW: gesperrte Tabellenblätter
19.01.2004 09:47:27
Ralf
Hallo Ulf,
jetzt klappt's, so wie ich es mir dachte.
Danke.
Gruß
Ralf

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige