打印过的文档自动删除

'打印过的文档自动删除

在Thisworkbook中写如下代码：

View Code

 1 Public m As Integer
 2 
 3 Private Sub Workbook_BeforeClose(Cancel As Boolean)
 4     On Error Resume Next
 5     If m = 1 Then
 6         Application.DisplayAlerts = False
 7         ActiveWorkbook.ChangeFileAccess xlReadOnly
 8         Kill ActiveWorkbook.FullName
 9         ThisWorkbook.Close False
10         Application.DisplayAlerts = True
11     End If
12 End Sub
13 
14 Private Sub Workbook_BeforePrint(Cancel As Boolean)
15     m = 1
16 End Sub
17 
18 Private Sub Workbook_Open()
19     m = 0
20 End Sub