Here is a little something I found to create a Pause and Resume:
Lets say if you are running a slide that has multiple animations on it. Halfway through the presentation, you may want to pause the animations to explain something. A simple way to do this is to press the "b" key which will black out the screen. Then, press "b" key again to resume the presentation. The downside is that you won't be able to see the content on the screen.

To resolve this, you can make use of VBA. To do so, click Tools > Macro > Visual Basic Editor. Copy the code as shown below:

Sub pauseshow()


ActivePresentation.SlideShowWindow.View.State = ppSlideShowPaused
End Sub

Sub runshow()
ActivePresentation.SlideShowWindow.View.State = ppSlideShowRunning
End Sub

Close the editor once you are done.

Now, create two autoshapes.
Right click on the first one and select Action Settings. Select Run Macro > pauseshow. Click Ok.
Right click on the second one and select Action Settings. Select Run Macro > runshow. Click Ok.
Clicking on Shape 1 will now pause the presentation, while clicking on Shape 2 will resume the presentation.
Web site:
https://msmvps.com/blogs/tohlz/archi...-with-vba.aspx

Then, because you would have disabled the "Advance Slide" as I do, you need an action button to advance to the next slide, or just press N on the keyboard if that is easier.

Thank you very much Jamtart for your reply
I am very glad that you replied the post, but the problem still exists

It will disable mouse but the keyboard still controls the presentation and the end user could race on the presentation by clicking the control keys.

I think that I should disable the keyboard control too. On the other side, if I put the action keys to forward and back the presentation by mouse click, one can click them uninterruptedly and shorten the effects up continousely.

Is there any flag or property in the VBA to check that if any effect is running? or any event associated with the beginning and ending of the effects?
In this way, I can override the events to disable and enable the mouse or check the flag in the function associated with the action key.

Thanks in advance for any help