[已解决]代码执行后自动成为本电脑的EXCEL的模板，请问问题出在哪儿？

zjdh · 发表于 2015-10-26 16:30

icenotcool 发表于 2015-10-26 16:25
一点击调试就出现这个语句优问题提示

看不到你的图片

zjdh · 发表于 2015-10-26 16:33

没则了，我这一切正常，不知何故。

icenotcool · 发表于 2015-10-26 16:35

恐怕我的03版控件有问题

icenotcool · 发表于 2015-10-26 16:45

zjdh 发表于 2015-10-26 16:33
没则了，我这一切正常，不知何故。

不过，老师还是要谢谢你，原来可以这样调用模块的

icenotcool · 发表于 2015-10-26 22:21

zjdh 发表于 2015-10-26 13:00

老师，你看我上传的单独的就执行正常，运行没有问题，但是会把所有的文档都变成限制的，用你复合我我的模块就是报错

单独模块.rar (6.53 KB, 下载次数: 7)

baksy · 发表于 2015-10-26 22:41

。。。

zjdh · 发表于 2015-10-27 10:19

本帖最后由 zjdh 于 2015-10-27 10:22 编辑

icenotcool 发表于 2015-10-26 22:21
老师，你看我上传的单独的就执行正常，运行没有问题，但是会把所有的文档都变成限制的，用你复合我我的模 ...

单独运行情况相同！
将“屏蔽”宏作如下修改即可：
Sub 屏蔽()
On Error Resume Next
With Application
         '屏蔽常用工具栏另存为、保存
      .CommandBars("Worksheet Menu Bar").Controls("文件(&F)").Controls("保存(&S)").Enabled = False
      .CommandBars("Worksheet Menu Bar").Controls("文件(&F)").Controls("另存为(&A)...").Enabled = False
         '屏蔽常用工具栏剪切、复制、粘贴
      .CommandBars(3).Controls("剪切(&T)").Enabled = False
      .CommandBars(3).Controls("复制(&C)").Enabled = False
      .CommandBars(3).Controls("粘贴(&P)").Enabled = False
      '屏蔽单元格右键菜单中的剪切、复制、粘贴命令
      .CommandBars("Cell").Controls("插入(&I)...").Enabled = False
      .CommandBars("Cell").Controls("插入(&I)...").Enabled = False '写2次
      .CommandBars("Cell").Controls("删除(&D)...").Enabled = False
      .CommandBars("Cell").Controls("剪切(&T)").Enabled = False
      .CommandBars("Cell").Controls("复制(&C)").Enabled = False
      .CommandBars("Cell").Controls("粘贴(&P)").Enabled = False
      '屏蔽编辑菜单中的剪切、复制、粘贴命令
      .CommandBars(1).Controls("编辑(&E)").Controls("删除(&D)...").Enabled = False
      .CommandBars(1).Controls("编辑(&E)").Controls("删除工作表(&L)").Enabled = False
      .CommandBars(1).Controls("编辑(&E)").Controls("剪切(&T)").Enabled = False
      .CommandBars(1).Controls("编辑(&E)").Controls("复制(&C)").Enabled = False
      .CommandBars(1).Controls("编辑(&E)").Controls("粘贴(&P)").Enabled = False
      .CommandBars("PLY").Controls(1).Enabled = False工作表标签右键菜单失效
      .CommandBars("ply").Enabled = False '工作表标签右键菜单失效
      '屏蔽格式菜单中的工作表隐藏
      .CommandBars(1).Controls("格式(&O)").Controls("工作表(&H)").Enabled = False
         '屏蔽插入菜单中的单元格、行列、工作表
      .CommandBars(1).Controls("插入(&I)").Controls("行(&R)").Enabled = False
      .CommandBars(1).Controls("插入(&I)").Controls("列(&C)").Enabled = False
      .CommandBars(1).Controls("插入(&I)").Controls("单元格(&E)...").Enabled = False
      .CommandBars(1).Controls("插入(&I)").Controls("工作表(&W)").Enabled = False
      '屏蔽鼠标拖曳复制
.CutCopyMode = False
      .CellDragAndDrop = False
      '屏蔽键盘剪切、复制、粘贴键
      .OnKey "^x", ""
      .OnKey "^c", ""
      .OnKey "^v", ""
End With
End Sub

icenotcool · 发表于 2015-10-27 10:52

zjdh 发表于 2015-10-27 10:19
单独运行情况相同！
将“屏蔽”宏作如下修改即可：
Sub 屏蔽()

老师，谢谢了“.CommandBars("Cell").Controls("插入(&I)...").Enabled = False”就是这句出问题，删掉这句就没有报错了？加上你“”，含有上一句代码，再把“ On Error Resume Next”加进去，没有报错了，但是那个“插入”屏蔽语句没有起效果，现在就怀疑是这个插入的表达式有问题

		自动登录	找回密码
密码			注册