As far as I know, there is no direct way. You can select cells with validation using the following SelectCellsWithValidation macro.
' Returns SheetCellRanges having cell validation
Function GetCellsWithValidation(ByVal oSheet) As Object
Dim oResult As Object, oRanges, oRange
For Each oRanges In oSheet.getUniqueCellFormatRanges()
If oRanges.validation.Type<>0 Then
If oResult Is Nothing Then
oResult=oRanges
Else
For Each oRange In oRanges
oResult.addRangeAddress oRange.RangeAddress, False
Next oRange
End If
End If
Next oRanges
GetCellsWithValidation=oResult
End Function
' Select cells with Validation
Sub SelectCellsWithValidation
Dim oSheet, oRanges
With ThisComponent.CurrentController
oSheet=.ActiveSheet
oRanges=GetCellsWithValidation(oSheet)
If Not (oRanges Is Nothing) Then
Msgbox oRanges.AbsoluteName
.Select oRanges
Else
Msgbox "No cells with validation"
End If
End With
End Sub