locked كردن يك رنج از سلولها در چند شيت در فايل share شده

[~M*E*H*D*I~]

كاملتر بگم
اگه دوستان كمك كنن من يك كد vb مخوام كه يك محدوده يا range رو از كاربر به عنوان ورودي بگيره و اون محدوده رو تو چندتا شيت به صورت همزمان locked كنه
من با ماكرو اينكار رو كردم ولي و ايكار رو همزمان روي چند تا شيت نتونستم تعميم بدم
ممنون ميشم اگه دوستاني كه دستي در vb دارن كمك كنن

کد زیر رو تست کن

Sub Macro1()
For i = 1 To Sheets.Count
Sheets(i).Application.Cells.Select

    Selection.Locked = False
    Selection.FormulaHidden = False
    Range("E3:I12").Select
    Selection.Locked = True
    Selection.FormulaHidden = False
    ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
    ActiveSheet.EnableSelection = xlUnlockedCells
Next i
End Sub

[gha3emi]

سلام
نه تو خط Selection.Locked = False اين خطا رو ميگره
unable to set the locked property of the range class

[abootorab]

سلام
نه تو خط Selection.Locked = False اين خطا رو ميگره
unable to set the locked property of the range class

با درود
ضمن تشکر از استاد مهدی عزیز، کد رو به این صورت بنویسید.

Sub Macro2()
    Dim sh As Worksheet
    For Each sh In ActiveWorkbook.Worksheets
        With sh
            .Select
            .Cells.Select
            Selection.Locked = False
            Selection.FormulaHidden = False
            .Range("E3:I12").Select
            Selection.Locked = True
            Selection.FormulaHidden = False
            .Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
            .EnableSelection = xlUnlockedCells
        End With
    Next
End Sub 

[gha3emi]

دوست خوبم abootorab زحمت اين كد رو كشيدن كه اينكار رو به درستي انجام ميده
با اجازه ايشون اين كد رو براي استفاده سايرين اينجا مي زارم

Sub locked_mahdodeh()
t1 = ":محدوده مورد نظر را وارد کنید" + Chr(13) + Chr(13) + Chr(13) + Chr(13) + "مثال: A1:D10"
t2 = "تعیین محدوده"
mahdude = InputBox(t1, t2)
Dim sh As Worksheet
For Each sh In ActiveWorkbook.Worksheets
With sh
.Unprotect ("1234")
.Select
.Cells.Select
Selection.Locked = False
Selection.FormulaHidden = False
.Range(mahdude).Select
Selection.Locked = True
Selection.FormulaHidden = True
.Protect ("1234"), DrawingObjects:=True, Contents:=True, Scenarios:=True
.EnableSelection = xlUnlockedCells
End With
Next
End Sub

Sub unlocked_mahdodeh ()
t1 = ":محدوده مورد نظر را وارد کنید" + Chr(13) + Chr(13) + Chr(13) + Chr(13) + "مثال: A1:D10"
t2 = "تعیین محدوده"
mahdude = InputBox(t1, t2)
Dim sh As Worksheet
For Each sh In ActiveWorkbook.Worksheets
With sh
.Unprotect ("1234")
.Select
.Range(mahdude).Select
Selection.Locked = False
Selection.FormulaHidden = False
.Protect ("1234"), DrawingObjects:=True, Contents:=True, Scenarios:=True
.EnableSelection = xlUnlockedCells
End With
Next
End Sub