excel 宏保存，我设置了一些宏的功能，为何保存后，再次打开宏的功能就没有了，我保存的后缀名xlsm

Sub b()

If Dir(Range("A1") + ".xls") = "" Then '先用DIR函数检查是否文件已存在
ActiveWorkbook.SaveAs Range("A1") + ".xls" '若不存在就另存为,注意,这是SaveAs是另存,你问题中的是另存一个考贝
Else '如已存在,打开另存对话框
Application.FileDialog(msoFileDialogSaveAs).InitialView = msoFileDialogViewDetails
Application.FileDialog(msoFileDialogSaveAs).InitialFileName = "aaa.xls"
Application.FileDialog(msoFileDialogSaveAs).Show

End If

End Sub
另外,团IDC网上有许多产品团购,便宜有口碑

这个图标是07版的启用宏的文件，正常的；而且你的代码我这也可以正常使用的；看看会不会有其他宏语句和这个语句冲突，或者你当前的页没有调用这个语句。。。

宏的功能没有了是什么意思？你打开宏面板看了吗？追问

就是我设置了当a1输入数据时候，b1自动输入时间，vb公式如下：Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column <= 24 And Target.Column Mod 2 = 1 Then
Sheet1.Cells(Target.Row, Target.Column + 1) = Now
End If
End Sub

但是当我保存工作簿，另存为【启用宏的工作簿】后，再次打开该文件，那个vb引用的公式，失效了。

追答

要这个代码放在你的VBA窗口中相应的那个工作表（如 Sheet1)里，而不是放在“模块”里。

本回答被提问者采纳