IF you mean slides are set to advance on time not on click

Put a COPY of some of the files in a folder called PPTFILES on your desktop and try this code.

Sub Not_Auto()    
Dim opres As Presentation
    Dim strFile As String
    Dim strFolder As String
    Dim strSpec As String
    Dim osld As Slide
    strSpec = "*.pp*"
    strFolder = Environ("USERPROFILE") & "/Desktop/PPTFILES/"
    strFile = Dir$(strFolder & strSpec)
    While strFile <> ""
        Set opres = Presentations.Open(strFolder & strFile)
        Set osld = opres.Slides(1)
        osld.Select
        If Not CommandBars.GetPressedMso("SlideTransitionOnMouseClick") Then _
        CommandBars.ExecuteMso ("SlideTransitionOnMouseClick")
        DoEvents
        If CommandBars.GetPressedMso("SlideTransitionAutomaticallyAfter") Then _
        CommandBars.ExecuteMso ("SlideTransitionAutomaticallyAfter")
        DoEvents
        CommandBars.ExecuteMso ("SlideTransitionApplyToAll")
        DoEvents
        opres.Save
        opres.Close
        strFile = Dir()
    Wend
End Sub