Von |
frankman |
Am |
10. März 2008 um 14:41:00 |
Frage |
Hallo Forum,
ich muss diese Codezeilen in mehrere Mappen einfügen, diese liegen alle im gleichen Verzeichnis.Private Sub Workbook_BeforeClose(Cancel As Boolean) Dim i As Integer For i = 1 To ActiveWorkbook.Sheets.Count Sheets(i).Protect Password:="abc" Next End Sub Da es sich hier um knapp 100 Dateien handelt. Wäre ich natürlich froh wenn so was möglich ist.
Vielen Dank
p.s. die Mappen sind bereits alle mit Blattschutz versehen. |
|