让数据有效性飞（修复复制时有效性不起作用的缺陷）

Millier

很想知道！

sigmond04

俺是vba小白，为这东西网上找了一天了，怎么也找不到满意的，这里看到有居然还有积分限制，真想撞墙了

AVEL

1. Private Sub Worksheet_Activate()
   
2.     Dim CmdCtrls As CommandBarControls
   
3.     Dim Cmd As CommandBarControl
   
4.     Set CmdCtrls = Application.CommandBars.FindControls(ID:=19)
   
5.     For Each Cmd In CmdCtrls
   
6.         Cmd.Enabled = False
   
7.     Next
   
8.     Application.CellDragAndDrop = False
   
9.     Application.OnKey ("^c"), ""
   
10. End Sub

复制代码

这个是论坛里之前另一位坛友写的。。
贴一起 ， 方便有需要的人。

AVEL

版主所给的链接目前已经看不了了，能否劳烦版主在这里说明一下你的办法，也好让我们学习一下啊？

dsijuan12

excel很深奥呀！好好学习

平淡是真4645

找了好长时间，这个是我想要的，谢谢楼主！！！！！