![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?e8efa67)
お世話になります。
早速ですが、以下のコードでBeforePrintのイベントを利用していますが、
プリントボタンやCtrl+Pでは正常に動作するのですがプレビューボタンを押されたら
Cancel=Trueが効かず、プレビューが表示され、ユーザーフォームも開くので
Excelを制御出来なくなってしまいます。(タスクマネージャで落とすしかない)
プレビューでもCancel=Trueにする方法、またはプレビュー自体を禁止する方法
がありましたらご教授ください。
Private Sub Workbook_BeforePrint(Cancel As Boolean)
If Worksheets("設定").Range("B31").Value = True Then
Cancel = True
F_Print.Show 'F_Printはユーザフォーム
End If
End Sub
環境:Excel2000 SP3
No.1ベストアンサー
- 回答日時:
当方エクセル2002ですが、これだとご質問例のマクロは正常に動作しました。
あまり良い方法とも思えませんが、CommandBarButtonのEnabledやVisibleプロパティを利用して、プレビューボタンを押せなくさせるのはいかがでしょうか。
例として、Worksheet_Activateイベントを使ってみました。コマンドバーの名前や、コントロールのIDはバージョンによって違いがあるかもしれません。
Private Sub Worksheet_Activate()
CommandBars("Standard").FindControl(ID:=109).Visible = False
CommandBars("File").FindControl(ID:=109).Visible = False
End Sub
Private Sub Worksheet_Deactivate()
CommandBars("Standard").FindControl(ID:=109).Visible = True
CommandBars("File").FindControl(ID:=109).Visible = True
End Sub
sakenomo様
ありがとうございました。思っていたことが実現できました。
今回はvisibleではなくEnabledを使うことにしました。
2000はなぜCancelにならないのかは不思議です。
CommandBars("Standard").FindControl(ID:=109).Enabled = False
CommandBars("File").FindControl(ID:=109).Enabled = False
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) 2つのVBAを一緒にしたら機能しなくなりました(エクセル) 7 2022/06/02 12:41
- Visual Basic(VBA) エクセルVBA ダブルクリックしたら色反転を指定したセルのみにしたい 2 2022/04/06 12:52
- Visual Basic(VBA) 【Excel VBA】自動メール送信の機能追加 5 2022/09/29 12:53
- Visual Basic(VBA) 【追加】ファイルを閉じてダイアログで保存した時だけ処理の実行をする 3 2022/03/23 15:43
- Visual Basic(VBA) Excelにて、シート1の行を削除するとシート2のシート1と同じ番号の行も削除したい 3 2022/05/08 04:24
- Visual Basic(VBA) 【変更】ファイルを閉じてダイアログで保存した時、更新したシートだけの処理の実行をする 5 2022/03/26 18:31
- Visual Basic(VBA) 【VBA】写真の貼り付けコードがうまく機能しません。 5 2022/09/01 18:43
- Visual Basic(VBA) 動きっぱなしです。止め方とプロシージャの間違いを教えて下さい! 5 2022/08/15 23:08
- Visual Basic(VBA) エクセルのマクロを使ってメールを送る方法について教えてください 2 2022/03/29 01:36
- Visual Basic(VBA) ユーザーフォーム「frm_基本❶」を立ち上げると新規で入力する行数を右下のNoとして表示しています。 1 2023/03/16 19:02
このQ&Aを見た人はこんなQ&Aも見ています
-
性格の違いは生まれた順番で決まる?長男長女・中間子・末っ子・一人っ子の性格の傾向
同じ環境で生まれ育っても、生まれ順で性格は違うものなのだろうか。家庭教育研究家の田宮由美さんに教えてもらった。
-
Excel VBA の印刷後の判定
Excel(エクセル)
-
EXCEL VBA 印刷プレビューダイアログのボタン操作を判定したい
Visual Basic(VBA)
-
Excel2000 BeforePrintイベントで印刷かプレビューかの判定
Excel(エクセル)
-
-
4
EXCEL VBA 指定したファイルが存在しない場合メッセージボックスを表示させる
Access(アクセス)
-
5
エクセル2010でのBeforePrintイベント
その他(Microsoft Office)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
生理でも会ってくれるセフレっ...
-
海外版ツムツムについて
-
動画見ながらゲーム等するとPC...
-
パソコンのバツ印が出てこなく...
-
ポケモンエメラルドの交換方法...
-
男性は好きでもない人と一緒に...
-
デスクトップで謎の半透明なウ...
-
なぜ世間は「ニートは国民の三...
-
手持ちのポケモンがゆうことを...
-
ネカフェのPCでSteamをダウンロ...
-
Steam版ホグワーツレガシー強制...
-
ポケモンのなつき度チェック(...
-
Windows10で最近パソコンを立ち...
-
PCゲームのプレイ中に突然デス...
-
スイッチでマインクラフトをプ...
-
PCゲームのFPSが突然下がります。
-
変な質問しますが 戦国BASARAの...
-
Ryzen 7 5700Uではゲームは出来...
-
ドラクエ8 サザンビークのバ...
-
ポケモンのリーフグリーンでハ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
生理でも会ってくれるセフレっ...
-
Steam版ホグワーツレガシー強制...
-
ポケモンのなつき度チェック(...
-
パソコンのバツ印が出てこなく...
-
なぜ世間は「ニートは国民の三...
-
デスクトップで謎の半透明なウ...
-
動画見ながらゲーム等するとPC...
-
手持ちのポケモンがゆうことを...
-
スイッチでマインクラフトをプ...
-
男性は好きでもない人と一緒に...
-
Windows10で最近パソコンを立ち...
-
スペックは足りてるのにゲーム...
-
Windows10の統合版マインクラフ...
-
PCゲームのFPSが突然下がります。
-
Ryzen 7 5700Uではゲームは出来...
-
ネカフェのPCでSteamをダウンロ...
-
パズドラの動作が重いです
-
ICOのエンディングなどについて...
-
ポケモンHG・SSでヒンバスは出...
-
ネット回線の相性ってあるんで...
おすすめ情報