ausgewählte Blätter mit Protect
16.03.2021 14:18:23
Eisi
bei nachfolgendem Code an der Stelle *arrSchutz = Array....* kommt die Fehlermeldung "unzulässige Verwendung einer Eigenschaft".
Was muss am Code angepasst werden?
Danke für die Hilfe.
VG Eisi :-)
Sub SchutzEin2()
Dim arrSchutz As Worksheets
Dim wks As Worksheets
arrSchutz = Array("tbl_Huber", "tbl_Meier", "tbl_Prozente", "tbl_PLZ") ' (Name) Codename _
ganz oben in den Eigenschaften des Sheets
For Each wks In Worksheets
If Not IsError(Application.Match(wks.Name, arrSchutz, 0)) Then
wks.Protect "" ' Passwort wird später vergeben
End If
Next wks
End Sub