ausgewählten Tabellenblätter schützen
01.05.2005 14:10:44
Sören
objekte bearbeiten.
ich hab auch schon ein Code gefunden, aber der schützt alle Blätter.
Sub BlattschutzEINAlle()
For Each sh In Sheets
sh.Protect Password = "PW"
Next sh
End Sub
Sub BlattschutzAUSAlle()
For Each sh In Sheets
sh.Unprotect Password = "PW"
Next sh
End Sub
Danke für eure Hilfe
Sören