Excel精英培训网

 找回密码
 注册
数据透视表40+个常用小技巧,让你一次学会!
查看: 4714|回复: 8

[已解决]VBA工作表保护问题

[复制链接]
发表于 2011-8-2 20:54 | 显示全部楼层 |阅读模式
利用VBA代码,保护“表一”工作表中除黄色外的所有区域(即没有填充颜色的区域),并加密,有公式时,只显示公式结果,不显示公式的具体内容。
当我们要对其,加密部分修改时,双击修改单元格(当鼠标单击加密的单元格时,不弹出密码框),就弹出,密码提示框,输入正确密码后,就可以对当前的单元格进行修改,如果错误,就提示,密码错误,修改完成后,又继续对其保护加密.
最佳答案
2011-8-3 14:37
本帖最后由 zjdh 于 2011-8-3 14:40 编辑

是这样吧?                           .
VBA工作表保护问题.rar (8.61 KB, 下载次数: 108)

VBA工作表保护问题.rar

2 KB, 下载次数: 33

excel精英培训的微信平台,每天都会发送excel学习教程和资料。扫一扫明天就可以收到新教程
发表于 2011-8-3 14:37 | 显示全部楼层    本楼为最佳答案   
本帖最后由 zjdh 于 2011-8-3 14:40 编辑

是这样吧?                           .
VBA工作表保护问题.rar (8.61 KB, 下载次数: 108)
回复

使用道具 举报

发表于 2011-8-3 15:23 | 显示全部楼层
回复

使用道具 举报

 楼主| 发表于 2011-8-3 15:46 | 显示全部楼层
回复 zjdh 的帖子

楼主,我不知道,可以编辑区域是怎么表示的。


我想,把可以编辑的区域用B12,F7:F15这种方式表示,请帮忙修改下,

例如(在一个工作表,我指定B12,D6:D13,C19,F7:F15,F3:I3,E20:H20这些区域可以编辑,其余区域编辑需要密码)请修改下


Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Target.Interior.ColorIndex <> 6 Then
        PS = InputBox("请输入密码", "密码核对")
        If PS = 123 Then
            ActiveSheet.Unprotect Password:="123"
        Else
            MsgBox "密码错误!"
        End If
    End If
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    With ActiveSheet
        .Unprotect Password:="123"
        .Range("A:IV").Locked = True
        .Range("A:IV").FormulaHidden = True
        For Each CL In .UsedRange
            If CL.Interior.ColorIndex = 6 Then
                AD = CL.Address
                CL.Locked = False
                CL.FormulaHidden = False
            End If
        Next
        .Protect Password:="123"
    End With
End Sub

回复

使用道具 举报

发表于 2011-8-3 16:06 | 显示全部楼层
回复

使用道具 举报

 楼主| 发表于 2011-8-3 16:36 | 显示全部楼层
回复 Select 的帖子

不是的,那个是公式保护的
回复

使用道具 举报

 楼主| 发表于 2011-8-3 16:37 | 显示全部楼层
回复 zjdh 的帖子

期待老师的帮助,先感谢了。。。。
回复

使用道具 举报

发表于 2011-8-3 18:02 | 显示全部楼层
回复 yjwdjfqb 的帖子

你直接把这些区域的锁定勾去除,再加锁不就得了,还要什么VBA?
回复

使用道具 举报

 楼主| 发表于 2011-8-3 19:06 | 显示全部楼层
回复 zjdh 的帖子

感谢老师的耐心回答!!!非常感谢!!!
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|Archiver|Excel精英培训 ( 豫ICP备11015029号 )

GMT+8, 2024-3-29 02:17 , Processed in 0.643268 second(s), 7 queries , Gzip On, Yac On.

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

快速回复 返回顶部 返回列表