Application.ActiveProtectedViewWindow (PowerPoint)

Returns a ProtectedViewWindow object that represents the active Protected View window (the window on top).

Nothing if there are no Protected View windows open.

Dim pvwActiveProtectedViewWindow As ProtectedViewWindow
Set pvwActiveProtectedViewWindow = ActiveProtectedViewWindow