[已解决]如何用VBA实现保护单元格

无法表达的爱

我想把我的表格用密码保护起来，但是不是那种整张表一起保护的，就是有输入数据的单元格才需要保护，请老师们帮忙，谢谢

最佳答案

月排行榜 / 总排行榜

hytsky

2011-12-18 16:22

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Sheet1.Unprotect Password:="12345"
    If ActiveCell.Value <> "" Then
        Target.Locked = True
        Sheet1.Protect Password:="12345"
    End If
End Sub

忘了说了，sheet1可根据你要在哪张表添加保护就更改为哪张表的名称

跳转到最佳答案楼层

hytsky

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Sheet1.Unprotect Password:="12345"
    If ActiveCell.Value <> "" Then
        Target.Locked = True
        Sheet1.Protect Password:="12345"
    End If
End Sub

忘了说了，sheet1可根据你要在哪张表添加保护就更改为哪张表的名称

yefengcui

学习学习！

yqb7456

谢谢分享！

liwenhong

hytsky 发表于 2011-12-18 16:22
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Sheet1.Unprotect Password:="12345" ...

麻烦给看看代码无法运行的原因，也是想输入后不能再修改的功能。谢谢！ ABCD-3.zip (15.02 KB, 下载次数: 5)

2016-8-27 22:20 上传

点击文件名下载附件