excel - 为什么我的 Excel VBA 工作表模块代码在过程中被其他代码替换？

Question

我正在做一个项目，我正在从具有相同设置的其他文件中导入工作表。我在工作表模块中编写了一些代码，预计将随导入一起提供。处理放置在共享驱动器中的文件时，我遇到了错误。工作表代码将自动替换为以下内容，这导致我的文件崩溃。

    MultiUse = -1 'True
    End

知道为什么会发生这种情况以及如何解决吗？

另外，这是我的工作表模块代码。

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

Dim BackDoor As Boolean

BackDoor = Worksheets("Info").Cells(8, 5).Value

If BackDoor = False Then
    
    If ActiveCell.Locked Then
        Cancel = True
    End If
    
End If

End Sub

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)

Dim BackDoor As Boolean

BackDoor = Worksheets("Info").Cells(8, 5).Value

If BackDoor = False Then
    Cancel = True
End If

End Sub

这是我用于导入的代码。impSHT 是我为其他工作簿复制的工作表。

   If numSheets = 0 Then
            impSHT.Copy After:=SHT
   Else
       Set LastSHT = ThisWorkbook.Worksheets(SHT.Cells(RefRow + numSheets, RefCol).Text)
       impSHT.Copy After:=LastSHT
   End If

标签： excelvbavba7