工作簿
(102) ThisWorkbook.BuiltinDocumentProperties(“Last Save Time”)
     或Application.Caller.Parent.Parent.BuiltinDocumentProperties(“Last Save Time”) ‘返回上次保存工作簿的日期和时间
(103) ThisWorkbook.BuiltinDocumentProperties("Last Print Date")
     或Application.Caller.Parent.Parent.BuiltinDocumentProperties(“Last Print Date”) ‘返回上次打印或预览工作簿的日期和时间
(104) Workbooks.Close ‘关闭所有打开的工作簿
(105) ActiveWorkbook.LinkSources(xlExcelLinks)(1) ‘返回当前工作簿中的第一条链接
(106) ActiveWorkbook.CodeName
     ThisWorkbook.CodeName  ‘返回工作簿代码的名称
(107) ActiveWorkbook.FileFormat
     ThisWorkbook.FileFormat  ‘返回当前工作簿文件格式代码
(108) ThisWorkbook.Path
     ActiveWorkbook.Path ‘返回当前工作簿的路径(注:若工作簿未保存,则为空)
(109) ThisWorkbook.ReadOnly
      ActiveWorkbook.ReadOnly ‘返回当前工作簿的读/写值(为False)
(110) ThisWorkbook.Saved
     ActiveWorkbook.Saved ‘返回工作簿的存储值(若已保存则为False)
(111) Application.Visible = False ‘隐藏工作簿
      Application.Visible = True ‘显示工作簿
   注:可与用户窗体配合使用,即在打开工作簿时将工作簿隐藏,只显示用户窗体.可设置控制按钮控制工作簿可见
*******************************************************