次の方法で共有

Workbook.BeforeSave イベント (Excel)

  • [アーティクル]

ブックを保存する前に発生します。

構文

式。BeforeSave (SaveAsUI, Cancel)

式Workbook オブジェクトを表す変数。

パラメーター

名前 必須 / オプション データ型 説明
SaveAsUI 必須 ブール型 (Boolean) True の 場合、ブックに保存する必要がある変更が原因で [ 名前を付 けて保存] ダイアログ ボックスが表示されます。
Cancel 必須 Boolean イベントが発生すると False が渡されます。 イベント プロシージャでこの引数に True を設定すると、プロシージャが終了しても、ブックは保存されません。

戻り値

Nothing

例

次の使用例は、ブックが保存される前に、ユーザーに保存するかどうかの確認を要求します。

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, _ 
        Cancel as Boolean) 
    a = MsgBox("Do you really want to save the workbook?", vbYesNo) 
    If a = vbNo Then Cancel = True 
End Sub

この例では、 BeforeSave イベントを使用して、ブックを保存する前に特定のセルにデータが含まれていることを確認します。 D5、D7、D9、D11、D13、D15 の各セルにデータが含まれるまで、ブックを保存できません。

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
   'If the six specified cells don't contain data, then display a message box with an error
   'and cancel the attempt to save.
   If WorksheetFunction.CountA(Worksheets("Sheet1").Range("D5,D7,D9,D11,D13,D15")) < 6 Then
      MsgBox "Workbook will not be saved unless" & vbCrLf & _
      "All required fields have been filled in!"
      Cancel = True
   End If
End Sub

サポートとフィードバック

Office VBA またはこの説明書に関するご質問やフィードバックがありますか？ サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。