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

probleme mit blattschutz und gruppierung

probleme mit blattschutz und gruppierung
28.06.2005 12:44:28
Friederike
hi,
ich hatte ein einzelnes sheet/workbook
mit blattschutz und grupppierung.
entsprechend mit makro, daß das gruppieren auch
beim blattschutz möglich macht.
nun hab ich aber das sheet kopiert und
im workbook befinden sich 13 davon, die untereinander
"in Reihe" verknüpft sind.
Wollte das Makro anpassen, aber seitdem meckert excel rum.
ich weiss aber net was ich falsch gemacht hab.
so schauts aus:

Private Sub Workbook_Open()
With Worksheets("Kw 27, Kw 28") 'Tabellenname anpassen !!
.Protect Password:="test", UserInterfaceOnly:=True 'Kennwort anpassen !!
.EnableOutlining = True
End With
End Sub

da wo jetzt "Kw 27, Kw 28" steht stand vorher nur "Kw 27".
Da funktionierte es tadelos. Nur jetzt nimmer.
Was hab ich denn da verbockt?
Danke für eure Hilfe
Die Rieke

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

Betreff
Datum
Anwender
Anzeige
AW: probleme mit blattschutz und gruppierung
28.06.2005 13:34:40
Hajo_Zi
Hallo Rieke,
in vielen Sachen hilft schon der Makrorecorder.
Sheets(Array("Tabelle3", "Tabelle2", "Tabelle1"))
Bitte keine Mail, Probleme sollten im Forum gelöst werden.
Microsoft MVP für Excel
Das Forum lebt auch von den Rückmeldungen.
Betriebssystem Windows 2000 SP4 und Excel Version 2000 SP3.


auch ohne array möglich?
28.06.2005 14:08:59
Friederike
hi hajo,
ja, da hätte ich auch gleich drauf kommen können.
ich danke dir.
ich hab aber noch eine andere frage.
kann man das vielleicht auch so machen,
das das ganze mit dem blattschutz und der gruppierung
usw. für jedes sheet gilt, d.h. das ich die nicht extra angeben muss?
also so wie eine wildcard bei ner suchfunktion, bzw. ein "all sheets"?
danke für die hilfe
die rieke
Anzeige
AW: auch ohne array möglich?
28.06.2005 15:42:50
Hajo_Zi
Hallo Fredericke,
mache es über eine Schleife.

Private Sub Aufheben()
Dim WsTabelle As Worksheet
For Each WsTabelle In Sheets
' Hier DEin Code
Next WsTabelle
End Sub

Gruß Hajo
Das Forum lebt auch von den Rückmeldungen.
Dankeschön
28.06.2005 16:51:45
Friederike
Ich danke Dir für die Geduld und die Hilfe ;-)
die rieke

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige