ali.b
2014/07/26, 08:10
با سلام
گاهی ممکنه پیش بیاد که میخواین با پر کردن یک سلول، کل اون شیت قفل بضشه و برای باز کردنش نیاز به پسورد داشته باشین
این کد رو تو 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
گاهی ممکنه پیش بیاد که میخواین با پر کردن یک سلول، کل اون شیت قفل بضشه و برای باز کردنش نیاز به پسورد داشته باشین
این کد رو تو 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