为什么我的Workbook_BeforeSave阻止Workbook_AfterSave运行
Workbook_BeforeSave和Workbook_AfterSave是Excel VBA中的两个事件，分别在保存工作簿之前和之后触发。Workbook_BeforeSave事件在保存工作簿之前执行一些操作，而Workbook_AfterSave事件在保存工作簿之后执行一些操作。
如果你发现Workbook_BeforeSave事件阻止了Workbook_AfterSave事件的运行，可能有以下几个原因：
- 代码逻辑错误：在Workbook_BeforeSave事件中的代码逻辑可能存在错误，导致阻止了Workbook_AfterSave事件的运行。你可以仔细检查Workbook_BeforeSave事件中的代码，确保没有错误或者不必要的阻止操作。
- 条件判断问题：Workbook_BeforeSave事件中的条件判断可能导致了Workbook_AfterSave事件的阻止。你可以检查条件判断的逻辑，确保条件判断的结果符合预期。
- 事件处理顺序问题：Workbook_BeforeSave事件和Workbook_AfterSave事件的处理顺序可能导致了阻止。你可以尝试调整事件的处理顺序，确保Workbook_AfterSave事件在Workbook_BeforeSave事件之后执行。
总结起来，如果Workbook_BeforeSave事件阻止了Workbook_AfterSave事件的运行，你需要仔细检查代码逻辑、条件判断和事件处理顺序，确保没有错误或者不必要的阻止操作。
相关·内容
2回答
我正在尝试维护我的工作簿的安全性，使用非常隐藏来强制用户启用宏。
这很有效，除了用户抱怨缺少一个对话框来询问他们是否希望在关闭时保存。
我已经以msgbox的形式添加了save/notsave功能，但是这打开了一个违反安全性的特定案例：
也就是说，如果用户打开文件，启用宏，通过闪屏，使用保存功能保存工作簿，然后关闭而不保存，则下一次打开工作簿时不会强制用户启用宏。
我试图通过以下代码设置为在保存时运行来解决这个问题(我在保存之前没有运气，因为它在代码运行后再次保存，这破坏了代码的要点)，但这段代码似乎生成了一个由保存触发的无限循环。我尝试在开始时进行检查，以检查状态是否已保存，但由于宏在保存后
浏览 20提问于2018-11-28得票数 1
我遇到过类似的问题，AfterSave不能为人运行，但他们的答案没有解决我的情况，似乎我的AfterSave不能运行的原因是我的BeforeSave代码。这两组代码彼此独立地正常工作，但我不能让它们在同一个工作簿中运行。 该代码目前是用"ThisWorkbook“编写的，在保存之前将文件的保存名称设置为一个单元格值，然后在保存后通过将文本文件中的数字加1来更新文本文件。 从我的研究来看，这个问题似乎与Cancel或Application.EnableEvents有关。 Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean,
浏览 0提问于2019-01-11得票数 0
回答已采纳
我想在Workbook_BeforeSave事件中调用这个Sub：
Sub test()
If ActiveSheet.Range("A4") = "" Then
MsgBox ("Please fill in cell A4!")
Exit Sub
Else
End If
End Sub
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
test
End Sub
当我单击保存时，即使单元格A4为空，文件也会被保存。
浏览 3提问于2015-01-06得票数 0
希望每个人都做得很好。 我在这个工作簿模块中有Private Sub Workbook_AfterSave(ByVal Success As Boolean)，我想从我的模块代码Sub Mail_it()中调用它。 所以简单地说，如果我从Sub Mail_it()调用，那么Private Sub Workbook_AfterSave(ByVal Success As Boolean)应该运行/执行。 请提前帮助并感谢您。
浏览 15提问于2020-09-09得票数 0
回答已采纳
2回答
我在工作簿打开选项中有一个宏，用于检查用户是否有权访问该文件。但是，如果用户在信任中心中的宏设置被禁用并显示通知(这是默认设置)，则该用户可以访问该文件。无论宏的设置如何，我需要做什么才能强制使代码执行？关闭后，我希望将设置重置为默认值。
除了为每个用户启用宏设置之外，我找不到任何好的解决方案。
浏览 0提问于2019-04-10得票数 0
我使用power查询将几个表组合在一起，并将一些信息输出到另一个表中，所有这些信息都在同一个工作簿中。我希望确保输出表在保存文件时始终是最新的，并且不希望使用“刷新所有”按钮依赖ppl。理想情况下，当保存文件时，我会让查询更新。对于每个查询，我在查询属性中禁用了“启用后台刷新”选项。然后，我将以下vba代码添加到ThisWorkbook中：
Option Explicit
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
ThisWorkbook.RefreshAll
End Su
浏览 3提问于2022-05-24得票数 1
我经常会遇到这样的问题:保存前计算设置中的勾号消失了。(我不知道确切的术语，因为我的办公版本是德语)。
这就是为什么我尝试使用VBA来解决这个问题。我在Excel文件中使用了以下代码：
Option Explicit
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, _
Cancel As Boolean)
If Application.CalculateBeforeSave = False Then
If MsgBox("Caution! Should >calculatebeforesav
浏览 0提问于2016-12-15得票数 1
ActiveWorkbook.SaveCopyAs Filename：给予
运行时错误1004
但是按下Debug>Run>继续代码就像预期的那样运行。
我有一个宏启用Excel2016电子表格。当更新和保存到PC时，我也希望保存一个副本到我的NAS。我为另外两个电子表格编写了代码(见下文)，并使用了文件名以外的相同代码。其他两个电子表格按预期方式保存(即NAS和PC，没有运行时错误)代码如下：
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
'Saves t
浏览 1提问于2019-02-11得票数 2
我要将excel工作簿的名称导入到特定的单元格集。函数Display_File_Name可以做到这一点。
当我执行保存(Ctrl+S)时，以下代码可以工作，但当我执行另存为时，它不起作用。我在单元格中看不到文件名的更新。即使用户选择了另存为，该函数如何运行？
我目前的解决方法是使用Workbook_BeforeClose或Workbook_AfterSave，但这将提示执行保存操作，这是我想要避免的。
你能帮我弄一下这个吗？
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Ca
浏览 0提问于2021-09-04得票数 1
我有一个Excel工作簿，其中包含一些直接放在工作表上的ComboBox控件。这些是表单工具栏中的标准组合框。
当用户使用“另存为”以不同的名称保存工作簿时，这将触发所有组合框上的更改事件，包括非活动工作表上的组合框。这似乎不合理，因为选择实际上并没有改变。由于事件处理程序中的代码，这会导致各种不受欢迎的行为。该事件不会在简单的“保存”时触发。
这是中的一个已知问题。有一些是由于使用命名范围作为组合框的ListFillRange而导致的，我已经这样做了，尽管它不是易失性名称。我正在寻找一种方法来防止这种情况发生，并对代码和电子表格进行最小程度的更改。有谁有经过验证的解决方案吗？
浏览 9提问于2010-08-26得票数 7
我有将保存文档(Excel 365)的业务逻辑结合在一起的代码，以确保正确的命名约定、文件位置等作为子Workbook_BeforeSave
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Cancel = True ''Cancels the Save from the button push or Ctrl+S
Application.EnableEvents = False
'' code code code
Application.EnableE
浏览 2提问于2019-02-20得票数 1
回答已采纳
Excel 2016 (64位)显示调用Workbook_BeforeSave事件之前的SaveAs对话框。
我们有一个excel模板(.xltm)和一个Workbook_BeforeSave过程。如果用户使用"Save“按钮或CTRL+S，它会自动保存文件(具有指定的路径和文件名)。
这个工作在以前的版本(2000,2003,2010)上有32位。(我无法使用Excel 2013进行测试。)
但Excel2016 (64位)首先显示了"SaveAs“对话框！
然而，我只需单击其中的一个按钮，然后调用Workbook_BeforeSave宏。
Private Sub W
浏览 1提问于2019-01-24得票数 0
回答已采纳
我目前正在编写一组代码，根据当前用户的用户名锁定和解锁一个工作表，没什么特别的。这段代码工作得很好，除了在保存之后的部分。间歇性地，当保存在公司服务器上时，只保存在我的电脑上(尽管它只在3台电脑上进行了轻微的测试)，任何试图修改工作表的东西-甚至是application.wait -都会收到50290的错误。最后，我追踪到工作簿还没有准备好(保存后application.ready返回false，但如果我手动运行代码或在打开工作簿事件期间返回true )。似乎标准过程是执行while循环，直到application.ready = true，但这会锁定计算机而不会恢复。我尝试过放慢循环速度的方
浏览 4提问于2018-08-15得票数 2
我有一个excel工作簿，它使用Power Query来填充表。该查询从多个外部工作簿以及同一工作簿中的工作表中提取信息。
同一工作簿中的工作表还存储对要操作的列所做的更改。同一工作簿中的工作表是循环的一部分。它存储拉入主表的信息，但也存储所做的更改。
若要正确执行此操作，需要在运行存储查询之前保存工作簿。如果在运行查询之前未进行保存，则查询将不包含更改。
单击保存按钮即可轻松完成此操作。下面的代码运行良好：
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Application
浏览 15提问于2020-02-14得票数 0
2回答
每当文件发生更改时，我都想在单元格P76中添加和更改文件版本。
我尝试过这个函数，但它显示的是Excel版本，而且没有改变。
Function ExcelVersion()
ExcelVersion = Application.Version
End Function
细胞内P76 (Sheet2)
=ExcelVersion()
我想要它显示像VERSION 001和每次(sheet2)更新的变化，它改变到下一个，例如VERSION 001到VERSION 002等等，在单元格P77 (Sheet2)日期和更新时间。
我还试图添加以下内容
Private Sub submit_Cli
浏览 3提问于2016-02-04得票数 0
回答已采纳
我需要在Excel中禁用“保存”选项，但我仍然需要“另存为”选项才能工作.因此，我知道如何通过这个VBA禁用这两个选项：
Private Sub Workbook_BeforeSave(ByVal SaveUI As Boolean, Cancel As Boolean)
MsgBox "You can't save this workbook!"
Cancel = True
End Sub
但是，如何才能禁用保存，但拯救我们，使我们仍在工作。谢谢你对我的照顾
浏览 2提问于2016-01-29得票数 1
回答已采纳
1回答
我有一个简单的宏，返回当前文档最后一次保存的日期：
Function LastSavedTimeStamp() As Date
LastSavedTimeStamp = INT(ActiveWorkbook.BuiltinDocumentProperties("Last Save Time"))
End Function
当我手动强制单元格重新计算时，这很好，但是当我保存工作表时，单元格不会重新计算--这就是我想要的。是否有方法确保每次保存文档时运行上述宏，以便自动更新上次保存的日期。
PS。这只有在启用宏时才能工作。这很好。
这就是我想要的
尝试2:受皮肤启
浏览 6提问于2022-04-15得票数 0
我想要检测工作簿是否为OFFLINE COPY，如下图所示。
也许用vba代码？
属性ThisWorkbook.ReadOnly返回False
对于“真正的”只读工作簿，永远不会到达事件Workbook_BeforeSave。当我在这里使用OFFLINE COPY只读模式时，会到达事件Workbook_BeforeSave，但会返回下面的消息：
因此，行为是不同的。我需要用vba来检测它。
谢谢你的帮助。
浏览 0提问于2015-03-25得票数 0
我是宏的新手，我在VBA上使用过Workbook_AfterSave函数。由于某些原因，它一直在循环执行save函数。我不知道怎么摆脱这个。它会永久保存excel文件，最终会崩溃。这就是代码。
Private Sub Workbook_AfterSave(ByVal Success As Boolean)
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs Filename:= _
"F:\Ten Year Load Forecasts 2017-2026.xlsm", _
FileFo
浏览 0提问于2017-09-30得票数 2
我有一个关于保存到Excel的问题。
我得到了一个可以保存文件的VBA脚本代码，但我想知道是否可以只单击“保存”/“另存为”按钮来触发脚本，而不是创建一个新标签并为该标签添加sub。
我可以这样做吗？
浏览 14提问于2019-08-20得票数 2
回答已采纳
1回答
下面的VBA代码将返回单元格中最后保存的时间戳。
只有当我输入公式栏并单击enter时，公式才有效。我希望公式在保存时自动更新。
Function LastSavedTimeStamp() As Date
LastSavedTimeStamp = ActiveWorkbook.BuiltinDocumentProperties("Last Save Time")
End Function
浏览 4提问于2020-02-05得票数 0
回答已采纳
3回答
保存前检查筛选器
、、
我有一个共享的工作簿。当多个用户正在使用它时，它就会出现问题，其中一个用户使用过滤器保存。我试图写一个工作簿代码，以防止保存时，有一个过滤器。
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
If Worksheets("sheet1").AutoFilterMode = True Then
MsgBox "Filters not allowed, remove filters ", vbExclamation, "War
浏览 7提问于2017-05-30得票数 0
回答已采纳
我对一些VBA代码有一个问题，这些代码看起来很基本，但却不起作用。我对VBA太陌生了，所以我错过了一些东西。
代码应该检查一个单元格(XFD3002)，看看它是否等于0，然后它是否会显示一条消息，并停止文件的保存。对于背景，需要检查某些单元格是否已被填充，如果没有，则返回0。
守则是：
Private Sub Check_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim check As Integer
check = Sheets("Data").Range("XFD3002").Val
浏览 3提问于2016-10-12得票数 0
回答已采纳
2回答
当我双击插入图像时，如何触发excel vba函数？现在，函数是由Private Sub Workbook_AfterSave(ByVal Success As Boolean)触发的。
我只能在单击单元格或单击超链接时才能找到示例，但无法找到用于双击图像的示例。
浏览 3提问于2017-11-24得票数 4
回答已采纳
我一直在尝试找到一种方法来为特定的excel电子表格设置默认保存选项，其中打开默认文件位置，在对话框中显示建议的文件名，默认文件类型是启用宏的工作簿(*.xlsm)。
我遵循了以下两个来自研究的解决方案；然而，这两个解决方案似乎都给我带来了一个问题，即三个保存对话框一个接一个地打开。
具体地说，当单击保存按钮时，保存对话框会在正确的位置(“My Documents/exceltest”)和正确的文件名(“AAAA”)中打开。然后，我单击保存按钮，它会提示打开另一个保存对话框，其中包含完全相同的属性。在此对话框上单击“保存”后，工作簿将保存在正确的位置。但是，第三个对话框也会在默认位置“My D
浏览 0提问于2016-03-04得票数 0
我在'ThisWorkbook‘模块中设置了一个宏来运行'BeforeSave’。我还有另外两个宏，我也需要运行'BeforeSave‘。我可以向这个模块添加额外的宏吗？
我已经在“标准”模块部分创建了宏，它们通过选择“运行”按钮来工作。我试图将‘宏/模块名称’添加到我的'BeforeSave‘宏的底部，但它什么也没做，只是给了我错误。
Option Explicit
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Call HideRows
Ca
浏览 9提问于2019-11-10得票数 1
回答已采纳
我在Excel中使用BeforeSave运行vba脚本时遇到问题。
我正在运行这个脚本，但我可以在没有任何问题或Msgbox的情况下保存该文件。
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
a = MsgBox("Do you really want to save the workbook?", vbYesNo)
If a = vbNo Then Cancel = True
End Sub
有什么问题吗？它应该会显示一个Msgbox，我可以在其中取消保存。
浏览 0提问于2017-09-08得票数 0
我正在用excel做项目。
在Excel中有任何类似于Workbook_afterSave的方法吗?如果我更改单元格值并保存我的工作簿，那么将执行单元格值函数。
所以任何人都可以推荐我的方法，比如ThisWorkbook模块中的ThisWorkbook？
提前谢谢。
浏览 4提问于2018-01-08得票数 0
回答已采纳
在我的代码中，我使用了一个Workbook_BeforeSave函数来进行一些文本格式化。
当我点击Save按钮时，它会运行并格式化一些单元格的大小和字体类型。
下面是执行此任务的代码的一部分：
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim c As Range
Dim rng As Range
Set rng = ActiveSheet.UsedRange.Cells
For Each c In rng
If ispcname(c.Value) = True Or
浏览 3提问于2016-12-01得票数 1
回答已采纳
我有一个需要密码才能打开的工作簿。当打开工作簿(使用密码)并更改单元格中的数据时，我希望在保存文档之前根据此单元格值更改BuiltinDocumentProperties。因此，我尝试使用Workbook_BeforeSave事件，但我只能在禁用密码保护(workbook.unprotect)的情况下更改BuiltinDocumentProperties。是否可以在不使用workbook.saveas password:="xxx“方法的情况下设置密码(用于打开工作簿)，因为这将再次循环通过Workbook_BeforeSave。
浏览 6提问于2021-10-01得票数 0
昨天我问了一个类似的问题，我得到了一个答案，但现在我发现的解决方案有一个不同的问题。
我有一些excel代码，并设置为自动保存。并且它被设置为自动保存在计时器上。每当我手动保存项目时，我都希望能够重新设置计时器，但它似乎不起作用。
在保存之前，我使用Workbook_BeforeSave命令来做一些事情(理想情况下是重置计时器)。这样，如果我手动保存工作簿，它将重新启动那个计时器。
我试过这样的方法：
工作簿：
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, _
Cancel As Boolean)
Call St
浏览 1提问于2020-01-16得票数 2
回答已采纳
更新:问题解决了--我的同事在Workbook_BeforeSave()期间更改了一个单元而没有禁用事件，因此触发了Worksheet_Change()__。是的，傻瓜，但至少这是我们的错，不是Excel的错
我注意到，每当我在Excel中点击Ctrl+S时，Worksheet_Change()都会在Workbook_BeforeSave()之前被触发。是否可以使用VBA代码来抑制这种行为，但不需要抑制所有事件(即没有Application.EnableEvents = false)？
不管我在做什么都会发生这种事。我读过一些关于ComboBoxes有类似问题的文章，但是我没有编辑ComboB
浏览 0提问于2012-01-11得票数 17
回答已采纳
下列子例程用于Excel工作簿中的版本控制表，以在创建新的带时间戳的.xmls文件之前捕获用户名、保存时间和更改注释，以保留文档的过去迭代。结果是成功的，但是它创建了一个神秘的保存循环，不断要求用户输入，而不是保存或退出。如果
有什么想法吗？
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim LastRow As Long
Dim ActBook As Workbook
Dim NewFile As String
Dim LongName As String
Applicatio
浏览 7提问于2014-12-10得票数 1
我正在编写一些代码，用来检查D列中页面底部的单元格在允许用户保存文件之前是否包含它们的内容，但出于某些原因，它没有这样做，即使这些单元格是空的，我也可以保存文件，我也不知道为什么。我将这段代码作为一个ThisWorkbook操作放入“BeforeSave”对象中。保存这段代码的主要方式是使用我创建的按钮将文件自动保存到特定位置，但当我手动保存它时，也会发生相同的情况。
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim names As Variant
Dim name As Va
浏览 0提问于2019-07-12得票数 1
回答已采纳
我有一个Sub WorkSheet_Change(ByVal Target As Range)，我想为所有用户自动运行它。问题是这些用户在输入数据时几乎不知道或懒得启用宏。有没有办法强制宏在此工作簿上自动运行？我看过一篇关于名为Workbook_Open ()的事件的文章，但我不知道如何使用它。有什么帮助吗？
浏览 0提问于2014-11-30得票数 0
回答已采纳
我正在使用Application.Ontime事件从一个单元格中提取一个时间字段，并安排一个子例程在那个时候运行。我的Application.Ontime事件在Workbook_BeforeSave事件上运行。因此，如果用户(更改所需的时间+保存工作簿)多次，则会创建多个Application.Ontime事件。理论上，我可以用一个唯一的时间变量来跟踪每一个事件。但是是否有一种检查/解析/取消挂起事件的方法？
Private Sub Workbook_BeforeSave
SendTime = Sheets("Email").Range("B9")
浏览 14提问于2011-01-05得票数 10
1回答
假设我有n张床单。我的第二张纸叫做"Calc"，这是我进行求和/计算的地方。
我想添加所有的A1，A2.A1000，Z1，Z2...Z1000，从表3(表后)到表n。
这些是进口的床单。我不知道这些床单的名字，也不允许我更改它们。
在第3页到第n页之间的任何一个工作表都可以在任何时候移除或添加。
首先，我想尝试=SUM( '‘!A20)，但它会自动将’“更改为第一张和最后一张。
当我删除最后一个工作表时，它会给出错误，而计算失败。我想做间接的，但这将是非常乏味的，因为我不能拖着把表格3中的单元格改为n页。
例如：=SUM(INDIRECT("'"
浏览 1提问于2015-06-25得票数 0
由于某些原因，当我运行下面的代码时，我得到一个错误，说我试图更改的工作表是无保护的。如果我使用Excel保存选项保存，它工作正常，如果我在工作表上运行宏，我得到错误消息说工作表是受保护的。为什么代码不能识别取消保护工作表的部分？
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim sSheetName As String
Dim logSheet As Worksheet
Dim logRow As Range
Set logSheet = Sheets("LogDeta
浏览 26提问于2018-08-01得票数 0
2回答
我有一份文件，很多员工用它来决定价格。
完成后，他们会将文件名更改为他们想要的任何内容。
领导要求我们将员工的文件保存名的第一部分作为文件的原始名称(因此我们知道他们使用的版本)，然后第二部分是用户希望它成为的部分。前文件是一个名为“速率计算器v14”的组织。员工想把这个文件命名为“洛杉矶，”。
然后，该文件应该保存在一个特定的文件夹中，如"Rate Calculator v14洛杉矶，CA Doe.xlsm“。
这应该发生，无论是保存还是保存为，也不管是使用Ctrl+s快捷方式还是使用带状。
当触发最后一行代码时，文件实际上是保存的，但是宏会返回，并再次询问用户他们想要以什么方式保存
浏览 2提问于2019-01-10得票数 1
回答已采纳
1回答
当我保存一个工作簿时，我想重置我所有的过滤器。目前我有：
Sub ResetFilters()
On Error Resume Next
ActiveSheet.ShowAllData
End Sub
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, _
Cancel As Boolean)
Dim ws As Worksheet
For Each ws In ActiveWorkbook.Worksheets
Call Re
浏览 3提问于2017-05-05得票数 1
回答已采纳
1回答
VBA -保存拷贝为隐藏
、、、
每次我保存我的工作簿时，我都需要保存相同的工作簿，但是是隐藏的。 现在我有了这个代码 Private Sub Workbook_AfterSave(ByVal Success As Boolean)
ThisWorkbook.Saved = True
On Error Resume Next
If Not (Left(ThisWorkbook.Name, 2) = "Z_") Then
Application.DisplayAlerts = False
ThisWorkbook.SaveCopyAs ThisWorkbo
浏览 12提问于2019-03-12得票数 0
回答已采纳
我对VBA非常陌生，所以到目前为止我想出的东西都是在网上找到的。我有一个工作簿，它是其他几个workbooks...so的顶点，它有很多到其他几个工作簿的链接。我需要基本上复制没有链接的工作簿数据发送到公司外部。我找到了执行此操作的代码，它工作正常。问题是，我希望每次保存工作簿时都会发生这种情况。我也找到了这方面的代码，但当我试图将两者结合起来时，excel崩溃了。以下是用于创建工作簿副本的代码：
Sub nowe_poprawione()
Dim Output As Workbook
Dim Current As String
Dim FileName As Str
浏览 0提问于2014-07-11得票数 0
我需要用日期自动填充特定的列。如果日期在星期六到星期二之间，我需要用前一个星期五自动填充日期列。如果日期发生在星期三和星期五之间，我需要输入自动填充的下一个星期五的日期。
例如:如果我在10/23星期二运行电子表格，我需要自动填充日期是10/19星期五。如果我在10/24星期三运行电子表格，我需要自动填充日期是10/26星期五。
这是我到目前为止拥有的公式，因此在保存电子表格或单击自定义按钮时，我需要通过宏调用此公式。任何帮助都将不胜感激。
=IF(ISBLANK($A2),"",IF(WEEKDAY(TODAY())<4,(TODAY()+(-1-WEEKDAY(TOD
浏览 2提问于2012-10-25得票数 3
回答已采纳
2回答
If IsWorkbookOpen("CONTRACT\CONTRACTLIST_Cement.xlsx") Then
x = 0
Else
Application.DisplayAlerts = False
ActiveWorkbook.Close savechanges:=True
Application.DisplayAlerts = True
End If
嗨，尽管使用了上面的代码，但另存为提示仍然偶尔出现并影响程序。
浏览 1提问于2013-07-16得票数 5
回答已采纳
我想保持一个变量从表单到工作簿事件，它从表单到模块工作，但不工作从表单到工作簿事件，变量“萨尔瓦多”保持为“空”而不是“真”.
'WorkBook事件‘
公共萨尔瓦多为布尔专用子Workbook_BeforeSave(ByVal SaveAsUI为布尔，取消为布尔) UserForm_Salvar.Show‘调用"Private Botao_Salvar_Click()“如果SaveAsUI = True，则如果SaveAsUI= True，则取消= False = False萨尔瓦多=False As = True End If End If End Sub
'
浏览 2提问于2020-09-20得票数 0
回答已采纳
2回答
我发现这个函数可以删除特殊字符。
Function Remove_Characters(s As String) As String
Static RegEx As Object
If RegEx Is Nothing Then
Set RegEx = CreateObject("VBScript.RegExp")
With RegEx
.Global = True
.Pattern = "\\|/|:|\*|""|\?|<|>\|| "
End
浏览 1提问于2015-06-16得票数 0
回答已采纳
1回答
我找不到任何只禁用SaveAs功能而不禁用Save的代码。
列出的代码在禁用保存和另存为方面非常有效，但我希望用户能够保存数据，但没有机会另存为，因此他们无法创建工作簿的版本。(在这种情况下，在文件管理器中复制文件不是问题-问题只是另存为。
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim xName As String
xName = "CancelBeforeSave"
If Not Evaluate("=ISREF('" &
浏览 33提问于2019-03-29得票数 0
我有一个代码，检查“保存前”事件，用户是否填写强制单元格。当我试图为一个自动命名的给定文件添加额外的行时，代码冻结了。创建文件。下面你可以找到我的代码，大部分代码只是检查单元格，但我不确定错误的原因，所以我添加了所有这些代码，以防我遗漏了什么。
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim message As String
Dim say As Long
say = Application.WorksheetFunction.CountA(Worksheets("A
浏览 0提问于2018-08-31得票数 0
我有一个Excel宏，它可以在关闭文件之前重置哪个工作表是活动的。如果我直接保存，也就是按ctrl-S组合键，activate就能工作。如果我在关闭前尝试保存，激活将不起作用。在下面的代码中，如果我直接按ctrl-S，则运行Workbook_BeforeSave() (Activate方法有效)。如果我尝试关闭文档，则会运行Workbook_BeforeClose()，然后当系统询问“是否要在关闭前保存？”时，我选择“是”。它调用Workbook_Before Save() (激活不起作用)。
当通过Workbook_BeforeClose()调用Workbook_BeforeSave()时，
浏览 0提问于2017-08-29得票数 0
扫码
添加站长 进交流群
领取专属 10元无门槛券
手把手带您无忧上云
相关资讯
热门标签
云服务器
ICP备案
对象存储
腾讯会议
实时音视频活动推荐
腾讯云开发者
