ich möchte gern den Blattschutz und den Arbeitsmappenschutz in einer Zelle z.B. im Blatt Tabelle1 in einer Zelle (A1=3)hinterlegen.
Wie kann ich folgendes Makro umschreiben, dass der Zellwert aus der Tabelle1 ausgelesen wird.
MFG
Andre
Sub schutz()
ActiveWorkbook.Protect ("3")
Worksheets("Tabelle1").Protect ("3")
End Sub