@ fcs
10.12.2006 17:44:32
Peter Schilling
ich benötige nocheinmal deine Hilfe bei einem Code den ich von dir erhalten habe.
Den folgenden Code habe ich in eine Datei eingefügt.
Wie kann ich den Code so ändern, das nur die Tabellen mit dem Namen "Eingabe..." mit diesen Schutz aktiviert/deaktiviert werden.
Einige Tabellen dürfen keinen Schutz haben, da ich sie sonst nicht ändern kann.
Sub AlleBlaetterSchutz_EIN()
Dim Blatt As Worksheet
For Each Blatt In ActiveWorkbook.Worksheets
Blatt.Protect Password:=Kennwort
Next Blatt
End Sub
Sub AlleBlaetterSchutz_AUS()
Dim Blatt As Worksheet
For Each Blatt In ActiveWorkbook.Worksheets
Blatt.Unprotect Password:=Kennwort
Next Blatt
End Sub
Gruß Dieter
Anzeige