[已解决]那为老师帮我写段代码，指定的单元格必须填如数据，否就不能打印及保存

zjdh

禁用宏只显示提示页.rar (10.36 KB, 下载次数: 21)

2011-12-4 20:50 上传

点击文件名下载附件

静s听w风q雨

老师，2 个代码放在一起软件提示这样的

zjdh

你要发附件才能分析！
估计你的工作簿中没有名称为“SHEET1"的工作表。

静s听w风q雨

多谢老师了，就是老师说的原因

hytsky

zjdh 发表于 2011-11-21 19:56
把2者合并起来就可以了：

请问你在那个取消宏就关闭工作簿里面的这些代码哪些是指关闭宏的?请指教一下,谢谢
Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Sheets("Sheet1").Activate
    Sheets("宏表1").Range("b1") = 1
    If Me.Saved = False Then Me.Save
End Sub
Private Sub Workbook_Open()
    Sheets("宏表1").Range("b1") = 2
End Sub
Private Sub Workbook_BeforePrint(Cancel As Boolean)
    If Range("a1") <> 1 Then
        Cancel = True
        MsgBox "对不起，你不能打印！"
    End If
End Sub
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
    If Range("a1") <> 1 Then
        Cancel = True
        MsgBox "对不起，你不能保存！"
    End If
End Sub
在那份表中我没找到宏表1 也没显示出来```

zjdh

hytsky 发表于 2011-12-5 20:21
请问你在那个取消宏就关闭工作簿里面的这些代码哪些是指关闭宏的?请指教一下,谢谢
Private Sub Workbook ...

宏表1隐藏了   

hytsky

zjdh 发表于 2011-12-5 20:42
宏表1隐藏了

{:201:}
老师你``````

zjdh

Sub TEST()  ‘隐藏或显示宏表
  Sheets("宏表1").Visible = IIf(Sheets("宏表1").Visible = -1, 2, -1)
End Sub