[求助]怎样才能禁用复制粘贴功能啊？恳请赐教

zzk386

怎样恢复这些功能,并在以后打开其他EXCEL文件时都能用这些功能呢?[em06]

liuxiao

QUOTE:

以下是引用yuanzhuping在2008-3-7 1:08:02的发言：

将屏蔽的代码放到工作表的Private Sub Worksheet_Activate()事件中，只有这张表激活后才屏蔽。将恢复的代码放到工作表的Private Sub Worksheet_Deactivate()事件中。

完整代码怎么写？

[此贴子已经被作者于2008-9-23 23:22:51编辑过]

dongwenquan

不错啊好好学习研究了

jackjian

不是很管用，
第一，刚打开excel工作簿时，可以使用ctrl+C，ctrl+V，不能使用菜单上的和右键的复制粘贴功能，只有当转到这个工作簿的其它工作表后再回到原来的工作表，经过这个操作后，才完全激活，这时就不可以使用ctrl+C等

第二，是否能让excel直接信任该VB，因为打开工作簿时会有提示宏安全问题；

我的代码如下：
Private Sub Worksheet_Activate()
    With Application
   
        '屏蔽常用工具栏剪切、复制、粘贴
        .CommandBars(3).Controls("剪切(&T)").Enabled = False
        .CommandBars(3).Controls("复制(&C)").Enabled = False
        .CommandBars(3).Controls("粘贴(&P)").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("剪切(&T)").Enabled = False
        .CommandBars(1).Controls("编辑(&E)").Controls("复制(&C)").Enabled = False
        .CommandBars(1).Controls("编辑(&E)").Controls("粘贴(&P)").Enabled = False

        '屏蔽键盘剪切、复制、粘贴键
        .OnKey "^x", ""
        .OnKey "^c", ""
        .OnKey "^v", ""
    End With
End Sub

Private Sub Worksheet_Deactivate()
    With Application
   
        '屏蔽常用工具栏剪切、复制、粘贴
        .CommandBars(3).Controls("剪切(&T)").Enabled = True
        .CommandBars(3).Controls("复制(&C)").Enabled = True
        .CommandBars(3).Controls("粘贴(&P)").Enabled = True

        '屏蔽单元格右键菜单中的剪切、复制、粘贴命令
        .CommandBars("Cell").Controls("剪切(&T)").Enabled = True
        .CommandBars("Cell").Controls("复制(&C)").Enabled = True
        .CommandBars("Cell").Controls("粘贴(&P)").Enabled = True

        '屏蔽编辑菜单中的剪切、复制、粘贴命令
        .CommandBars(1).Controls("编辑(&E)").Controls("剪切(&T)").Enabled = True
        .CommandBars(1).Controls("编辑(&E)").Controls("复制(&C)").Enabled = True
        .CommandBars(1).Controls("编辑(&E)").Controls("粘贴(&P)").Enabled = True

        '屏蔽键盘剪切、复制、粘贴键
        .OnKey "^x"
        .OnKey "^c"
        .OnKey "^v"
    End With
End Sub

aaa3963336

能否告知下 关于VBA代码的问题  先谢谢了  关于这方面的资料也行 我不知道从哪里开始学习@!

zjdh

1. 在Workbook_BeforeClose事件中激活其他工作表并存盘.
2. 把宏安全设为"低", 或封装成"EXE"文件.

[ 本帖最后由 zjdh 于 2009-9-2 19:07 编辑 ]

ytok2006

期待中...这个是我常用的东东.经常设定好的通用格式,别人往往一不小心就把里面的格工给改动了....好郁闷

jackjian

感谢zjdh的回复，
得出的结论是：若想一打开这个excel文件就生效屏蔽这些功能，
即：Private Sub Workbook_Activate()
即是将其中的"worksheet“改为我现在的workbook就可以了，即时激活工作簿即生效。

但我不明白zjdh所说的封装成exe，如何封装呢，封装后又如何达到打开这个excel文件后自动执行这个exe呢?

lyfzlj

文档开启即屏蔽，把代码放到Workbook_Open()事件中，
退出还原，放到Workbook_BeforeClose事件中。

创建以上两个事件的方法，Alt+F11，双击左侧列表中的“Workbook”，右侧的对象列表中选择Workbook，然后再在右侧事件列表中选择相应的事件名称，过程会自动创建，然后插入代码即可。

office_wolf

正好有这方面的需求，看的还是不大明白，vba要好好恶补一下了。