出错：方法Buttons作用于对象Worksheet时失败

BMW5566

Sub delVBA()
Sheet1.Buttons("Button1").Delete
ActiveWorkbook.Activate
   For i = 1 To ActiveWorkbook.VBProject.VBComponents.Count
   ActiveWorkbook.VBProject. _
     VBComponents(i).CodeModule.DeleteLines 1, _
   ActiveWorkbook.VBProject. _
     VBComponents(i).CodeModule.CountOfLines
   Next

End Sub

这段代码会提示：方法Buttons作用于对象worksheet时失败，这怎么解决！各位高手帮忙下，谢谢！

大灰狼1976

如果button1是建立时候的默认名称的话，其实中间是有个空格的"Button 1"
仅猜测，可以修改试下

大灰狼1976

Sheet1.Buttons("Button 1").Delete
引号内加了个空格试下

BMW5566

大灰狼1976 发表于 2024-1-23 13:39
如果button1是建立时候的默认名称的话，其实中间是有个空格的"Button 1"
仅猜测，可以修改试下

不是默认名称，这个代码是我从别的地方运用过来，可能跟我之前代码冲突；请教下，哪里可以看实际名称

大灰狼1976

看代码内容，这里的button应该是表单控件，在控件上鼠标右键按住，工作表右上方会显示控件名称。

BMW5566

您帮我看下为什么会提示：方法Buttons作用于对象worksheet时失败；如何解决，谢谢指教

BMW5566

大灰狼1976 发表于 2024-1-24 14:36
看代码内容，这里的button应该是表单控件，在控件上鼠标右键按住，工作表右上方会显示控件名称。

您帮我看下为什么会提示：方法Buttons作用于对象worksheet时失败；如何解决，谢谢指教，6楼

大灰狼1976

好的，公司里不便下载附件，回家后看看

BMW5566

大灰狼1976 发表于 2024-1-24 16:32
好的，公司里不便下载附件，回家后看看

好的，谢谢！还有一点就是当工程加密码锁定，能否也能运行

大灰狼1976

这个图形的名称是：右箭头 85
它不是表单控件按钮，而是一个shape图形，所以代码里面修改了一下
另外，代码里有强制显式声明变量，所以代码里添加变量声明。
至于工程加密是否能运行，我没有测试，估计不行的吧，不懂这个。
附件供参考。