VBA - 閉じることができません

Question

私はVBAを初めて使いました。いくつかのセルを必須にし、ワークブックを開いたときに空白になっていればセルを強調表示します。しかし、私は自分が持っているコードでExcelを閉じることができません。なぜ誰に教えてもらえますか？サブの終わりに

Private Sub Workbook_BeforeClose(Cancel As Boolean) 
     If Cells(2, 6).Value = "" Then 
      MsgBox "Cell F2 requires user input", vbInformation, "Please filled up the mandatory cells" 
     ElseIf Cells(2, 9).Value = "" Then 
      MsgBox "Cell I2 requires user input", vbInformation, "Please filled up the mandatory cells" 
     ElseIf Cells(4, 4).Value = "" Then 
      MsgBox "Cell D4 requires user input", vbInformation, "Please filled up the mandatory cells" 
     End If 
     Cancel = True 
End Sub 

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) 
     If Cells(2, 6).Value = "" Then 
      MsgBox "Cell F2 requires user input", vbInformation, "Please filled up the mandatory cells" 
     ElseIf Cells(2, 9).Value = "" Then 
      MsgBox "Cell I2 requires user input", vbInformation, "Please filled up the mandatory cells" 
     ElseIf Cells(4, 4).Value = "" Then 
      MsgBox "Cell D4 requires user input", vbInformation, "Please filled up the mandatory cells" 
     End If 
     Cancel = True 
End Sub 

    Private Sub Workbook_Open() 
    If Cells(2, 6).Value = "" Then 
      Range("F2").Interior.ColorIndex = 6 
    ElseIf Cells(2, 9).Value = "" Then 
      Range("I2").Interior.ColorIndex = 6 
    ElseIf Cells(4, 4).Value = "" Then 
      Range("D4").Interior.ColorIndex = 6 
    End If 
End Sub 

Answer 1

cancel = trueは、終了処理をキャンセルするので、ワークブックを開いたままに

この

Option Explicit 

Private Sub Workbook_BeforeClose(Cancel As Boolean) 
    Dim aaa As Variant 
    For Each aaa In Array("F2", "I2", "D4") 
     If Range(aaa).Value = "" Then 
      MsgBox "Cell " & aaa & " requires user input", vbInformation, "Please filled up the mandatory cells" 
      Cancel = True 
      Exit Sub 
     End If 
    Next aaa 
    Cancel = False 
End Sub 

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) 
    Dim aaa As Variant 
    For Each aaa In Array("F2", "I2", "D4") 
     If Range(aaa).Value = "" Then 
      MsgBox "Cell " & aaa & " requires user input", vbInformation, "Please filled up the mandatory cells" 
      Cancel = True 
      Exit Sub 
     End If 
    Next aaa 
    Cancel = False 
End Sub 

Private Sub Workbook_Open() 
    Dim aaa As Variant 
    For Each aaa In Array("F2", "I2", "D4") 
     If Range(aaa).Value = "" Then Range(aaa).Interior.ColorIndex = 6 
    Next aaa 
End Sub