قفل کردن سلولهای پر

[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 کل سلولهای شیت را بردارید.

19868

[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]

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

[iranweld]

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

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