Excel 工作表副本包括工作表按钮的副本

Excel 工作表副本包括工作表按钮的副本,excel,copy,worksheet-function,vba,Excel,Copy,Worksheet Function,Vba,我有一个工作簿,其中有一个工作表,该工作表由用户点击按钮复制,运行下面的代码。我想复制一份工作表作为新实例此部分正在工作,并且还包括复制的工作表上的按钮这是我在更高版本的excel中遇到问题的地方 该代码适用于旧版本的excel,但在2010年及更高版本中,工作表会被复制,但按钮不会被复制 我目前的代码如下 Private Sub NewOrderSheet() Application.ScreenUpdating = False Dim pN As String Dim pNB As Stri

我有一个工作簿,其中有一个工作表,该工作表由用户点击按钮复制,运行下面的代码。我想复制一份工作表作为新实例此部分正在工作,并且还包括复制的工作表上的按钮这是我在更高版本的excel中遇到问题的地方

该代码适用于旧版本的excel,但在2010年及更高版本中,工作表会被复制,但按钮不会被复制

我目前的代码如下

Private Sub NewOrderSheet()
Application.ScreenUpdating = False
Dim pN As String
Dim pNB As String
Dim pNC As String
Dim pND As String
pN = Worksheets("ProjectDetails").Range("B5").Text
pND = ("Order Number: " & pN)
pNB = InputBox(pND)
If Len(pNB) = 0 Then
    MsgBox "An order number must be given to be able to generate a new order.", vbCritical
    Exit Sub
Else
End If
pNC = pN & "-" & pNB
Worksheets("QuoteSheet").Copy After:=Worksheets(Worksheets.Count)
Worksheets(Worksheets.Count).name = pNC
Application.ScreenUpdating = True
End Sub
基本上,我创建了工作表的一个新实例,然后允许用户给工作表一个新名称,在本例中是一个新顺序

工作表包含2个按钮; 按钮1-将工作表复制到新工作簿并删除所有公式 按钮2-格式化用于打印的使用范围

我已经搜索了这些问题并尝试了许多变体,但似乎无法复制按钮


我对VB for excel非常陌生,因此,如果这是一个简单的问题,我提前表示歉意。

我也遇到了同样的问题。我检查了所有与设置有关的安全性,并尝试了一切。然后我发现删除%Temp%文件夹很有帮助。 真正的原因是,您必须搜索MSForms.exd文件并将其删除。 然后一切又恢复正常: