Excel VBA質問箱 IV

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

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


10721 / 13646 ツリー ←次へ | 前へ→

【20153】保存後のイベント TAKA 04/11/29(月) 21:02 質問[未読]
【20156】Re:保存後のイベント ちゃっぴ 04/11/29(月) 23:37 回答[未読]
【20223】Re:保存後のイベント TAKA 04/12/2(木) 11:17 お礼[未読]
【20224】Re:保存後のイベント TAKA 04/12/2(木) 12:10 質問[未読]
【20240】Re:保存後のイベント ちゃっぴ 04/12/2(木) 20:18 回答[未読]

【20153】保存後のイベント
質問  TAKA  - 04/11/29(月) 21:02 -

引用なし
パスワード
   マクロ付きの既存ファイルをコピー新規で開き(*)、保存後(ファイル名確定)に自分の
ファイル名をDB保存したいのですが、保存後というイベントは無いのでしょうか?

無い場合、ファイルの保存後にマクロを動かせるような手は無いでしょうか?

(*)既存ファイルを選択し、右クリックで新規作成

【20156】Re:保存後のイベント
回答  ちゃっぴ  - 04/11/29(月) 23:37 -

引用なし
パスワード
   >無い場合、ファイルの保存後にマクロを動かせるような手は無いでしょうか?

BeforeSave Eventで通常の保存を無効化して、
VBAで保存するようにします。

で、そのあとに任意の処理を書いてやればいいでしょう。

【20223】Re:保存後のイベント
お礼  TAKA  - 04/12/2(木) 11:17 -

引用なし
パスワード
   >BeforeSave Eventで通常の保存を無効化して、
>VBAで保存するようにします。
>
>で、そのあとに任意の処理を書いてやればいいでしょう。

なるほど!
参考になりました。
ありがとうございます。

【20224】Re:保存後のイベント
質問  TAKA  - 04/12/2(木) 12:10 -

引用なし
パスワード
   ▼TAKA さん:
>>BeforeSave Eventで通常の保存を無効化して、
>>VBAで保存するようにします。
>>
>>で、そのあとに任意の処理を書いてやればいいでしょう。

たびたびすみませんがご教示ください。
保存を無効化するために、Workbook_BeforeSaveに下記のように
SavedプロパティをTrueにしましたが、無効化されず
exit subの後に保存されてしまいます。

ActiveWorkbook.Saved = True
Application.EnableEvents = False  'イベントの二重起動を防止するために追加
exit sub

やり方が違うのでしょうか?

【20240】Re:保存後のイベント
回答  ちゃっぴ  - 04/12/2(木) 20:18 -

引用なし
パスワード
   ヘルプを熟読してください。
使用例もちゃんと載っています。

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, _
                Cancel As Boolean)
  ' ブックの保存をキャンセル
  Cancel = True
  ' ブックを上書き保存
  ThisWorkbook.Save
  ' 処理
  
End Sub

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