让Excel电子表格拒绝打印

YMUUYPS

原帖由 zjdh 于 2010-8-3 08:26 发表
那就作点修改:
Private Sub Workbook_BeforePrint(Cancel As Boolean)
    A = InputBox("请输入密码:")
    If A  "123" Then
    Cancel = True
    MsgBox "节约用纸 拒绝打印", vbInformation
    End If
...

是不是每个拒绝打印的工作表都要加上这段代码才可以，能不能设置下让EXCEL所有东西打印前都要输入密码？

zjdh

若要想所有EXCEL文件打印前都要输入密码，可写一个加载宏，
宏的功能是屏蔽所有具有打印命令的打印菜单和按钮，,同时建立
一个命令或按钮，将它考入（对于Office2003）
C:\Program Files\Microsoft Office\OFFICE11\FecmenStart中
打开Excel时就会自动加载宏，实现以上功能，建立新按钮或菜单，
只有它们才能执行打印，而且必须输入密码。

zjdh

我已将宏放入“打印”页，你试试可以“打印浏览”该页吗？

zjdh

你的文件中已经有了Private Sub Workbook_BeforePrint事件
再加入以上事件当然会出现二义性的错误

zjdh

你可以
将代码
If  InputBox("请输入密码:")<> "123"  Then
     Cancel = True
     MsgBox "节约用纸 拒绝打印", vbInformation
     Exit  Sub
End If
放入Private Sub Workbook_BeforePrint事件的前段

或用
http://club.excelhome.net/redire ... o=lastpost#lastpost
22楼的办法

zjdh

你连复制都不会??!!
If  InputBox("请输入密码:")<> "123"  Then
     Cancel = True
     MsgBox "节约用纸 拒绝打印", vbInformation
     Exit  Sub
End If

为何要把"<>"漏掉??当然会编译错误!!

zjdh

帮你修改了

cnppp

预览有必要禁止吗？

zjdh

1. total宏是统计当月打印次数和当月最后件号（序号）的，
  是特定在“查询”页运行的，由“统计”按钮触动运行。
2. 按你的修改如下，运行正常。
Private Sub Workbook_BeforePrint(Cancel As Boolean)
    ActiveSheet.Unprotect ("123")
    With Sheets("存储")
        bh = Year(Date) & Format(Month(Date), "00")    '编号前段
        If Left([f8], 6) = bh Then      '如是同月
            [f8] = bh & Format(Mid([f8], 7) + 1, "00000")    '编号加1
        Else               
            [f8] = bh & "00001"  '重起编号
        End If
        Application.Calculation = xlAutomatic
        [e37] = Val([e37]) + 1          '件数加1
        Application.Calculation = xlManual
        h = .[k65536].End(3).Row + 1    '存储位置
        If .[a1] < " " Then h = 1       '空库处理
        .Cells(h, 1) = [e37]            '存序号

        For r = 15 To 39    '存随机数据
            ar = Range("b" & r & ":g" & r)
            .Cells(h, r * 6 - 73).Resize(1, 6) = ar
        Next r
    End With
    ActiveSheet.Protect ("123")
End Sub
3. 真不明白你除了记录防伪数据外，还要记录36行、38行那些东西干嘛？

zjdh

1. 我当然知道将total()按以上修改就不会将其他页内容删除，可那没有必要!
2. 当你把For r = 15 To 39Step 2 改成For r = 1 To  39 时，下面的语句:
    .Cells(h, r * 6 - 73).Resize(1, 6) = ar     会出现负数列,当然出错！！