[已解决]请VBA老师们修改下这个代码＿关于工作表保护的。

yjwdjfqb

请VBA老师们修改下这个代码＿关于工作表保护的。

具体问题在附件中，请老师们帮下忙。。。谢谢。。。

最佳答案

月排行榜 / 总排行榜

兰色幻想

2011-8-11 09:49

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Application.DisplayAlerts = False
    If Target.Interior.ColorIndex <> 6 Then  '6表示黄色
        ps = Application.InputBox("请输入密码", "密码核对")
        'MsgBox ps
        If ps = 123 Then  '123是编辑权限密码
            ActiveSheet.Unprotect Password:="123"
        ElseIf ps <> "" And ps <> 123 And ps <> "False" Then
            MsgBox "密码错误"
            Cancel = True
        ElseIf ps = "" Then
          MsgBox "没有输入密码"
        Else
            Cancel = True
        End If
    End If
Application.DisplayAlerts = True
End Sub

跳转到最佳答案楼层

兰色幻想

加上红色的行   
     ElseIf ps <> "" And ps <> 123 Then
            MsgBox "密码错误"
            Cancel = True
        ElseIf ps = "" Then
            MsgBox "密码没有输入"

兰色幻想

加上红色的行   
     ElseIf ps <> "" And ps <> 123 Then
            MsgBox "密码错误"
            Cancel = True
        ElseIf ps = "" Then
            MsgBox "密码没有输入"

yjwdjfqb

回复 兰色幻想 的帖子

兰老师，请测试下，当我们取消和关闭时，不能正确执行。。。请兰老师，测试下。。。。

兰色幻想

红色的地方换成这样：
ElseIf ps = "False" Or ps = "" Then
          MsgBox "没有输入密码"

yjwdjfqb

回复 兰色幻想 的帖子

兰老师，还是不行，可不可以，把老师你测试好的上传个附件。。。。


我测试了下，当执行，　取消　和关闭　密码提示框时，都也会跟着提示“没有密码输入”，按理说执行这二项就应该是退出对吧。。。。


请修改。
谢谢！！！

兰色幻想

取消　和关闭　密码提示框时，都也会跟着提示“没有密码输入”，----你不是要这样的效果吗？

yjwdjfqb

回复 兰色幻想 的帖子

不是的，只是当我们没有输入密码，点击确定时，要这个。

当执行，　取消　和关闭　密码提示框时，直接退出。。。。


请修改。
谢谢！！！

兰色幻想

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Application.DisplayAlerts = False
    If Target.Interior.ColorIndex <> 6 Then  '6表示黄色
        ps = Application.InputBox("请输入密码", "密码核对")
        'MsgBox ps
        If ps = 123 Then  '123是编辑权限密码
            ActiveSheet.Unprotect Password:="123"
        ElseIf ps <> "" And ps <> 123 And ps <> "False" Then
            MsgBox "密码错误"
            Cancel = True
        ElseIf ps = "" Then
          MsgBox "没有输入密码"
        Else
            Cancel = True
        End If
    End If
Application.DisplayAlerts = True
End Sub

yjwdjfqb

回复 兰色幻想 的帖子

感谢兰老师，是我想要的，非常感谢！！！