Tag: 之前保存

Excel VBA自动版本控制创build神秘的节省循环 – 来源？

以下子例程用于Excel工作簿中的版本控制工作表，以在创build新时间戳的.xmls文件之前捕获用户名，保存时间和更改注释，以保留过去的文档迭代。 结果是成功的，但是它创build了一个神秘的保存循环，它不断地要求用户input，而不是保存或退出。 如果 有什么想法吗？ 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 Application.ScreenUpdating = False LongName = ThisWorkbook.FullName NewFile = (Worksheets("Estimate Sheet").Range("B2") & Format(Now(), "yyyymmddhhmmss") & ".xlsm") 'Change Confirmation Dialogue If MsgBox("Were changes made to this document?", vbYesNo, […]

保存之前不能使用另存为

我已经制作了一个保护表单并将表单更改为表单“A”的macros，然后保存该文件，然后返回到我已经开始的表单。 不幸的是，当我的macros在工作簿中时另存为选项不起作用。 每当我点击另存为，想search一个地方保存我的文件，macros开始运行，并禁用我试图采取的行动。 这是我写的代码： Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) Cancel = True Application.EnableCancelKey = XlEnableCancelKey.xlDisabled Application.ScreenUpdating = False Application.EnableEvents = False Dim aktywny As Worksheet Set aktywny = ActiveSheet For Each Sh In ThisWorkbook.Sheets If InStr(Sh.Name, ".") <> 0 Then If Sh.ProtectContents = False Then Sh.Protect Password:="XXX", DrawingObjects:=True, Contents:=True, Scenarios:=True _ […]