Sub Sample18() 'アクティブシートを「1234」のパスワードでシートの保護しますがマクロからの編集は許可します。 ActiveSheet.Protect Password:="1234", UserInterfaceOnly:=True End Sub