Nur ungeschütze Zellen sollen angesprungen werden
25.01.2004 17:59:39
Martin
Mit folgendem Makro versuche ich den Schutz so einzurichten, dass nur ungeschützte zellen angesprungen werden können:
Sub Write_Unlocked_Cells()
Dim Sh As Worksheet
For Each Sh In ThisWorkbook.Worksheets
Sh.Select
Sh.Protect userinterfaceonly:=True
Sh.EnableSelection = xlUnlockedCells
Next
End Sub
in einer normalen arbeitsmappe funktioniert dieser makro. nun will ich diesen makro in einer arbeitsmappe mit mehrerer makros (diverse filter etc.) einsetzten.
Fehlermeldung:
Laufzeitfehler: '1004'
Die Methode 'Select' für das Objekt '_Worksheet' ist fehlgeschlagen.
ich wäre sehr dankbar, wenn mir jemand helfen könnte.
freundlicher gruss,
martin
Anzeige