EXCEL VBA BeforePrintイベント時のプレビューについて

質問

お世話になります。
早速ですが、以下のコードで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

sakenomo · ベストアンサー

当方エクセル２００２ですが、これだとご質問例のマクロは正常に動作しました。

あまり良い方法とも思えませんが、CommandBarButtonのEnabledやVisibleプロパティを利用して、プレビューボタンを押せなくさせるのはいかがでしょうか。

例として、Worksheet_Activateイベントを使ってみました。コマンドバーの名前や、コントロールのＩＤはバージョンによって違いがあるかもしれません。

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