在复制工作簿后，Excel菜单被禁用

更新 ：问题似乎与加载项的用户窗体有关。 我的解决方法是使用.SaveAs，closures复制的工作簿，卸载表单，然后重新打开复制的工作簿。 任何想我做错了什么？

我有一个VBA插件，有一个简单的例程，打开一个工作簿，使用.SaveAs来创build一个副本，然后结束。

复制的工作簿保持打开状态，看起来没问题，但是所有的Excel菜单都是禁用的。 如果我切换到另一个工作簿并返回，菜单似乎被重置/启用。

有关如何解决此问题的任何想法？

这是我的菜单代码：

 Public Function fxCreateMenu() As Integer Dim cbControl As CommandBarControl, bControlExists As Boolean On Error Resume Next With Application.CommandBars("Worksheet Menu Bar") .Visible = True '\Check if Menu is already loaded For Each cbControl In .Controls If cbControl.Caption = gsMenuName Then bControlExists = True Exit For End If 'Debug.Print cbControl.Caption Next cbControl '\Check if Menu is NOT already loaded... If Not bControlExists Then With .Controls With .Add(msoControlPopup) .Caption = gsMenuName With .Controls With .Add(msoControlButton) .Caption = "&GIA" .OnAction = "AE_ShowGIA" End With End With End With End With End If End With End Function 

这是我的代码复制工作簿

 Public Function fxCreateTEMPLATE() As Integer On Error GoTo Err_CreateTEMPLATE Dim fileSaveName As Variant Dim wbTemp As Workbook Dim strPW As String '\copy system template '\open template Workbooks.Open ThisWorkbook.Path & "\GIATemplate.xlsm", Password:=gstrPW, ReadOnly:=True '"\GerrityRRTmp.xlsm", Password:=strPW Set wbTemp = ActiveWorkbook '\prompt user to save template fileSaveName = Application.GetSaveAsFilename(InitialFileName:="My GIA", FileFilter:="Excel XLSM File (*.XLSM), *.XLSM", FilterIndex:="52", Title:="Save As") If fileSaveName <> False Then MsgBox "Save as " & fileSaveName wbTemp.SaveAs Filename:=fileSaveName, Password:="" fxCreateTEMPLATE = -1 Else '\Save As Cancelled fxCreateTEMPLATE = 0 wbTemp.Close GoTo Exit_CreateTEMPLATE End If Exit_CreateTEMPLATE: Set wbTemp = Nothing DoEvents fxCreateTEMPLATE = -1 Exit Function Err_CreateTEMPLATE: Select Case Err Case 0 Resume Next Case Else MsgBox "Error # " & Err.Number & " - " & Err.Description, vbCritical, "Error copying template." Resume Next fxCreateTEMPLATE = 0 GoTo Exit_CreateTEMPLATE End Select End Function