Excel VBA質問箱 IV

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

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


11776 / 13645 ツリー ←次へ | 前へ→

【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

1度、実行してみてください。
"名前を付けて保存"のメッセージボックスが表示された後に、ダイアログボックスが表示されます。
と言うことは、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
>
>

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