[已解决]VBA如何达到禁止选中特定单元格但事件仍可应用于这些被禁止选中的单元格

hpny

单纯使用保护锁定单元格的方式禁止选中某些单元格会导致修改或隐藏这些单元格的工作表事件报错(错误1004)，取消保护后则vba事件可以正常使用。

使用VBA语句Cells.Locked会导致一样的错误。

Application.Intersect(Target, Range("B6:H10")) Is Nothing Then [a1].Select这种语句会使光标跳到特定单元格，一旦锁定范围变大就会各种不方便。

请教各位大神：在VBA中，如何达到与单元格锁定保护单元格一致的效果，但工作表事件仍可应用于不能选中的单元格？

最佳答案

月排行榜 / 总排行榜

爱疯

2015-12-7 17:05

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim pwd As String
    pwd = "123"
    If Target.Address = "$A$1" And Target <> "" Then
        Me.Unprotect pwd
        Application.EnableEvents = False
        Call test
        Application.EnableEvents = True
        Me.Protect pwd
    End If
End Sub

'处理动作
Sub test()
    For i = 37 To 39
        If Len(Sheet1.Cells(3, i)) = 0 Then
            Range(Cells(4, i), Cells(51, i)).ClearContents
            Columns(i).Hidden = True
        Else
            Columns(i).Hidden = False
        End If
    Next i
    Application.Dialogs(xlDialogSaveAs).Show
End Sub

月度销售流水2.rar (22.24 KB, 下载次数: 24)

2015-12-7 17:04 上传

点击文件名下载附件
没检查处理动作，只是单独移到一个过程里，好查看些。

跳转到最佳答案楼层

qh8600

直接用事件

hpny

qh8600 发表于 2015-11-18 13:17
直接用事件

请教大神，用什么样的事件可以在VBA不受单元格锁定的影响下使单元格不能被选中？

爱疯

比如，禁止选中B5:B10

如果选中了B5:B10中的单元格，就指定选中A1。

可以吗？

hpny

爱疯 发表于 2015-11-18 15:08
比如，禁止选中B5:B10

如果选中了B5:B10中的单元格，就指定选中A1。

这个语句在禁止范围特别大(需要翻页)时，返回某个单元格会让使用者丢失原来的位置，造成很大的编辑困难。。。

hpny

hpny 发表于 2015-11-18 15:25
这个语句在禁止范围特别大(需要翻页)时，返回某个单元格会让使用者丢失原来的位置，造成很大的编辑困难。 ...

好的，附件已上传，请大神参考
在保护工作表后，就会出现错误了
月度销售流水.zip (22.37 KB, 下载次数: 3)

2015-11-19 16:54 上传

点击文件名下载附件

hpny

求关注 求不沉

爱疯

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim pwd As String
    pwd = "123"
    If Target.Address = "$A$1" And Target <> "" Then
        Me.Unprotect pwd
        Application.EnableEvents = False
        Call test
        Application.EnableEvents = True
        Me.Protect pwd
    End If
End Sub

'处理动作
Sub test()
    For i = 37 To 39
        If Len(Sheet1.Cells(3, i)) = 0 Then
            Range(Cells(4, i), Cells(51, i)).ClearContents
            Columns(i).Hidden = True
        Else
            Columns(i).Hidden = False
        End If
    Next i
    Application.Dialogs(xlDialogSaveAs).Show
End Sub

月度销售流水2.rar (22.24 KB, 下载次数: 24)

2015-12-7 17:04 上传

点击文件名下载附件
没检查处理动作，只是单独移到一个过程里，好查看些。

hpny

爱疯 发表于 2015-12-7 17:05
Private Sub Worksheet_Change(ByVal Target As Range)
    Dim pwd As String
    pwd = "123"

谢谢大神回答，经测试可以完美运行
这个方法还可以进行密码保护，在Me.Unprotect后面使用Password语句就可以啦
不过弄不清楚dim pwa as string这个声明变量有什么用，好像不用这个变量也可以运行。。。