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

**mohamadali110** · 2015/01/14, 15:20

كل شيت ها رو انتخاب كنيد و راست كليك كنيد و فرمت سل و protection تيك lock رو برداريد

سپس اون سلول هايي كه مد نظرتونه رو انتخاب كنيد و فرمت سل و تيك لاك رو بزاريد براشون و شيت ها رو لاك كنيد

**gha3emi** · 2015/01/14, 15:40

mohamadali110 عزيز سلاموقتي چندتا شيت رو باهم انتخاب مي كني protect sheet غيرفعال ميشه و نميشه اون كاري كه شما گفتي رو انجام داد و بايد تك تك شيت ها مجزا انجام بشه

**gha3emi** · 2015/01/17, 14:49

سلام
كسي نبود كمك كنه

**nikkhah** · 2015/01/17, 21:20

سلام

شیت های مورد نظر را با گرفتن Ctrl انتخاب کنید و همچنین محدوده ای از سل های مشخص که میخواهید قفل شوند را انتخاب کنید و در پایان تایپ کنید "" = البته بصورت آرایه ای ( ctrl+shift+enter ) را همزمان فشار دهید .

**gha3emi** · 2015/01/18, 12:17

سلام
با اين روشي كه شما گفتيد كل شيت قفل ميشه
من فقط مي خوام اينكار رو بر روي چند تا از سلولها انجام بدم

**gha3emi** · 2015/01/19, 13:31

سلام
با اين روشي كه شما گفتيد كل شيت قفل ميشه
من فقط مي خوام اينكار رو بر روي چند تا از سلولها انجام بدم

**generalsamad** · 2015/01/19, 19:04

با سلام
اول کل سلولها رو انتخاب کنید بعد از CTRL+1 رو میزنید از تب Protection تیک Lock زده باشه اینکار واسه اینه که کل سلولها رو میخوائید قفل کنید در صورتی که پسورد داده باشید.
بعد از اینکار اون سلولهائی که میخواید قفل نباشن رو انتخاب بعد CTRL+1 رو میزنید تیک Lock رو بر میدارید بعد از اینکار از قسمت Review قسمت protect sheet رو میزنیم تو پنجره باز شده فقط تیک select unlocked cell رو میزنیم بالا پسورد رو وارد میکنیم.

**gha3emi** · 2015/01/20, 13:27

اينكار براي چندتا شيت همزمان جواب نميده
من يك ماكرو يا كد vb مي خوام كه اين كار رو به صورت همزمان روي همه شيتها اعمال كنه
وگرنه lock كردن شيتها به صورت جداگانه كه مشكلي نداره

**gha3emi** · 2015/01/20, 14:00

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

**~M*E*H*D*I~** · 2015/01/20, 22:49

نوشته اصلی توسط gha3emi

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

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

کد HTML:

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** · 2015/01/21, 14:08

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

**abootorab** · 2015/01/21, 19:08

نوشته اصلی توسط gha3emi

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

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

کد PHP:


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** · 2015/01/25, 11:50

دوست خوبم 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