Mehrere Blätter schützen

Computer: Software & Programmierung Office Software
1

Hallo an die Community!
Ich habe eine mühselig erstellte Arbeitsmappe mit mehreren Blättern. Mehrere Zellen habe ich via Menü vom Blattschutz ausgenommen (Zellen formatieren, Hakerl bei Gesperrt weg). Jetzt möchte ich den Blattschutz für ALLE Blätter gleichzeitig setzen und aufheben können.

Bei der Suche nach einer Lösung bin ich hier im Archiv auf diesen Beitrag gestoßen:
http://www.wer-weiss-was.de/cgi-bin/forum/showarchiv…

Ich hab das dort zitierte Makro einmal in „diese Arbeitsmappe“ zusätzlich zu dem dort bereits vorhandenen (siehe unten) kopiert, nur leider funzt das ganze nicht. Auch konnte ich mit dem Hinweis, daß ein „Fensterchen“ zur Passwortabfrage auftaucht auch nichts anfangen. Was habe ich bei dem ganzen falsch gemacht???

In „diese Arbeitsmappe“ befindet sich bereits dieses Makro:
Private Sub Workbook_Open()
Application.GoTo Worksheets(„Kontrakte_W_PSENICE“).Range(„A5“), True
Dim ws As Worksheet
For Each ws In Worksheets
ws.EnableSelection = xlUnlockedCells ’ nur ungesperrte Zellen
Next ws
End Sub

Zusätzliche Frage:
wenn der Blattschutz so via Makro gesetzt wird, was passiert dann, wenn jemand beim Öffnen der Datei auf „Makros deaktivieren“ klickt. Ist dann der ganze Schutz auch nicht mehr gegeben???

Hinweis: arbeite mit Excel97 auf WinXP und bin ein absolut blutiger Anfänger was Makros betrifft.

Vielleicht findet sich jemand, der mir bei der Lösung behilflich sein kann.

Herzliche Grüße,
Konrad :smile:

2

Ich hab das dort zitierte Makro einmal in „diese Arbeitsmappe“
zusätzlich zu dem dort bereits vorhandenen (siehe unten)
kopiert, nur leider funzt das ganze nicht. Auch konnte ich mit
dem Hinweis, daß ein „Fensterchen“ zur Passwortabfrage
auftaucht auch nichts anfangen. Was habe ich bei dem ganzen
falsch gemacht???

Hi Konrad,
in die Prozedur „Workbook_Open()“ müsstest du noch
Call Blattschutz
einbauen/reinschreiben.

Und das Makro Blattschutz ist eh mistig geschrieben, ändere bitte
MsgBox („Paßwort übereinstimmend eingeben“)
in
MsgBox („Paßwort NICHT übereinstimmend eingeben“)

wenn der Blattschutz so via Makro gesetzt wird, was passiert
dann, wenn jemand beim Öffnen der Datei auf „Makros
deaktivieren“ klickt. Ist dann der ganze Schutz auch nicht
mehr gegeben???

Ja.
Abhilfe geht nur so, bei jedem Schließen der Datei werden alle Blätter automatisch versteckt (nur mit Vba wieder sichtbar zu machen) oder aber Makros werden aktiviert und die Blätter sind sichtbar.
Hajo_Zi hat da was auf seiner Homepage daß dieses leistet, habe leider den Link dazu grad nicht da, vielleicht hat den hier jmd. parat.

Hinweis: arbeite mit Excel97 auf WinXP und bin ein absolut
blutiger Anfänger was Makros betrifft.

Gut, daß du das sagst, Xl97 kennt einige Befehle von XL2000 aufwärts nicht.

Vielleicht findet sich jemand, der mir bei der Lösung
behilflich sein kann.

Gibts einige :smile:

Gruß
Reinhard