محافظت دینامیکی سلولها از تغییر - توسط ویژوال بیسیک
مزاحم نمی شوم در پایان چند سوال اکسل دارم که خدمتتان می فرستم :
چطور میشود لیست های بر پا کرد که بمحض ورود اطلاعات جدید در آن و افزایش رکورد ها دامنه protection نیز بطور اتوماتیک گسترده شود و تا آخرین ردیف پیش رود ؟
هدف از این کار اینست که اطلاعات ورودی دستخوش تغییرات خواسته یا ناخواسته نشود .
سلولهای این sheet در صورتیکه پر شده باشند در مقابل تغییرات حفاظت می شوند .
بدین ترتیب که اگر checkbox بالا را در حالت انتخاب قرار دهیم در صورتیکه بخواهیم در خانه ای که پر است مقداری را وارد کنیم، از اینکار جلوگیری بعمل خواهد آمد.
(توسط جعبه ابزار فرم یک CheckBox به sheet اضافه کنید)
کد برنامه ویژوال بیسیک :
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
cellval = ActiveCell.Value
sheetprotect = Range("a1").Value
If cellval <> "" And sheetprotect Then
ActiveSheet.Protect
Else
ActiveSheet.Unprotect
End If
End