Blattschutz und Worksheet Schutz
04.02.2018 20:11:18
Peer
Ich habe nachfolgenden Code, bei dem ich vorhabe, die Zellen und die Blätter zu schützen.
Dabei bin ich über die Fehlermeldung erstaunt, da ich mich eigentlich an die richtige Syntax _ halte.
Sub BlattschutzSetzen(control As IRibbonControl)
Dim wkb As Workbook
Dim wks As Worksheet
For Each wkb In Workbooks
For Each wks In wkb.Worksheets
wks.Protect Password:="Miriam12", structure:=True, Windows:=False
Next wks
Next wkb
ActiveSheet.Cells(12, 2).Select
End Sub
Fehler: Benanntes Argument nicht gefunden.
Weiß jemand, wo mein Fehler ist?
LG
Peer
Anzeige