[حل شده] قفل کردن سلولهای پر

[sajad10093]

سلام دوستان
ی سوال دارم خدمتتون اگه ما در ی ستون مثلاً 100 تایی فقط 40 تا از سلولها پر باشه چجور میشه فقط اون سلولهایی که پر هستند قفل کنیم
یعنی اگه سلول پر بود قفل بشه اگه نه باز بمونه
ممنون میشم راهنمایی کنید

[iranweld]

با سلام

فایل پیوست را بررسی کنید
پسورد شیت و قسمت vba فایل xx میباشد.

Private Sub Worksheet_Change(ByVal Target As Range)

Set Rng = Range("a1:a100")

If Not Intersect(Target, Rng) Is Nothing Then

ActiveSheet.Unprotect Password:="xx"

Range("a1:a100").Locked = False

For Each Cell In Rng
  
  If Cell <> "" And Cell.Locked = False Then
  
  Cell.Locked = True

  End If

Next

 End If

   ActiveSheet.Protect Password:="xx"

End Sub 

برای شیتی که میخواهید اولین بار اینکار را انجام دهید بایستی تیگ lock کل سلولهای شیت را بردارید.

[sajad10093]

برادر خیلی خیلی ممنون

[iranweld]

برادر خیلی خیلی ممنون

در خدمتیم

از این کد خلاصه تر هم میتوانید استفاده کنید

Private Sub Worksheet_Change(ByVal Target As Range)

Set Rng = Range("A1:A100")

If Not Intersect(Target, Rng) Is Nothing Then

ActiveSheet.Unprotect Password:="xx"
  
 If Target <> "" Then Target.Locked = True

 End If

   ActiveSheet.Protect Password:="xx"

End Sub 

[sajad10093]

فقط من اینو تو ی فایل دگ مینویسم با این اخطار مواجه میشم میشه راهنمایی کنید

[iranweld]

فقط من اینو تو ی فایل دگ مینویسم با این اخطار مواجه میشم میشه راهنمایی کنید[ATTACH=CONFIG]19874[/ATTACH]

همین نمونه فایل خود را بصورت زیپ شده ضمیمه سایت کنید تا مشکل بررسی شود