LibreOffice Calcで入力規則を削除する

Dim validation As Object
validation = ThisComponent.Sheets.getByIndex(0).getColumns.getByIndex(5).Validation
validation.Type = com.sun.star.sheet.ValidationType.ANY
ThisComponent.Sheets.getByIndex(0).getColumns.getByIndex(5).Validation = validation