Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
7581 / 13645 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【38155】保存を阻止したい しょう 06/5/27(土) 22:05 質問[未読]
【38156】Re:保存を阻止したい ponpon 06/5/27(土) 23:00 発言[未読]
【38157】Re:保存を阻止したい しょう 06/5/27(土) 23:23 お礼[未読]
【38155】保存を阻止したい
質問  しょう  - 06/5/27(土) 22:05 -
引用なし
パスワード
   印刷を阻止したいにある内容は理解できました。それと同時に、保存も阻止したいのです。同じように、「保存禁止設定」、「保存禁止解除」としたいのですが、うまくいきません。どなたかご教授ください。印刷を阻止したいを参考にいろいろやってみましたが意図したとおりになりませんでした。
【38156】Re:保存を阻止したい
発言  ponpon  - 06/5/27(土) 23:00 -
引用なし
パスワード
   ▼しょう さん：
>印刷を阻止したいにある内容は理解できました。それと同時に、保存も阻止したいのです。同じように、「保存禁止設定」、「保存禁止解除」としたいのですが、うまくいきません。どなたかご教授ください。印刷を阻止したいを参考にいろいろやってみましたが意図したとおりになりませんでした。

どんな場合に保存をさせないようにするのか分かりませんが、

ThisWorkbookモジュールに

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
　 If flg Then
　　　MsgBox "保存はできません"
　　　Cancel = True
　 End If
End Sub

標準モジュールに
Public flg As Boolean

Sub 保存不可()
　　flg = True

End Sub

Sub 保存可()
　　flg = False
End Sub

としてflgで判断されたらいかがでしょうか？
【38157】Re:保存を阻止したい
お礼  しょう  - 06/5/27(土) 23:23 -
引用なし
パスワード
   ponpon さん　どもありがとうございました。希望通りの動作をしてくれました。
ちなみにどのようなことをしたかったかというと、ある分析シートがあります。
マクロが実行できない状態では、全てのシートが保護されており、データの入力はできません。マクロを実行して初めてデータの入力ができるように一部が保護解除されます。シート名は、「○○分析_2006_05.xls」のようなファイルで作成されます。今回の目的は、ファイルメニューの保存系を使えなくし、「分析メニュー」という独自に追加したメニュー（分析ソフト自体はアドインマクロ）の「分析シート保存」（要は上書き保存）を実行したときだけ保存されるようにしたかったのです。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
7581 / 13645 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free