ユーザーがVBAで保存したときにエラーをスローする方法

Question

私の列Aには、「はい」または「いいえ」を選択できる選択肢があります。両方の選択に必要なセルがあります。

Example: 
If User selects "YES" 
Mandatory cells will be in Colum A, D and E 
If User selects "No" 
Mandatory cells will be in Colum B, C and G 

「行1」では、ユーザーが「はい」を選択してA1とE1に値を入力したが、セルD1に値を追加するのを忘れたとします。 行2では、ユーザーは「いいえ」を選択してB2とC2に値を入力し、セルG2に値を入力するのを忘れました。

彼は私が "は、以下のセルの値を入力しますというエラーをスローしたい、セーブヒットD1、G2

私は以下のコードがあります。。

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) 

    Dim Target As Range 
    If Not Intersect(Target, Range("A:A")) Is Nothing Then 

       If Target = "YES" Then 

        For i = 1 To 15 
         If Target.Offset(0, i).Value = "" Then 
         MsgBox "Enter values on the mandatory cells (green)", vbCritical, "" 
         End If 
        Next i 
         Cancel = True 

       ElseIf Target = "NO" Then 
        For i = 16 To 30 
         If Target.Offset(0, i).Value = "" Then 
          MsgBox "Enter values on the mandatory cells (green)", vbCritical, "" 
         End If 
        Next i 
        Cancel = True 
       End If 
     End If 
End Sub 

Answer 1

使用をワークブックbeforeSaveイベントとそれに応じて処理します。

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, _ 
     Cancel as Boolean) 
    'your code here 
End Sub 

OPの新しいコードの編集：

あなたのコードにTargetが何であるか決して定義していないので、intersectメソッドは何も返されません。私はあなたがSaveのそれと、（目標範囲を含む）Worksheet_changeメソッドを混乱させていると思います。 BeforeSaveメソッドの実行時に、ターゲットが何であるかを定義する必要があります。特定の範囲の値をループし、すべての条件が満たされていることを確認することをお勧めします。一部が希望どおりでない場合は、欠落しているデータをユーザーが指し示し、保存を防止するためのメッセージを表示できます。

Answer 2

これらの2つの行のいずれかを試してください。これは、メッセージボックスであることは、このようなエラーをスローするのは良い考えではありませんが、あなたはそんなにしたい場合は... ：

msgbox "Enter a value of the following cells. D1 G2" 

これはエラーです：

err.Raise 1, description:= "Enter a value of the following cells. D1 G2"