|
Hallo zusammen,
ich nutze Office 365 / Windows 10 und habe folgendes Problem:
Ich habe ein kleines Makro geschrieben, welches sich auf alle Tabellenblätter in einer Datei auswirken soll. Nun sind diese allerdings alle mit unterschiedlichen Passwörtern geschützt. D.h. ich benötige ein Makro, welches alle Tabellenblätter gleichzeitig entsperrt. Zum sperren nutze ich momentan folgendes Makro (es sind ca. 30 Tabellenblätter):
Private Sub Workbook_SheetDeactivate(ByVal sh As Object)
Select Case sh.Name
Case "Mitarbeiter_1"
sh.Protect "12345"
Case "Mitarbeiter_2"
sh.Protect "123456"
Case "Mitarbeiter_3"
sh.Protect "123457"
Case "Mitarbeiter_4"
sh.Protect "123458"
End Select
End Sub
Ich dachte mir, man könnte vielleicht das ganze einfach umkehren, indem man "sh.Unprotect" statt "sh.Protect" nutzt, das klappt aber leider nicht.
Also in etwa so:
Sub Entsperren(ByVal sh As Object)
Select Case sh.Name
Case "Mitarbeiter_1"
sh.Unprotect "12345"
Case "Mitarbeiter_2"
sh.Unprotect "123456"
Case "Mitarbeiter_3"
sh.Unprotect "123457"
Case "Mitarbeiter_4"
sh.Unprotect "123458"
End Select
End Sub
Vielleicht hat jemand von euch eine Idee.
Vielen Dank!
Gruß Dennis
|