suche makro zur datensicherung

Ich brauche zwei Makro´s dafür.

Makro1 ' Sicherung
1. suche in allen Tabellen der Arbeitsmappe nach ungeschützten Zellen (if zelle.Locked = False)?
2. Ist die Zelle mit einem Wert belegt, speichere die position der Zellen und ihren inhalt in einer sicherungsdatei

Makro2 ' Wiederherstellung
Die Daten der Sicherungsdatei in die Arbeitsmappe zurückschreiben

--- Harry ---