VBA保护有公式的单元格，代码修改

yjwdjfqb

VBA保护有公式的单元格，代码修改


VBA保护有公式的单元格，代码修改.rar (24.57 KB, 下载次数: 324)

2012-3-13 09:56 上传

点击文件名下载附件

doitbest

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)  
    If Target.Locked = True Then
        PS = InputBox("请输入密码", "密码核对")
        If PS <> "999" Then Cancel = True: MsgBox "密码错误": Exit Sub
        If PS = "999" Then ActiveSheet.Unprotect Password:="999"
    End If
End Sub

yjwdjfqb

doitbest 发表于 2012-3-13 11:23
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)  
    If Target.L ...

朋友你好，我点取消也，出现了“密码错误”的提示

我的意思是，在我附件上基础上，加上一个“密码错误“的提示。。。

doitbest

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)  '工作表事件,当单元格中有公式时,马上进行保护,并隐藏单元格中公式,若查看需要正确输入密码,方可查看
    If Target.Locked = True Then
        PS = InputBox("请输入密码", "密码核对")
       If PS = "" Then Cancel = True: Exit Sub '屏蔽单元格已保护提示框
        If PS <> "999" Then Cancel = True: MsgBox "密码错误": Exit Sub '屏蔽单元格已保护提示框
        If PS = "999" Then ActiveSheet.Unprotect Password:="999"
    End If
End Sub

yjwdjfqb

doitbest 发表于 2012-3-13 14:23
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)  '工作表事件,当单元 ...

非常好用，感谢老师的帮助！！！

yjwdjfqb

doitbest 发表于 2012-3-13 14:23
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)  '工作表事件,当单元 ...

朋友你好，感谢你的多次帮助。。。

但我把代码用到其它文件中，怎么会出现这样的错误呢。。。

随便在表一中，乱点几个空单元格，就会出现这样的错误。。。

附件：

VBA即时加密有公式的单元格－－出现的错误.rar (14.15 KB, 下载次数: 83)

2012-3-13 15:16 上传

点击文件名下载附件

doitbest

Private Sub Worksheet_Change(ByVal Target As Range)  '工作表事件,当单元格中有公式时,马上进行保护,并隐藏单元格中公式
    On Error Resume Next
    With ActiveSheet
        .Unprotect Password:="120"
        .Range("A:IV").Locked = False
        .Cells.SpecialCells(xlCellTypeFormulas, 23).Locked = True  '含公式单元锁定
        .Cells.SpecialCells(xlCellTypeFormulas, 23).FormulaHidden = True  '隐藏
        .Protect Password:="120"
    End With
End Sub

het2012

doitbest 太厉害了
如果要含公式的单元格不能选中，该如何加代码呢？
我加了这个代码没有用
If Target.Locked = True Then
          Target.Select = True
          Target.Edit = True
       End If

常州海达装潢

doitbest 发表于 2012-3-13 14:23
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)  '工作表事件,当单元 ...

这个还是能看到公式怎应当怎么改哦

doitbest

参考7楼代码