秘密保存文件的宏--把秘密保存的文件打不开

name004

出于对原始数据的监控需要，做了一个秘密保存文件的宏，只要打开任何excel工作簿，就会有一份数据保存，关闭工作簿时，再保存一份。问题是：秘密保存的文件总是打不开，看不到数据。苦闷！！！

宏代码：

Private Sub Workbook_Open()
   ThisWorkbook.SaveCopyAs ThisWorkbook.Path & "\" & Format(Now, "yy-m-d h m") & ".xls"
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
   ThisWorkbook.SaveCopyAs ThisWorkbook.Path & "\" & Format(Now, "yy-m-d h m") & ".xls"
End Sub
如果不做成加载宏，在目标表格运用此代码，则不存在此问题。

9kHnByfC.rar (5.6 KB, 下载次数: 0)

2007-12-3 19:18 上传

点击文件名下载附件
秘密保存文件的宏--把秘密保存的文件打不开

BobPan

ThisWorkbook.SaveCopyAs ThisWorkbook.Path & "\" & Format(Now, "yy-m-d h m") & ".xls"

ThisWorkbook改为ActiveWorkbook

做成加载宏,ThisWorkbook就是这个加载宏，备份时也保存为加载宏

不是打不开，是打开了隐藏了（加载宏是隐藏的），在VBE窗口下看看吧

BobPan

QUOTE:

以下是引用name004在2007-12-3 19:18:30的发言：

出于对原始数据的监控需要，做了一个秘密保存文件的宏，只要打开任何excel工作簿，就会有一份数据保存，关闭工作簿时，再保存一份。问题是：秘密保存的文件总是打不开，看不到数据。苦闷！！！

宏代码：

Private Sub Workbook_Open()
   ThisWorkbook.SaveCopyAs ThisWorkbook.Path & "\" & Format(Now, "yy-m-d h m") & ".xls"
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
   ThisWorkbook.SaveCopyAs ThisWorkbook.Path & "\" & Format(Now, "yy-m-d h m") & ".xls"
End Sub
如果不做成加载宏，在目标表格运用此代码，则不存在此问题。

另外，你的代码根本不可能监控其它工作表，只能是监控自己本身，要想监控其它工作薄，需要使用类模块，使用Application对象，论坛有很多，SOSO

name004

谢谢，又要开始苦恼的钻研，我很苯的