VBA过程代码162：使用“另存为”标准内置对话框备份文件的方法
Sub mynz ()
Dim NowWorkbook As Workbook
Dim MyFileName As String
MyFileName = Application.GetSaveAsFilename _
(InitialFileName:=".xlsm", _
fileFilter:="excel工作簿(*.xlsm),*.xlsm", _
Title:="数据备份")
If MyFileName <> "False" Then
ActiveWorkbook.SaveAs FileName:=MyFileName, _
FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
End If
End Sub
代码的解析说明：mynz过程过程使用GetSaveAsFilename方法显示标准的内置“另存为”对话框，获取备份文件的文件名和保存路径，新建工作簿保存备份数据。VBA过程代码163：利用VBA代码，定制一个属于自己的状态栏
Private KG As Boolean
Sub mynz ()
KG = True
Application.StatusBar = "现在时刻: " & Time
Application.OnTime Now + TimeValue("00:00:01"), "mynz"
End Sub
代码的解析说明：mynz过程过程将利用代码完成一个我们自己专属状态栏的工作，在这个状态栏上显示时间。这个时间是time函数提供的，每个一秒钟再次刷新时间。
VBA过程代码164：利用VBA代码，解除一个属于自己的状态栏
Sub mynz ()
If KG Then
Application.OnTime Now + TimeValue("00:00:01"), "mynz", , False
End If
Application.StatusBar = False
KG = False
End Sub
代码的解析说明：mynz过程过程将解除上述过程中建立的状态栏。
VBA实现自己小型办公自动化的有效手段，我根据自己20多年的VBA实际利用经验，现推出了四部VBA教程，这些是我多年编程经验的记录，也是我“积木编程”思想的体现。每一讲都是较大块的“积木”，可以独立的完成某些或者某类的过程，有需要的朋友可以联络（WeChat:NZ9668）分享。利用这些可以提高自己的编程效率。其一：“VBA代码解决方案”PDF教程，是VBA中各个知识点的讲解，覆盖了绝大多数的知识点，是初学及中级以下人员必备；其二“VBA数据库解决方案”PDF教程，数据库是数据处理的利器，对于中级人员应该掌握这个内容了。其三“VBA数组与字典解决方案”PDF教程，讲解VBA的精华----字典，是我们打开思路，提高代码水平的必备。其四“VBA代码解决方案”视频教程。目前正在录制，“每天20分钟，半年精进VBA”，越早参与，回馈越多。现在录制到第二册的92讲。