控件名称导致我的宏崩溃


0

我有一系列宏,我已经为我的现场人员创建了一个表单。当他们完成文档并希望将其发送给相应的人员时,我创建了一个FINISH宏。这基本上为他们清理文档,将文件大小从2MB +下降到大约50KB +宏(下面)基本上执行以下操作:

A.)删除我在表单上输入的控制按钮,供他们输入数据时使用。这些按钮是; 冻结数据 - 将文档中的所有公式转换为静态文本 保存文件 - 根据文档上单元格的内容为文件提供唯一名称 .FINISH - 与FINISH宏对应的按钮

B.)删除带有下拉数据的选项卡。

当我尝试使用FINISH按钮运行宏时,我收到一条消息“无法运行宏”评估格式 - 2.xlsm'Button11_Click'。宏可能在此工作簿中不可用,或者可能禁用所有宏“

工作簿中的宏 但是,当我拉起宏的列表,它清楚地表明宏在工作簿。

Sub Finish()
Application.DisplayAlerts = False
'
' Finish Macro
' Finish Document For Sending out
'
'
    Sheets("DropDownData").Select
    ActiveWindow.SelectedSheets.Delete
    ActiveSheet.Shapes.Range(Array("Button 10")).Select
    Selection.Delete
    Selection.Cut
    ActiveSheet.Shapes.Range(Array("Button 11")).Select
    Selection.Delete
    Selection.Cut
    ActiveSheet.Shapes.Range(Array("Button 9")).Select
    Selection.Delete
    Selection.Cut
    Range("A6").Select
Application.DisplayAlerts = True
End Sub

有人能帮忙吗?

Answers:


0

别介意人,我想通了。我更改了文档的名称,但是我分配给控制按钮的宏仍然连接到原始文档的名称。当我意识到我可以从文档中的宏列表中运行宏时,来到我身边,而不是来自按钮本身。

By using our site, you acknowledge that you have read and understand our Cookie Policy and Privacy Policy.
Licensed under cc by-sa 3.0 with attribution required.