ExcelVBAでシートを一部編集可能で保護する方法【シートの操作】

サンプルソースは次のとおり。

'シートを一部編集可能で保護する
Sub Example()
	With Sheets("Sheet1")
		.Range("A1").Locked = False
		.Protect
	End With
End Sub

にほんブログ村