入力規制

 

 

Sub アクティブシートの入力規則をすべて削除する()

　If MsgBox("アクティブシートの入力規則をすべて削除しますか？", vbYesNo) = vbNo Then Exit Sub

　Cells.Validation.Delete

End Sub

'------------------------------------------------------------------------------------

 

 

Sub 選択されているセルの入力規則を削除する()

 

　If MsgBox("選択されているセルの入力規則を削除しますか？", vbYesNo) = vbNo Then Exit Sub

　Selection.Validation.Delete

End Sub

'----------------------------------------------------------------------------

Sub 全シートの入力規則を削除する()

 

　Dim ws As Worksheet

　If MsgBox("全シートの入力規則を削除しますか？", vbYesNo) = vbNo Then Exit Sub

　For Each ws In Worksheets
　　ws.Cells.Validation.Delete
　Next ws

End Sub