ich möchte ja nach Benutzer verschiedene Zellen in z.B. 10gleichen Tabellenblättern freigeben. _
So sieht mein Code für das 1.TB aus:
Sub zellen_freigeben()
' alle Zellen schützen '
Sheets("01").Cells.Locked = True
' wenn kennwort1 dann diese zellen freigeben '
Sheets("01").Range("C4:E4,H4,C6:H6,C8,C10,C14:G14,C17:G17,C20:G21,C23:G23,C26:G26,C31:G35, _
_
_
_
_
_
C37:G40").Locked = False
' wenn kennwort2 dann diese zellen freigeben '
Sheets("01").Range("K14:O14,K17:O17,K20:O21,K23:O23,K26:O26,K31:O35,K37:O40").Locked = _
False
Sheets("01").Range("S14:W14,S17:W17,S20:W21,S23:W23,S26:W26,S31:W35,S37:W40").Locked = _
False
Sheets("01").Range("AA14:AE14,AA17:AE17,AA20:AE21,AA23:AE23,AA26:AE26,AA31:AE35,AA37:AE40"). _
_
_
_
_
_
Locked = False
Sheets("01").Range("C43:G43,C45:E45,C47:H47,C49:E49,C51:E51,C53:H53,C55:E55,C57:E57,C59:E59, _
_
_
_
_
_
C61:E61").Locked = False
End Sub
Wie kann ich das schlanker gestalten, das ich das jetzt nicht für die nächsten 9TBs drunterkopieren und anppassen muss?