Mokro vor löschen schützen
15.06.2007 07:02:54
Herbert
Ich möchte ein Makro, das in einem Excel-Tabellenblatte integriert ist, vor dem Löschen durch einen anderen Benutzer schützen - eventuell mit PW-Schutz.
Funktioniert dies und wenn ja wie müßte ich nachstehenden Makro (dieses Makro läßt nach dem Öffnen jeweils nur auf den ungeschützten Bereichen Eingaben zu) umschreiben?
Sub auto_open()
Dim s
Dim Name As Variant
Name = ActiveSheet.Name
Application.ScreenUpdating = False
For s = 1 To Sheets.Count
Sheets(s).Select
With ActiveSheet
.EnableSelection = xlUnlockedCells
.Protect
End With
Next s
Sheets(Name).Select
Application.ScreenUpdating = True
End Sub
PS: Da ich kein Makro-Profi bin, wäre es nett wenn ihr genaue Angaben macht wo ich welche Änderungen im o.a. Makro vornehmen muß.
Danke für Eure Unterstützung
und LG
Herbert