محافظت دینامیکی سلولها از تغییر - توسط ویژوال بیسیک

محافظت دینامیکی سلولها از تغییر - توسط ویژوال بیسیک

مزاحم نمی شوم در پایان چند سوال اکسل دارم که خدمتتان می فرستم :

 چطور میشود لیست های بر پا کرد که بمحض ورود اطلاعات جدید در آن و افزایش رکورد ها دامنه protection نیز بطور اتوماتیک گسترده  شود و تا آخرین ردیف پیش رود ؟

هدف از این کار اینست که اطلاعات ورودی دستخوش تغییرات خواسته یا ناخواسته نشود .

برای دریافت فایل کلیک کنید! (بعد از زدن لینک 30 ثانیه صبر کنید و سپس روی گزینه Click Here for Download کلیک کنید.)

سلولهای این 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