[已解决]VBA技术请教

pxtang

各位网友好，有哪位高手能帮我看下这个VBA是怎么弄的。就是加密的那个是怎么设置的，求解，谢谢！

最佳答案

月排行榜 / 总排行榜

柳如烟

2012-8-18 12:24

密码已经解除，现在你可以随心所欲了。

跳转到最佳答案楼层

wk0316

作者在vba使用了密码保护数据，不允许查看其代码的。

hwc2ycy

写了代码的，当激活这个单元格后，会有判断。

pxtang

具体要怎么操作？能指导下吗？我想掌握这门技术，谢谢

柳如烟

密码已经解除，现在你可以随心所欲了。

pxtang

柳如烟 发表于 2012-8-18 12:24
密码已经解除，现在你可以随心所欲了。

我想掌握这个小技术，能否指导下我？在手不胜感激，谢谢！

pxtang

看到代码了：
'Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'On Error Resume Next
'With Target
'     If .Value <> "" Then
'      PW = InputBox("此表为汇总表数据不可修改，如需级部排名次请联系黎泽恩撤销锁定，谢谢！")
'      If PW <> "11" Then
'      Cells(2, 2).Select
'      Else
'      Exit Sub
'     End If
'     End If
'End With
'End Sub

ws278106483

柳如烟 发表于 2012-8-18 12:24
密码已经解除，现在你可以随心所欲了。

这是怎么破解的，教教我啦。谢谢了。。   

hwc2ycy

同求学密码。