Unprotect bei allen Sheet mit "R"
Heinz
Ich möchte gerne alle Sheets die mit "R" beginnen,zB. R1, R2 usw. bis "R36"
den Blattschutz aufheben.
Funktioniert auch mit underen Code.
Muss ich bei "arr = Array" alle Sheets eingeben, oder geht das einfacher ?
Gruß
Heinz
Private Sub CommandButton5_Click()
Application.ScreenUpdating = False
Dim arr, a
arr = Array("R1", "R2", "R3")
For Each a In arr
Sheets(a).Unprotect
Next
Application.ScreenUpdating = True
End Sub
Anzeige