VBA

質問

下記に、ツールバーにある印刷ボタンを押すとチェックBOXがチェックされていない時印刷できないようにするというVBAですが下のVBAのような感じで

例えばセルＡ1にFALSEという文字が入っていたら印刷不可で印刷するかしないかを選択。もし、セルＡ1に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

回答No.1

hana-hana3

下記でいかがでしょうか？

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

お礼

ホンマありがとうございました。