我有一个excel文件在一个浮子,在另一个文件夹,即在桌面上。我在用
dimbook.Close SaveChanges:=True
with dimbook是我的当前工作簿,以便关闭和保存工作簿,并且工作正常,但我希望它保存到与使用宏的工作簿相同的文件夹中,而实际上它保存到桌面上。如何指定保存位置?谢谢
我找不到任何只禁用SaveAs功能而不禁用Save的代码。
列出的代码在禁用保存和另存为方面非常有效,但我希望用户能够保存数据,但没有机会另存为,因此他们无法创建工作簿的版本。(在这种情况下,在文件管理器中复制文件不是问题-问题只是另存为。
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim xName As String
xName = "CancelBeforeSave"
If Not Evaluate("=ISREF('" &