با سلام
گاهی ممکنه پیش بیاد که میخواین با پر کردن یک سلول، کل اون شیت قفل بضشه و برای باز کردنش نیاز به پسورد داشته باشین
این کد رو تو Vb همون شیت قرار بدین
گاهی ممکنه پیش بیاد که میخواین با پر کردن یک سلول، کل اون شیت قفل بضشه و برای باز کردنش نیاز به پسورد داشته باشین
این کد رو تو 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
کامنت