周一至周五 : 08:30 - 17:30 客服专员电话/微信:18049989370 QQ:857188287
微信咨询

扫码微信咨询

关注公众号

关注微信公众号

电话: 021 5161 9370
返回顶部
填报修改删除查阅时隐藏明细按钮
显示全部楼层 倒序浏览 发表日期 2022-06-22 11:27:04 1404次阅读 0次回复

填报修改删除查阅时隐藏明细按钮

通过VBA将明细表的系统生成复制的按钮隐藏了



  1.         Public Sub Workbook_Open(OldRoot As Grid, NewRoot As Grid, Excel As SpreadsheetGear.Windows.Controls.WorkbookView) Implements Interfaces.IExcelWorkBook.Workbook_Open
  2.             EV = Excel
  3.             Excel.GetLock()
  4.             AW = Excel.ActiveWorkbook
  5.             Range = AW.ActiveWorksheet.Range
  6.             Excel.ReleaseLock()
  7.             ActiveWorkbook.WorkbookSet.GetLock()
  8.             Dim i As Integer
  9.             For i = 0 To ActiveWorkbook.ActiveWorksheet.Shapes.Count - 1
  10.                 If ActiveWorkbook.ActiveWorksheet.Shapes(i).Name = "Button 1" Then
  11.                     ActiveWorkbook.ActiveWorksheet.Shapes(i).Visible = False
  12.                 End If
  13.             Next i
  14.             ActiveWorkbook.WorkbookSet.ReleaseLock()
  15.             '位置:2保存3新增4提交5退回6进度7打印8预览9导出10捕获11上传图片12上传附件13插入行14插多行15删除行16查找17最后
  16.         End Sub '打开时执行事件
复制代码












电话/微信:18049989370 QQ:857188287
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则  允许回帖邮件提醒楼主

快表软件是国内较早研究表格类软件开发平台的团队之一,迄今已有十多年的行业经验.致力于为企事业单位提供实用可靠的数字化平台。
  • 微信公众号

  • 微信小商店

  • 微信客服

  • Powered by Discuz! X3.4 | Copyright © 2022-2024, XiRong Soft. | 快表软件
  • 沪ICP备13033196号 | 营业执照 |上海西戎软件科技有限公司|沪公网安备31011502002146号|沪ICP备13033196号 |