如何阻止Google Sheets按钮在特定单元格为空时执行脚本

1. 修改保存脚本，添加必填单元格验证 #

直接在你的保存代码开头加入检查逻辑，判断指定单元格是否为空，若为空则弹出提示并终止执行：

Sub SaveData()
    ' 定义必填单元格范围
    Dim requiredCells As Variant
    requiredCells = Array("C8", "C14", "C32")
    
    ' 遍历检查每个必填单元格
    Dim cell As Variant
    For Each cell In requiredCells
        If Sheet1.Range(cell).Value = "" Then
            MsgBox "请填写必填项：" & cell, vbExclamation, "输入不完整"
            Sheet1.Range(cell).Activate ' 定位到未填写的单元格
            Exit Sub ' 终止脚本执行
        End If
    Next cell
    
    ' 以下是你原有的保存数据到Sheet2的代码，示例如下：
    Dim lastRow As Long
    lastRow = Sheet2.Cells(Rows.Count, 1).End(xlUp).Row + 1 ' 找到Sheet2的下一行
    
    ' 复制Sheet1的数据到Sheet2，根据你的实际需求调整范围
    Sheet1.Range("A1:D32").Copy Destination:=Sheet2.Cells(lastRow, 1)
    ' 或者逐个单元格赋值，示例：
    ' Sheet2.Cells(lastRow, 1).Value = Sheet1.Range("A8").Value
    ' Sheet2.Cells(lastRow, 2).Value = Sheet1.Range("C8").Value
    
    MsgBox "数据保存成功！", vbInformation, "保存完成"
End Sub

2. 可选：让按钮在必填项为空时不可点击（灰化） #

如果希望用户连点击按钮的操作都被限制，可以添加工作表的Change事件，实时检查必填项状态并设置按钮可用性：

1. 右键点击Sheet1的标签，选择「查看代码」
2. 粘贴以下代码：

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim requiredCells As Variant
    requiredCells = Array("C8", "C14", "C32")
    Dim allFilled As Boolean
    allFilled = True
    
    ' 检查所有必填单元格是否已填写
    Dim cell As Variant
    For Each cell In requiredCells
        If Me.Range(cell).Value = "" Then
            allFilled = False
            Exit For
        End If
    Next cell
    
    ' 设置按钮状态（假设按钮是表单控件，名称为"Button1"，如果是ActiveX控件则用CommandButton1.Enabled）
    ' 表单控件按钮：
    Me.Shapes("Button1").ControlFormat.Enabled = allFilled
    ' ActiveX控件按钮：
    ' Me.CommandButton1.Enabled = allFilled
End Sub

注意：如果是ActiveX按钮，需要确保按钮名称和代码里的一致；如果是表单控件，右键按钮看「指定宏」里的名称，或者在形状管理器里确认名称。

关键说明 #

• 验证逻辑会逐个检查指定单元格，只要有一个为空就终止保存，并引导用户定位到未填写的单元格
• 灰化按钮是体验增强操作，即使不做这一步，仅靠脚本开头的验证也能有效阻止无效数据保存
• 可根据实际需求调整必填单元格数组（比如requiredCells = Array("C8", "C14", "C32", "E5")）

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