【マクロ実践編５】数式セルに保護をかける

数式を消されないように数式が入ったセルのみ保護をかける。

Worksheets("シート名").Unprotect
Cells.Locked = False
Worksheets("シート名").UsedRange.SpecialCells(xlCellTypeFormulas).Locked = True
Worksheets("シート名").Protect