- 締切済み
VBA
下記に、ツールバーにある印刷ボタンを押すとチェックBOXがチェックされていない時印刷できないようにするというVBAですが下のVBAのような感じで 例えばセルA1にFALSEという文字が入っていたら印刷不可で印刷するかしないかを選択。もし、セルA1にTRUEという文字が入っていたら印刷可。 というのをVBA教えて下さい。 よろしくお願いします。 Private Sub Workbook_BeforePrint(Cancel As Boolean) With Worksheets("sheet1").CheckBoxes("チェック 1") If .Value <> 1 Then If MsgBox("印刷しますか?", vbYesNo) <> 6 Then Cancel = True End If End With End Sub
- みんなの回答 (1)
- 専門家の回答
みんなの回答
- hana-hana3
- ベストアンサー率31% (4940/15541)
回答No.1
下記でいかがでしょうか? Private Sub Workbook_BeforePrint(Cancel As Boolean) With Worksheets("sheet1").Range("A1") If TypeName(.Value) = "Boolean" Then If .Value = False Or MsgBox("印刷しますか?", vbYesNo) = vbNo Then Cancel = True Else Cancel = True End If End With End Sub
お礼
ホンマありがとうございました。