Office——EXCEL 打开自动修改 关闭自动保存

==================================声明==================================

本文版权归作者所有

未经作者授权 请勿转载 保留法律追究的权利

本文原创，已获得转载授权的，必须在正文中显要地注明作者和出处，并保证文章（包括本声明）的完整性。

被授权人不可再次授权第三方。

未经作者授权请勿修改（包括本声明），保留法律追究的权利。

未经作者授权请勿用于学术性引用。

未经作者授权请勿用于商业出版、商业印刷、商业引用以及其他商业用途。　　　　　　　　　　　　　　　　    <--------总有一天我要自己做一个模板干掉这只土豆

本文不定期修正完善，为保证内容正确，建议移步原文处阅读。

本文链接：http://www.cnblogs.com/wlsandwho/p/4585801.html

=======================================================================

下面的代码在ThisWorkbook中实现了

如果允许宏运行

打开时自动向A1单元格填充当前时间 关闭时自动保存不弹出任何提示对话框

如果禁止宏运行

像往常一样对当前Excel文件无影响

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Application.DisplayAlerts = False
        ThisWorkbook.Save
    Application.DisplayAlerts = True
End Sub

Private Sub Workbook_Open()
    Range("A1").Select
    ActiveCell.FormulaR1C1 = "=NOW()"
End Sub

如此一来打印时刚好是打印时间。

=======================================================================

 这需要允许Excel运行宏