قفل یک محدوده

[ali.b]

سلام با این کد میشه سلول مورد نظر رو بدون اینکه شیت رو قفل گذاشت محدود کرد

حالا میخوام بدونم برای اینکه همه سلول ها رئو در بر بگیره به جز سلول یا ستونی که مد نظر هست چکار کنم

یا اینکه ستون هایی که مد نظرمه رو در نظر بگیره

Private Sub Worksheet_selectionChange(ByVal Target As Excel.Range)    If Target = [c3] Then        MsgBox "Can not change this cell"        Range("C2").Select    End IfEnd Sub 

اخطار: این یک موضوع قدیمی است به دلیل قدیمی بودن موضوع، ممکن است برخی فایل های ضمیمه به درستی کار نکنند. لطفا در صورت عدم ضرورت، از بالا آوردن موضوعات قدیمی خودداری نمایید.

[ali.b]

با این روش هر رنحی رو بخوایم میتونی محدود کنیم

اینو تازه پیدا کردم
Select "Data"
Select "Validation"
On the "Settings" tab
Click the "Allow" drop box
Select "Text length"
In the "Data" drop box
Select "less than"
In the "Maximum" box put 0 (zero)
Click OK

[khakzad]

منظورتون از محدود کردن چی هست؟
نتونید توش بنویسید؟

[ali.b]

بله عین پروتکت شدن یک شیت هست
چون میخوام شیر کنم با مشکل بر میخورم دنبال ی راهی هستم که سلولهایی رو قفل کنم اما شیت قفل نشه
کاربرای مشخصی هم ندارم که از طریق قفل با شیر استفاده کنم

[khakzad]

چون توی selection change باید نوشته بشه فکر نکنم بتونید محدوده رو تعیین کنید. مگر اساتید راه دیگه ای داشته باشن.
اما اینکه چرا نمی خواید قفل کنید رو نفهمیدم. چون براحتی محافظت میشه از صفحاتتون!

[ali.b]

با این روش حلش کردم
ممنون از دوستان

Private Sub Worksheet_selectionChange(ByVal Target As Excel.Range)    If Target.Column = 1 Then
        
        Range("c2").Select
    End If
If Target.Column = 2 Then
        
        Range("c2").Select
    End If


End Sub