要在播放视频时禁用幻灯片播放，可以使用Microsoft PowerPoint的VBA宏代码来实现。以下是一个示例代码：

Private Sub SlideShowNextClick(ByVal Wn As SlideShowWindow, ByVal nEffect As Effect)
    ' 检查当前幻灯片是否为视频
    If Wn.View.Slide.Shapes.HasMediaPlaceholder Then
        Dim mediaShape As Shape
        Set mediaShape = Wn.View.Slide.Shapes.Placeholders(1)
        
        ' 检查当前幻灯片是否正在播放视频
        If mediaShape.Type = msoMedia && mediaShape.MediaFormat.IsPlaying Then
            ' 停止视频播放
            mediaShape.MediaFormat.Stop
        End If
    End If
End Sub

将上述代码复制到PowerPoint的VBA编辑器中的模块中，然后保存并关闭编辑器。当在幻灯片放映模式下播放视频时，如果用户点击幻灯片以切换到下一张幻灯片，VBA代码将检查当前幻灯片是否为视频，并停止视频播放。

请注意，上述代码仅适用于单个幻灯片上仅包含一个视频的情况。如果幻灯片上有多个视频，请相应修改代码以适应您的需求。