关于加载宏的问题！！！！

苦学代码的哈里

大家好啊，
最近自学，学到加载宏这个问题，我用的是MacBook。我的代码是这个

1. Sub 另存为()
   
2.    
   
3. ActiveWorkbook.SaveAs FileName:= _
   
4.     "/Users/harryy/Desktop/excelVBA/" & Sheet1.Range("z230") & ".xlsx" '关于这个文档名，我想着是设置为文档的自带名称。。但不会。
   
5. 'ActiveWorkbook.Close
   
6. 
   
7. End Sub
   
8. 
   

复制代码

我的想法是将设置一个加载宏，然后每一次用一个excel课件直接另存到excelVBA这个文档， 但是我把它转为xla也好还是xlam也好，每当下一次打开新的文档，加载宏那里就没了这个宏了，但是vb那里还是有没有。。求求大神帮帮忙

zpy2

所有打开得工作薄吧，当前的不会有加载项的宏。
而且xlsx 内部应该不能有宏