Macro to define "Edit Ranges" password on multiple worksheets in workbook

[Caitlin535]

Hello! I have a workbook with multiple nearly-identical worksheets; each one is a timesheet for two-week periods. I need the same range of cells on every worksheet to be defined under "Allow Edit Ranges" and set with a password in order to edit those ranges. I can use the same password for every sheet - so again, it's the same range of cells in every sheet and same password. I'm hoping for a macro that would allow me to set up the "Edit Ranges" on all the worksheets at once, rather than having to do each one separately. I have a very similar macro that I use to protect and unprotect all the worksheets with a single macro - is the same possible for the "Edit Ranges" function?

For reference - the range I want to define as edit-able with a password is:
$C$3:$F$16,$M$3:$N$16

And the password can be:
6007

Any help would be much appreciated!

 

[arsabra]

Sub EditRange()
Dim Sh As Worksheet
Dim Rng As Range
Dim i As Integer
Set Sh = Application.ActiveSheet
On Error Resume Next
' Unprotect worksheet.
Sh.Unprotect
Set Rng = Sh.Range("$C$3:$F$16", "$M$3:$N$16")
' Delete all current protection ranges

'MsgBox ws.Protection.AllowEditRanges.Count

For i = 1 To Sh.Protection.AllowEditRanges.Count
Sh.Protection.AllowEditRanges(i).Delete

Next


' Establish a range that can allow edits
' on the protected worksheet.
Sh.Protection.AllowEditRanges.Add Title:="Classified", Range:=Rng, Password:="6007"
Sh.Protect
End Sub