Excel VBA質問箱 IV

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

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


6374 / 13644 ツリー ←次へ | 前へ→

【45544】自動保存機能で確認メッセージを非表示に takao78ks 06/12/30(土) 22:23 質問[未読]
【45549】Re:自動保存機能で確認メッセージを非表示に [名前なし] 06/12/31(日) 11:58 発言[未読]
【45550】Re:自動保存機能で確認メッセージを非表示に takao78ks 06/12/31(日) 13:58 発言[未読]
【45551】Re:自動保存機能で確認メッセージを非表示に ichinose 06/12/31(日) 17:51 発言[未読]
【45555】Re:自動保存機能で確認メッセージを非表示に takao78ks 06/12/31(日) 21:19 発言[未読]
【45559】Re:自動保存機能で確認メッセージを非表示に ichinose 06/12/31(日) 22:24 発言[未読]
【45560】Re:自動保存機能で確認メッセージを非表示に [名前なし] 07/1/1(月) 4:39 発言[未読]
【45561】Re:自動保存機能で確認メッセージを非表示に yuu1 07/1/2(火) 16:12 回答[未読]
【45564】Re:自動保存機能で確認メッセージを非表示に takao78ks 07/1/2(火) 21:44 お礼[未読]
【45556】Re:自動保存機能で確認メッセージを非表示に りん 06/12/31(日) 21:19 発言[未読]

【45544】自動保存機能で確認メッセージを非表示に
質問  takao78ks E-MAIL  - 06/12/30(土) 22:23 -

引用なし
パスワード
   「ツール」メニューに「自動保存」機能を組み込んでいますが、左下の「確認メッセージの表示」のチェックボックスはデフォルトでレ点が入っているようで、自動保存を行う間隔の度に保存するかどうか訊いてきます。このチェックボックスのデフォルトをレ点を外した状態に設定するにはどのようなVBAを書けば宜しいでしょうか?
どなたかお知恵のお貸しください。
よろしくお願いします。

【45549】Re:自動保存機能で確認メッセージを非表...
発言  [名前なし]  - 06/12/31(日) 11:58 -

引用なし
パスワード
   http://park11.wakwak.com/~miko/Excel_Note/frame1.htm
参考にどうぞ

【45550】Re:自動保存機能で確認メッセージを非表...
発言  takao78ks E-MAIL  - 06/12/31(日) 13:58 -

引用なし
パスワード
   ▼[名前なし] さん:
>http://park11.wakwak.com/~miko/Excel_Note/frame1.htm
>参考にどうぞ
アドバイスありがとうございます。
参考のWebSite拝見しました。多分このサイトの項目7番の「確認メッセージを表示せずに...」を指しているのではないかと思われますが、せっかくですが、誤解されているようです。、「自動保存」をご存知ないでしょうか?ブックを閉じるときに表示される、保存して終了か保存せずに終了かあるいは終了をキャンセルするかのメッセージボックスではありません。デフォルトではインストールされていないためアドインで追加インストールしないと「ツール」メニューには表示しません。

【45551】Re:自動保存機能で確認メッセージを非表...
発言  ichinose  - 06/12/31(日) 17:51 -

引用なし
パスワード
   こんばんは。

このアドインプロジェクトのメンバーを公開していませんよね!!


>このチェックボックスのデフォルトをレ点を外した状態に設定する

チェックが入っている状態では、

Sub test()
  SendKeys "+{TAB} {ENTER}"
  Application.Run "AUTOSAVE.XLA!mcp01.AutoSavePreferences"
End Sub

こんなコードでチェックをはずすことは出来ました。

他の投稿でも何回か記述しましたが、
この問題が私の問題ならば、このSendkeysは使いませんけど・・。
(使わないと出来ない場合は、仕様の方を変更します)
まっ、参考程度に見てください。


>参考のWebSite拝見しました。多分このサイトの項目7番の「確認メッセージを表示せずに...」を指しているのではないかと思われますが、せっかくですが、誤解されているようです。、「自動保存」をご存知ないでしょうか?ブックを閉じるときに表示される、保存して終了か保存せずに終了かあるいは終了をキャンセルするかのメッセージボックスではありません。デフォルトではインストールされていないためアドインで追加インストールしないと「ツール」メニューには表示しません。

【45555】Re:自動保存機能で確認メッセージを非表...
発言  takao78ks E-MAIL  - 06/12/31(日) 21:19 -

引用なし
パスワード
   ▼ichinose さん:
アドバイスありがとうございます。
ご提案のコードを実行したらレ点が外れたのは「確認メッセージの表示」ではなく
自動保存自体でした。私は自動保存機能を外したいのではなく、指定した時間が経過したら無条件に保存したいので「確認メッセージ」を非表示させたい、つまり、
「確認メッセージの表示」のレ点を外す方法を尋ねているのですが…

>こんばんは。
>
>このアドインプロジェクトのメンバーを公開していませんよね!!
>
>
>>このチェックボックスのデフォルトをレ点を外した状態に設定する
>
>チェックが入っている状態では、
>
>Sub test()
>  SendKeys "+{TAB} {ENTER}"
>  Application.Run "AUTOSAVE.XLA!mcp01.AutoSavePreferences"
>End Sub
>
>こんなコードでチェックをはずすことは出来ました。
>
>他の投稿でも何回か記述しましたが、
>この問題が私の問題ならば、このSendkeysは使いませんけど・・。
>(使わないと出来ない場合は、仕様の方を変更します)
>まっ、参考程度に見てください。

【45556】Re:自動保存機能で確認メッセージを非表...
発言  りん E-MAIL  - 06/12/31(日) 21:19 -

引用なし
パスワード
   takao78ks さん、こんばんわ。

>「自動保存」をご存知ないでしょうか?ブックを閉じるときに表示される、保存して終了か保存せずに終了かあるいは終了をキャンセルするかのメッセージボックスではありません。デフォルトではインストールされていないためアドインで追加インストールしないと「ツール」メニューには表示しません。
[名前なし] さんの名誉のために・・・ってのはおおげさですが。
アドインなのはXL2000までです。
参考:
htt p://www.vbalab.net/vbaqa/c-board.cgi?cmd=ntr;tree=28454;id=excel
そこから引用
htt p://www.excel7.com/trouble4.htm

自動保存を使わなくても、OnTimeメソッドを使って一定間隔で保存するマクロを組む方法もありますよ。
OnTimeの例
htt p://www.vbalab.net/vbaqa/c-board.cgi?cmd=ntr;tree=18169;id=excel

【45559】Re:自動保存機能で確認メッセージを非表...
発言  ichinose  - 06/12/31(日) 22:24 -

引用なし
パスワード
   ▼takao78ks さん:
>ご提案のコードを実行したらレ点が外れたのは「確認メッセージの表示」ではなく
>自動保存自体でした。私は自動保存機能を外したいのではなく、指定した時間が経過したら無条件に保存したいので「確認メッセージ」を非表示させたい、つまり、
>「確認メッセージの表示」のレ点を外す方法を尋ねているのですが…

なるほど・・・、ならば

>>Sub test()
   SendKeys "{TAB}{TAB} {ENTER}"
>>  Application.Run "AUTOSAVE.XLA!mcp01.AutoSavePreferences"
>>End Sub

これに変更して試してみて下さい。

【45560】Re:自動保存機能で確認メッセージを非表...
発言  [名前なし]  - 07/1/1(月) 4:39 -

引用なし
パスワード
   ▼takao78ks さん:
現在のアドインを無効にし下記アドインではどうでしょ
http://www12.plala.or.jp/nombo/soft7.html

【45561】Re:自動保存機能で確認メッセージを非表...
回答  yuu1  - 07/1/2(火) 16:12 -

引用なし
パスワード
   >私は自動保存機能を外したいのではなく、指定した時間が経過したら無条件に保存したいので「確認メッセージ」を非表示させたい、つまり、「確認メッセージの表示」のレ点を外す方法を尋ねているのですが…

であれば、単に手操作で「確認メッセージの表示」のチェックを外しておくだけの事ではないでしょうか?
外しかたが分からないということ?であれば、
[ツール]-[自動保存]を開き[確認メッセージの表示]のチェックを外す。

それとも、チェックを外すのをマクロで実行したいと言うこと?
手動で設定すれば済むことなのでその必要性はわかりませんが、
以下で操作は出来ます。
Workbooks("AUTOSAVE.XLA").Sheets("Loc Table").Range("K15") = False

【45564】Re:自動保存機能で確認メッセージを非表...
お礼  takao78ks E-MAIL  - 07/1/2(火) 21:44 -

引用なし
パスワード
   ▼yuu1 さん:
ありがとうございました。セルK15の意味が判りませんが、
とりあえずうまくいきました。
>>私は自動保存機能を外したいのではなく、指定した時間が経過したら無条件に保存したいので「確認メッセージ」を非表示させたい、つまり、「確認メッセージの表示」のレ点を外す方法を尋ねているのですが…
>
>であれば、単に手操作で「確認メッセージの表示」のチェックを外しておくだけの事ではないでしょうか?
>外しかたが分からないということ?であれば、
>[ツール]-[自動保存]を開き[確認メッセージの表示]のチェックを外す。
>
>それとも、チェックを外すのをマクロで実行したいと言うこと?
>手動で設定すれば済むことなのでその必要性はわかりませんが、
>以下で操作は出来ます。
>Workbooks("AUTOSAVE.XLA").Sheets("Loc Table").Range("K15") = False

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