Blatt/Formel schützen
29.12.2004 08:35:58
helena
Sub Formeln_schützen()
Cells.Locked = False
Cells.SpecialCells(xlCellTypeFormulas, 23).Locked = True
ActiveSheet.Protect
End Sub
Sub Formeln_für_Bearbeitung_freigeben()
ActiveSheet.Unprotect
Cells.Locked = True
End Sub
mein Problem ist wenn ich schützen 2x aufrufe kommt Laufzeitfehler
kann mir bitte jemand weiterhelfen.
Sollte so sein wenn geschützt und ich starte ein zweites Mal
dann Makro bearbeiten ohne lästige Fehlermeldung
DANKE gruss helena