家有程序员的好处，就是有免费劳动力来编代码，编代码的好处就是提升效率，将工作中繁琐的工作化繁琐为简单，无形之中提升效率。
最近频繁用到将excel中一个文件中N个表单拆分成N个文件并加密发送，老办法就是先另存再加密再保存，几个表单还好，今天涉及十几个表单，百度了好久都没有合适的VBA代码（小白真不会），把需求告诉程序员老公后，几分钟搞定：
1、ALT+F11，调出VBA编辑界面
2、选择“thisworkbook”
3、输入老公编辑好的代码
4、点“小三角”执行，自动运行，完美搞定。
图片如下，代码也分享，这样修改的密码是123456
Sub Split()
Dim sht As Worksheet
Dim MyBook As Workbook
Set MyBook = ActiveWorkbook
For Each sht In MyBook.Sheets
sht.Copy
ActiveWorkbook.SaveAs Filename:=MyBook.Path & "" & sht.Name, FileFormat:=xlOpenXMLWorkbook, Password:="123456"
ActiveWorkbook.Close
Next
MsgBox "文件已经被分拆完毕!"
End Sub
