Tabellenblätter sperren-entsperren

Question

Hallo zusammen,

Es geht um Folgendes:

Eine Excel-Datei bestehend aus 14 Tabellenblättern, in den Tabellenblättern Jänner bis Dezember sollen die Bereiche A6:D37 und E37:K37 gesperrt werden, so dass keine Direkteingaben möglich sind.

Gibt es eine Möglichkeit die gegenständlichen Bereiche für alle Tabellenblätter gleichzeitig zu sperren bzw. zu entsperren.

Über Vorschläge, Tipps oder Links würde ich mich freuen.

Gruß

Paul1

Excel 2003

Answer 1

Hallo Paul,

wenn du die Blätter Jänner bis Dezember markierst, kannst du in den Bereichen über Zellen formatieren die Haken bei gesperrt setzen.

Den Schutz musst du allerdings für jedes Blatt einzeln aktivieren. Per Makro geht das natürlich relativ einfach. Falls deine Monate in den Tabellenblättern 1 bis 12 stehen dann geht das so:

Sub schutz_an()

For i = 1 To 12
With Worksheets(i)
.Range("A6:D37").Locked = True
.Range("E37:K37").Locked = True
.Protect
End With
Next i

End Sub

Mit Unprotect wird das Blatt wieder entsperrt

Sub schutz_aus()

For i = 1 To 12
Worksheets(i).Unprotect
Next i

End Sub

Du kannst auch jedes Arbeitsblatt einzeln ansprechen mit

Worksheets("Jänner")

Aber das ist mehr Arbeit :-).

Gruß

M.O.

Answer 2

Hallo M.O.,

Das ist ein Hit, vielen Dank für Deine Mühe.

Gruß

Paul1

Answer 3

Hallo Paul,

vielen Dank für die Rückmeldung.

Gruß

M.O.