情報関連 変更有無調査確認保存
※より実装に近く表示させる為、コードの改行を避けています。スマホ等で閲覧される際は向きを変えてご覧ください。
※実装するバージョンによってはバージョンアップの仕様により動作しないコードもあります。実装には動作確認の上ご使用下さい。
| 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 |