分类：电脑/网络-软件
问题：这个VBA程序为什么执行不了Sub按钮1_单击()DimwbAs 
Sub 按钮1_单击()Dim  As Workbook, m As Integer, n As Integer, myfilename As String, wb1 As WorksheetsDim j As Integer, c As String, d As String, y As Integerm = Workbooks.Countn = ActiveWorkbook.FileFormatMsgBox "总共有" & m & "个文件"For i = 1 To mSet wb = Workbooks(i)mSub 按钮1_单击()Dim  As Workbook, m As Integer, n As Integer, myfilename As String, wb1 As WorksheetsDim j As Integer, c As String, d As String, y As Integerm = Workbooks.Countn = ActiveWorkbook.FileFormatMsgBox "总共有" & m & "个文件"For i = 1 To mSet wb = Workbooks(i)myfilename = wb.NameFor j = 1 To mc = Cells(j, 1)d = Cells(j, 2)If wb.Name Like "*c*" Thenwb.SaveAs Filename:=wb.Path & "\d"Elsey = 1End IfNext jSet wb = NothingNext iMsgBox "完毕!总共重命名了" & m & "个文件"End Sub
回答：怎么不可以执行啊？
可以调用啊

宏的安全性有没有设置成低啊？