Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
11788 / 13657 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【13999】上書き保存と名前を付けて保存の見極め WAKO 04/5/18(火) 13:57 質問[未読]
【14001】Re:上書き保存と名前を付けて保存の見極め IROC 04/5/18(火) 14:06 回答[未読]
【14003】Re:上書き保存と名前を付けて保存の見極め Jaka 04/5/18(火) 14:14 回答[未読]
【14010】Re:上書き保存と名前を付けて保存の見極め WAKO 04/5/18(火) 15:25 質問[未読]
【14013】Re:上書き保存と名前を付けて保存の見極め Jaka 04/5/18(火) 15:53 回答[未読]
【14015】Re:上書き保存と名前を付けて保存の見極め IROC 04/5/18(火) 16:02 回答[未読]
【14189】Re:上書き保存と名前を付けて保存の見極め IROC 04/5/22(土) 20:24 回答[未読]
【14208】Re:上書き保存と名前を付けて保存の見極め WAKO 04/5/23(日) 17:59 質問[未読]
【14218】Re:上書き保存と名前を付けて保存の見極め WAKO 04/5/23(日) 23:10 質問[未読]
【14224】Re:上書き保存と名前を付けて保存の見極め つん 04/5/24(月) 9:27 回答[未読]
【14227】Re:上書き保存と名前を付けて保存の見極め WAKO 04/5/24(月) 10:28 質問[未読]
【14229】Re:上書き保存と名前を付けて保存の見極め IROC 04/5/24(月) 10:33 回答[未読]
【14233】Re:上書き保存と名前を付けて保存の見極め WAKO 04/5/24(月) 10:57 お礼[未読]
【13999】上書き保存と名前を付けて保存の見極め
質問  WAKO  - 04/5/18(火) 13:57 -
引用なし
パスワード
   こんにちは、
ﾏｸﾛで、"上書き保存"をした場合と、
"名前を付けて保存" をした場合とで、内部の処理方法を変えたいのですが
できるでしょうか。

beforesave というｱｸｼｮﾝは、上記のどちらであっても
反応します。ここで、"上書き保存" を押したのか、
"名前を付けて保存"を押したのか、判断したいのです。

だれか教えて下さい。
よろしくお願いします。
【14001】Re:上書き保存と名前を付けて保存の見極め
回答  IROC  - 04/5/18(火) 14:06 -
引用なし
パスワード
   一般操作の保存は、すべて無効にして、
マクロからの保存のみ有効にしては如何ですか？

そうすれば、上書き保存"マクロ　と　"名前を付けて保存" マクロを
作れば対応できると思います。
【14003】Re:上書き保存と名前を付けて保存の見極め
回答  Jaka  - 04/5/18(火) 14:14 -
引用なし
パスワード
   Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
　　If SaveAsUI = True Then
　　　 MsgBox "名前を付けて保存"
　　Else
　　　 MsgBox "上書き保存"
　　End If
End Sub
【14010】Re:上書き保存と名前を付けて保存の見極め
質問  WAKO  - 04/5/18(火) 15:25 -
引用なし
パスワード
   以下の時で
"名前を付けて保存" を選択した時の
保存先である、パス は取得できるのでしょうか。
すいませんが、教えて下さい


▼Jaka さん：
>Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
>　　If SaveAsUI = True Then
>　　　 MsgBox "名前を付けて保存"
>　　Else
>　　　 MsgBox "上書き保存"
>　　End If
>End Sub
【14013】Re:上書き保存と名前を付けて保存の見極め
回答  Jaka  - 04/5/18(火) 15:53 -
引用なし
パスワード
   ▼WAKO さん：
>以下の時で
>"名前を付けて保存" を選択した時の
>保存先である、パス は取得できるのでしょうか。
>すいませんが、教えて下さい

>>Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
>>　　If SaveAsUI = True Then
>>　　　 MsgBox "名前を付けて保存"
>>　　Else
>>　　　 MsgBox "上書き保存"
>>　　End If
>>End Sub

１度、実行してみてください。
"名前を付けて保存"のメッセージボックスが表示された後に、ダイアログボックスが表示されます。
と言うことは、MSが用意したダイアログボックス上で何をされても遅い（何も操作できない）と言うことになると思いませんか？
無理だと思います。
【14015】Re:上書き保存と名前を付けて保存の見極め
回答  IROC  - 04/5/18(火) 16:02 -
引用なし
パスワード
   Jakaさんの方法を参考にして作ってみました。
エラートラップはしてませんが・・・

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim mypath As String

　　If SaveAsUI = True Then
　　　 mypath = Application.GetSaveAsFilename(Title:="マクロ保存")
　　　 MsgBox mypath
　　　
　　　 Application.EnableEvents = False
　　　 ThisWorkbook.SaveAs mypath
　　　 Application.EnableEvents = True
　　　 Cancel = True
　　Else
　　　 MsgBox "上書き保存"
　　End If
　　
End Sub
【14189】Re:上書き保存と名前を付けて保存の見極め
回答  IROC  - 04/5/22(土) 20:24 -
引用なし
パスワード
   なかなかお返事頂けないのは、

>回答の内容が意図していない

からのでしょうか・・？
【14208】Re:上書き保存と名前を付けて保存の見極め
質問  WAKO  - 04/5/23(日) 17:59 -
引用なし
パスワード
   ▼IROC さん：

すいません、決してそういう分けではなく、
ﾕｰｻﾞｰの方で、名前を付けて保存をしない
ようにするかも知れない、という回答が
きた為、現在保留状態なのです。

明日にでもためしてみます。


▼IROC さん：
>なかなかお返事頂けないのは、
>
>>回答の内容が意図していない
>
>からのでしょうか・・？
【14218】Re:上書き保存と名前を付けて保存の見極め
質問  WAKO  - 04/5/23(日) 23:10 -
引用なし
パスワード
   みなさんこんにちは
名前を付けて保存 を押したときに
"名前を付けて保存は使用できません"というメッセージ
を出して、かつﾀﾞｲｱﾛｸﾞﾎﾞｯｸｽを表示させない方法て
あるのでしょうか。
今、beforesave に書くとメッセージはでますが
ﾀﾞｲｱﾛｸﾞﾎﾞｯｸｽはでてしまいます。
すいませんが、だれか分かる方教えて下さい。
よろしくお願いします。


▼WAKO さん：
>▼IROC さん：
>
>すいません、決してそういう分けではなく、
>ﾕｰｻﾞｰの方で、名前を付けて保存をしない
>ようにするかも知れない、という回答が
>きた為、現在保留状態なのです。
>
>明日にでもためしてみます。
>
>
>▼IROC さん：
>>なかなかお返事頂けないのは、
>>
>>>回答の内容が意図していない
>>
>>からのでしょうか・・？
【14224】Re:上書き保存と名前を付けて保存の見極め
回答  つん E-MAIL  - 04/5/24(月) 9:27 -
引用なし
パスワード
   WAKO さん、

>みなさんこんにちは
>名前を付けて保存 を押したときに
>"名前を付けて保存は使用できません"というメッセージ
>を出して、かつﾀﾞｲｱﾛｸﾞﾎﾞｯｸｽを表示させない方法て
>あるのでしょうか。
>今、beforesave に書くとメッセージはでますが
>ﾀﾞｲｱﾛｸﾞﾎﾞｯｸｽはでてしまいます。
>すいませんが、だれか分かる方教えて下さい。
>よろしくお願いします。

　Cancel = True

で、ダイアログボックスは出ないんじゃないですか？

ところで、私が以前書いた、「半角カタカナ」の件は
読んで頂いてないのでしょうか？
【14227】Re:上書き保存と名前を付けて保存の見極め
質問  WAKO  - 04/5/24(月) 10:28 -
引用なし
パスワード
   こんにちは
▼つん さん：

　beforesave の所に

　RES = MsgBox("名前を付けて保存はできません", vbCancel)
　　　　　　
　If RES = vbCancel Then
　　 Cancel = True
　End If

　このように書いたのですが、
　メッセージの所には、
　"中止","再試行","無視" というボタンがでてきます。
　どうして、"キャンセル" がでないか分かりますか。


>WAKO さん、
>
>>みなさんこんにちは
>>名前を付けて保存 を押したときに
>>"名前を付けて保存は使用できません"というメッセージ
>>を出して、かつﾀﾞｲｱﾛｸﾞﾎﾞｯｸｽを表示させない方法て
>>あるのでしょうか。
>>今、beforesave に書くとメッセージはでますが
>>ﾀﾞｲｱﾛｸﾞﾎﾞｯｸｽはでてしまいます。
>>すいませんが、だれか分かる方教えて下さい。
>>よろしくお願いします。
>
>　Cancel = True
>
>で、ダイアログボックスは出ないんじゃないですか？
>
>ところで、私が以前書いた、「半角カタカナ」の件は
>読んで頂いてないのでしょうか？
【14229】Re:上書き保存と名前を付けて保存の見極め
回答  IROC  - 04/5/24(月) 10:33 -
引用なし
パスワード
   まえに私が掲載したコードを試しましたか？

試していれば、容易に分かることだと思いますが・・・


Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)

　　If SaveAsUI = True Then
　　　 MsgBox "「名前を付けて保存」は、使用できません", vbCritical, "保存エラー"
　　　 Cancel = True
　　Else
　　　 MsgBox "上書き保存"
　　End If
　
End Sub
【14233】Re:上書き保存と名前を付けて保存の見極め
お礼  WAKO  - 04/5/24(月) 10:57 -
引用なし
パスワード
   ▼IROC さん：
すいません試し方が分かりませんでした。
おかげでうまくいきました。
ありがとうございます。


▼IROC さん：
>まえに私が掲載したコードを試しましたか？
>
>試していれば、容易に分かることだと思いますが・・・
>
>
>Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
>
>　　If SaveAsUI = True Then
>　　　 MsgBox "「名前を付けて保存」は、使用できません", vbCritical, "保存エラー"
>　　　 Cancel = True
>　　Else
>　　　 MsgBox "上書き保存"
>　　End If
>　
>End Sub
>
>
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
11788 / 13657 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free