Private Sub Workbook_BeforePrint(Cancel As Boolean)
confirm = MsgBox("自动更新单据编号?", vbYesNoCancel)
If confirm = 2 Then Cancel = True: Exit Sub
If confirm = 6 Then
With Sheets("Sheet1").Range("O20")
.Value = Format(Date, "Ayyyymmdd") & Format(Val(Right(.Value, 2)) + 1, "00")
End With
End If
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
ChDir "D:\files"
ActiveWorkbook.SaveAs Filename:="E:\收据\" & [j21] & ".xls", FileFormat:=xlNormal
ActiveWindow.Close
End Sub
关闭文档时出现提示“隐私问题警告:此文档中包含宏、activex 控件、xml扩展包信息或web组件。它们中可能包含个人信息,这些信息无法通过设置“工具”菜单下“选项”对话框“安全性”选项卡中的“保存时从文件属性中删除个人信息”来删除。”