excel - 使工作簿上特定工作表的字段成为必填项

Question

我在 excel 中使用宏来使 excel 工作簿中的字段成为必填字段。但是，问题在于工作簿包含多个工作表，并且宏适用于所有工作表。

有没有办法针对工作簿中的特定工作表？

以下是我正在使用的代码:

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
If Cells(5, 2).Value = "" Then
    MsgBox "Please fill cell B5"
    Cancel = True
End If
End Sub

Answer 1

请试试:

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
  For i = 1 To ThisWorkbook.Sheets.Count 
   If ThisWorkbook.Sheets(i).Name = "Name of specific sheet" Then
     If ThisWorkbook.Sheets(i).Cells(5, 2).Value = "" Then
        MsgBox "Please fill cell B5"
        Cancel = True
     End If
   End If
  Next i
End Sub

“特定工作表的名称”是您验证的工作表名称 Cells(5, 2).Value = ""为了。