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

Makro Schutz und aufheben

Makro Schutz und aufheben
31.03.2003 12:09:58
Helmut Ivers
moin excel- freaks

folgende frage:
wie kann ich folgendes in einem makro realisieren:
24 Tabellenblätter, in 30 Zeilen steht jeweils geschützt in der 1 u. 2. Spalte das gleiche. Um änderungen vorzunehmen, muss ich in jedem tabellenblatt den schutz aufheben, ändern und wieder schützen. wenn änderungen anstehen, betrifft es alle tabellen gleichzeitig. ein makro zum aufheben ein makro zum schützen wäre wahrscheinlich von vorteil.
auf eine antwort hofft m.fr. Gr.
helle



3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: Makro Schutz und aufheben
31.03.2003 12:15:42
heinz

aufheben sieht ungefähr so aus
...
for i = 1 to 24
sheets(i).unprotect = true
next i
...

in der hilfe gibts ein beispiel mit passwortschutz usw.

gruß, heinz

Re: Makro Schutz und aufheben
31.03.2003 12:15:55
Mike E.

Hallo,

warum verknüfst du nicht die übrigen 23 Blätter mit dem ersten?
Dann musst du immer nur im ersten Tabellenblatt Änderungen vornehmen und sparst dir so 23 weitere Schritte.

Bsp.:

Tabelle2!A1 = Tabelle1!A1...

Gruß
Mike

Re: Makro Schutz und aufheben
31.03.2003 12:30:05
Wilfried

er so.
Sub Unprotect()

Dim Wb As Workbook, Sh As Worksheet
For Each Wb In Workbooks
For Each Sh In Wb.Worksheets
Sh.Unprotect "test"
Next Sh
Next Wb
End Sub

Sub protect()

Dim Wb As Workbook, Sh As Worksheet
For Each Wb In Workbooks
For Each Sh In Wb.Worksheets
Sh.protect "test"
Next Sh
Next Wb
End Sub

Anzeige

302 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige