Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next
Me.Unprotect ("123456")
If (Target = "正常" Or Target = "异常" Or Target = "通过") And Target.Column = 2 Then
Target.Locked = True
Me.Protect ("123456")
End If
End Sub
为什么我在EXCEL放入以下代码后，我复制表中的一栏，但不能粘贴了.
答案:2 悬赏:40 手机版
解决时间 2021-03-07 02:39
- 提问者网友：夢醒日落
- 2021-03-06 04:35
最佳答案
- 五星知识达人网友：猎心人
- 2021-03-06 05:44
Me.Unprotect （） 清空了粘贴板的内容，你就无法粘贴了。
全部回答
- 1楼网友：長槍戰八方
- 2021-03-06 06:39
你定义一个变量，如tempbook$，将新的空白工作簿的名称赋值给这个变量，然后直接调用就是了
我要举报
如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
大家都在看
推荐资讯