با سلام
گاهی ممکنه پیش بیاد که میخواین با پر کردن یک سلول، کل اون شیت قفل بضشه و برای باز کردنش نیاز به پسورد داشته باشین
این کد رو تو 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
|
اخطار: این یک موضوع قدیمی است به دلیل قدیمی بودن موضوع، ممکن است برخی فایل های ضمیمه به درستی کار نکنند. لطفا در صورت عدم ضرورت، از بالا آوردن موضوعات قدیمی خودداری نمایید. |
|
علاقه مندی ها (Bookmarks)