如何在Google Apps Script运行时禁用Google Sheet交互？

轻量高效的核心解决方案 #

直接利用Excel VBA的内置属性锁定交互，完全替代工作簿保护，既无额外性能开销也不会引发兼容性问题：

Sub GeneratePDFWithLock()
    ' 禁用交互、屏幕刷新和事件触发
    Application.Interactive = False
    Application.ScreenUpdating = False
    Application.EnableEvents = False
    ' 切换为忙碌光标，提示用户当前不可操作
    Application.Cursor = xlWait

    On Error GoTo Cleanup ' 强制兜底，确保出错时也能恢复Excel状态

    ' --- 这里放你的业务逻辑 ---
    ' 隐藏指定工作表
    Sheets("Sheet2").Visible = xlSheetHidden
    Sheets("Sheet3").Visible = xlSheetHidden
    ' 导出指定工作表为PDF
    Sheets("Sheet1").ExportAsFixedFormat _
        Type:=xlTypePDF, _
        Filename:="C:\你的输出路径\结果文件.pdf", _
        Quality:=xlQualityStandard
    ' 恢复所有工作表显示
    Sheets("Sheet2").Visible = xlSheetVisible
    Sheets("Sheet3").Visible = xlSheetVisible
    ' --- 业务逻辑结束 ---

Cleanup:
    ' 强制恢复所有系统属性，绝对不能省略
    Application.Interactive = True
    Application.ScreenUpdating = True
    Application.EnableEvents = True
    Application.Cursor = xlDefault
    
    ' 若执行出错，给出提示
    If Err.Number <> 0 Then
        MsgBox "执行出错：" & Err.Description, vbCritical
    End If
End Sub

关键属性说明 #

• Application.Interactive = False：直接禁用用户对Excel界面的所有操作（点击工作表、菜单、快捷键等），这是最直接的锁定方式，几乎不增加执行时间。
• ScreenUpdating = False：关闭屏幕刷新，既加快脚本运行速度，也避免用户看到工作表闪藏闪显的过程。
• EnableEvents = False：防止脚本执行期间触发工作表激活、单元格变更等事件，避免干扰主逻辑。
• 错误处理必须加：如果脚本中途报错，Cleanup段会强制恢复所有属性，避免Excel一直处于锁定状态（一旦出现这种情况，用户只能通过任务管理器关闭Excel）。

可选：带视觉提示的遮罩方案 #

如果需要给用户更直观的“正在处理”提示，可以添加全屏半透明遮罩：

Sub GeneratePDFWithMask()
    Dim mask As Shape
    Application.ScreenUpdating = False
    
    ' 创建全屏半透明遮罩
    Set mask = ActiveSheet.Shapes.AddShape(msoShapeRectangle, 0, 0, ActiveWindow.Width, ActiveWindow.Height)
    With mask
        .Fill.ForeColor.RGB = RGB(200, 200, 200)
        .Fill.Transparency = 0.6
        .Name = "ProcessingMask"
        .ZOrder msoSendToBack ' 确保遮罩在底层，不遮挡文本框
    End With
    ' 添加提示文本
    ActiveSheet.Shapes.AddTextbox(msoTextOrientationHorizontal, _
        ActiveWindow.Width / 2 - 120, ActiveWindow.Height / 2 - 25, _
        240, 50).TextFrame2.TextRange.Text = "正在生成PDF，请稍候..."

    On Error GoTo Cleanup

    ' --- 你的业务逻辑 ---

Cleanup:
    ' 清理遮罩和提示文本
    On Error Resume Next ' 防止形状不存在时触发错误
    ActiveSheet.Shapes("ProcessingMask").Delete
    ActiveSheet.Shapes(ActiveSheet.Shapes.Count).Delete
    On Error GoTo 0
    
    Application.ScreenUpdating = True
    ' 也可以结合Application.Interactive属性增强锁定
End Sub

这种方案适合需要用户感知处理状态的场景，但如果只需要纯锁定，第一种方法更高效。

内容的提问来源于stack exchange，提问作者Muhammad Haseeb