Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


70122 / 76734 ←次へ | 前へ→

【11123】Re:SaveAs について
質問  furuya  - 04/2/28(土) 19:53 -

引用なし
パスワード
   うまくいかないことがあります。
フォームにコマンドボタンを配置(終了処理)し、下記のマクロを割り当てています。
終了する際、上書きして終了するか否かメッセージボックスが表示るように作りました。
「はい」を選ぶと上書きして終了しますが、「いいえ」を選ぶとエクセルのファイルを保存するか否かのメッセージが出てきてしまいます。保存しないで終了する場合、メッセージを出さずに勝手に終了させたいのですが、どうすればいいのでしょうか。
ソースは下記の通りです。

Sub ファイル保存test()
 
Dim savenm As String
savenm = ThisWorkbook.Path & "\" & ThisWorkbook.Name
 
If chk_上書き(savenm) = True Then
   
  Application.DisplayAlerts = False
'   ↑を入れて強制的に上書き
  ThisWorkbook.SaveAs savenm, FileFormat:=xlNormal, Password:="test", WriteResPassword:="",ReadOnlyRecommended:=False, CreateBackup:=True
  Application.DisplayAlerts = True
  Application.Quit

  Else
  Application.DisplayAlerts = False
  Application.Quit

  End If

Application.DisplayAlerts = True
frmトップページ.Caption = "トップページ"
 
End Sub
'=============================================================
Function chk_上書き(flnm As String) As Boolean

  chk_上書き = True
  If Dir(flnm) <> "" Then
   ans = MsgBox(flnm & " は既に存在します。上書きしますか?", vbYesNo)
   If ans = 6 Then
     chk_上書き = True
   Else
   chk_上書き = False
   End If
  End If
End Function

1 hits

【11109】ブックの保存について furuya 04/2/28(土) 12:10 質問
【11111】Re:ブックの保存について ちん 04/2/28(土) 12:27 回答
【11118】SaveAs について furuya 04/2/28(土) 15:58 質問
【11120】Re:SaveAs について ちん 04/2/28(土) 16:17 回答
【11122】Re:SaveAs について ichinose 04/2/28(土) 17:58 回答
【11123】Re:SaveAs について furuya 04/2/28(土) 19:53 質問
【11127】Re:SaveAs について ichinose 04/2/28(土) 21:15 回答
【11128】Re:SaveAs について furuya 04/2/28(土) 22:19 質問
【11137】Re:SaveAs について クウガ 04/2/29(日) 11:15 回答
【11141】Re:SaveAs について ichinose 04/2/29(日) 12:17 発言

70122 / 76734 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free