Question

EXCEL中用VB实现，禁止打印！！！！！！

那位高手能帮小弟编个VB,能实现当某个单元格为空是禁止打印，或是能到达类似目的的就行了。特别要说明下，就是“清除内容”这种方法为空的也要禁止。先谢谢了！

Answer 1

'代码放在thiswork下：
Private Sub Workbook_BeforePrint(Cancel As Boolean)
If Cells(1, 1) = "" Then
MsgBox "Print is prohibited"
Cancel = True
End If
End Sub
'当单元格A1为空时则禁止打印

追问

你好！代码很好用，非常感谢！ 我要设置B7单元格怎么改代码啊！

追答

Private Sub Workbook_BeforePrint(Cancel As Boolean)
If Cells(7, 2) = "" Then
MsgBox "Print is prohibited"
Cancel = True
End If
End Sub

追问

完全实现了我所需要的，再次谢谢。我想再问个问题，当别人使用空格代替空字符时，由于空格也是字符，所以能欺骗打印。我现在是用 数据有效性 把空格禁止，问下能不能用加入代码的方式 来实现 禁止使用空格呢？

追答

Private Sub Workbook_BeforePrint(Cancel As Boolean)
Dim i As Integer, n As Integer
n = 0
If Len(Cells(7, 2)) 0 Then
For i = 1 To Len(Cells(7, 2)) Step 1
If Mid(Cells(7, 2), i, 1) = " " Then
n = n + 1
End If
Next i
End If

If n = Len(Cells(7, 2)) Then Cells(7, 2) = ""

If Cells(7, 2) = "" Then
MsgBox "Print is prohibited"
Cancel = True
End If
End Sub