Alle bis auf ein bestimmtes Blatt mit Schreibschut
Elias_K
ich habe untenstehenden Code im Einsatz, um alle Tabellen einer Mappe mit dem Blattschutz zu versehen.
Das klappt soweit prima, ich möchte jedoch eine bestimmte Tabelle gern auslassen.
Wie geht das?
Grüße
Private Sub Button_Blattschutz_setzen_Click()
Dim wks As Worksheet
q = InputBox("Bitte geben Sie das Passwort ein.")
'Schleife für alle Sheets
For Each wks In Worksheets
wks.Protect q, DrawingObjects:=True, Contents:=True, Scenarios:=True
wks.EnableSelection = xlUnlockedCells
Next wks
End Sub
Anzeige