Sub sheet_protect()
	'sheetのプロテクト　パスワード：ABC
	ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, Password:=“ABC"
	'プロテクト解除
	ActiveSheet.Unprotect (“ABC")
End Sub