قفل شدن شیت بعد از پرکردن سلول (آموزشی)

[ali.b]

با سلام
گاهی ممکنه پیش بیاد که میخواین با پر کردن یک سلول، کل اون شیت قفل بضشه و برای باز کردنش نیاز به پسورد داشته باشین
این کد رو تو Vb همون شیت قرار بدین

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim c As Range
    ActiveSheet.Unprotect Password:="123"
    For Each c In Target
        c.MergeArea.Locked = (c.Value <> "")
    Next c
    ActiveSheet.Protect Password:="123"
End Sub

[meysam.rabie]

سلام آیا برای رکورد یا سلول هم امکانش هست. مثلا اگر رکورد پر شد قفل بشه و امکان تغییر یا حذف نداشته باشه!

[mostafa_s]

حل مسئله - صفحه 2