Clear All Import/Forms Data from Cube

Try this is in a WorkflowEventHandler Extensibility Rule.

			Dim returnValue As Object = args.DefaultReturnValue
				args.UseReturnValueFromBusinessRule = False
				args.Cancel = False
				
				
				Dim bValue As Boolean = args.IsBeforeEvent
				'Evaluate the operation type in order to determine which subroutine to process
				Select Case args.OperationName
				Case Is = BREventOperationType.Workflow.ClearAllFormsDataFromCube
				'Show Message Box and prevent the routine
				If (bValue)
				Dim ErrMsg As String
				ErrMsg = vbcrlf & "This option has been disabled." 
			
				Throw New XFException(si, New Exception(ErrMsg))
				End If


			Case Is = BREventOperationType.Workflow.ClearAllInputDataFromCube
				'Show Message Box and prevent the clear
				If (bValue)
				Dim ErrMsg As String
				ErrMsg = vbcrlf & "This option has been disabled." 
				Throw New XFException(si, New Exception(ErrMsg)) 

				End If
				End Select