情報関連 変更有無調査確認保存

VB&VBA
FROG ふろっぐ
 
  • オプション

    本文印刷

    お気に入りに追加

  • 検索

    Googlewwwjp-ia
     

    Googlewwwjp-ia
     
  • 情報

  • 関連

[VB&VBA][情報関連 変更有無調査確認保存]
Public Sub psb変更有無調査確認保存(Mybook As Workbook, MySheet As Worksheet)
'*******************************************************************************
'変更有無調査確認保存
'*******************************************************************************
    Dim str(3) As String
    If Mybook.Saved = False Then        'False(変更を未保存)なら
        str(1) = "行った処理を有効にしますか?"
        str(2) = "※[いいえ]を選択した場合、行った処理は破棄されます。"
        str(3) = fncブック名(Mybook)
        If MsgBox(str(1) & vbCr & vbCr & str(2), vbExclamation + vbYesNo, str(3)) = vbYes Then
            Call psbブック保護(Mybook)
            Call psbシート保護(MySheet)
            Mybook.Save                    '上書き保存
            Application.DisplayAlerts = False           'メッセージを出さない
            Mybook.Close                '閉じる
        Else
            Application.DisplayAlerts = False           'メッセージを出さない
            Mybook.Close                '閉じる
        End If
    Else
      Mybook.Close
    End If
End Sub





Production Japan Import Application. Since 1998