Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

67064 / 76738

←次へ　｜　前へ→


	【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
>
>

0 hits

▼

【13999】上書き保存と名前を付けて保存の見極め WAKO 04/5/18(火) 13:57