如何在PowerPoint VBA中捕获SaveAs事件并禁用该功能？

你遇到的问题是PresentationBeforeSave事件仅响应**保存（Save）操作，无法捕获另存为（SaveAs）**操作。以下是两种可行的实现方式：

方法1：直接禁用界面上的SaveAs按钮 #

通过VBA禁用文件菜单、快速访问工具栏中的SaveAs按钮，阻止用户通过界面触发操作：

' 禁用SaveAs按钮
Sub DisableSaveAsUI()
    ' 禁用文件菜单中的SaveAs按钮（中文版本请改为"另存为"）
    CommandBars("File").Controls("Save As...").Enabled = False
    
    ' 禁用快速访问工具栏中的SaveAs按钮（如果存在）
    On Error Resume Next ' 避免按钮不存在时报错
    CommandBars("Quick Access Toolbar").Controls("Save As").Enabled = False
    On Error GoTo 0
End Sub

' 恢复SaveAs按钮
Sub EnableSaveAsUI()
    CommandBars("File").Controls("Save As...").Enabled = True
    On Error Resume Next
    CommandBars("Quick Access Toolbar").Controls("Save As").Enabled = True
    On Error GoTo 0
End Sub

方法2：拦截所有SaveAs触发途径（含快捷键） #

通过修改SaveAs命令的执行逻辑，拦截包括界面按钮、快捷键（F12）在内的所有触发方式：

1. 在PPT的ThisPresentation模块中添加以下代码：

Private Sub Presentation_Open()
    ' 启动时绑定拦截器
    AssignSaveAsInterceptor
End Sub

Private Sub Presentation_Close()
    ' 关闭时恢复原功能
    RestoreSaveAsCommand
End Sub

2. 在普通模块中添加拦截逻辑：

' 绑定SaveAs命令的拦截器
Sub AssignSaveAsInterceptor()
    Dim saveAsCtrl As CommandBarControl
    ' 根据命令ID找到SaveAs控件（ID=3对应SaveAs命令）
    Set saveAsCtrl = CommandBars.FindControl(ID:=3)
    
    If Not saveAsCtrl Is Nothing Then
        ' 将SaveAs命令指向自定义拦截宏
        saveAsCtrl.OnAction = "BlockSaveAs"
    End If
End Sub

' 拦截SaveAs操作的宏
Sub BlockSaveAs()
    ' 提示用户功能已禁用
    MsgBox "SaveAs功能已被禁用", vbExclamation
    ' 不执行原SaveAs命令，直接终止操作
End Sub

' 恢复原SaveAs命令
Sub RestoreSaveAsCommand()
    Dim saveAsCtrl As CommandBarControl
    Set saveAsCtrl = CommandBars.FindControl(ID:=3)
    
    If Not saveAsCtrl Is Nothing Then
        ' 清空自定义执行逻辑，恢复原命令
        saveAsCtrl.OnAction = ""
    End If
End Sub

关键说明 #

• PresentationBeforeSave事件仅针对保存现有文件的操作，完全不会响应"另存为"，因此必须通过命令栏拦截的方式处理。
• 如果需要对所有PPT文件生效，建议将代码打包为PowerPoint加载项（.ppam），启动PPT时自动加载执行。
• 中文版本PPT需注意控件名称：将代码中的"Save As..."改为"另存为"。

内容的提问来源于stack exchange，提问作者Ahmed Mohamed