کدی برای قفل نمودن سلول های حاوی فرمول در اکسل
منبع :https://softpluse.ir/

With ActiveSheet

خارج کردن شیت جاری از حالتprotect ‘
.Unprotect
غیر فعال کردن قفل تمام سلول ها ‘
.Cells.Locked = False
تنظیم قفل سلول های دارای فرمول’ .Cells.SpecialCells(xlCellTypeFormulas).Locked = True.Protect AllowDeletingRows:=True