Blattschutz beim Schließen der Mappe setzen
15.06.2006 09:30:13
Fritz
ich bitte euch um Unterstüzung bezüglich folgendem Vorhaben:
In der Recherche habe ich folgendes Makro gefunden. Mit diesem Code
wird beim Schließen der Arbeitsmappe für alle Tabellen ein Blattschutz aktiviert. Das Makro setzt aber voraus, dass zu diesem Zeitpunkt alle Tabellen der Arbeitsmappe nicht geschützt sind.
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim WS As Worksheet
For Each WS In ThisWorkbook.Sheets
With WS
.Protect DrawingObjects:=True
.Protect Contents:=True
.Protect Scenarios:=True
.Protect password:="XXX"
End With
Next
End Sub
Ich möchte den Code jedoch gerne dahingehend verändern, dass das Makro prüft, ob irgendwelche Tabellen in der Mappe ungeschützt sind und diese dann automatisch mit dem betreffenden Passwort schützt. Bei den Tabellen, die zu diesem Zeitpunkt bereits geschützt sind, soll der Schutz beibehalten werden.
Vielen Dank für eure Hilfe
Gruß
Fritz