[已解决]求老师给加上代码,在线等

chl111

各位老师 帮忙给加上打开输入密码，是打开表需要密码。谢谢！

最佳答案

月排行榜 / 总排行榜

grf1973

2015-4-15 11:33

“数据表”代码：

1. Private Sub Worksheet_Activate()
   
2.     Dim k
   
3.     Sheet1.Activate
   
4.     k = InputBox("请输入密码：")
   
5.     Application.EnableEvents = False
   
6.     If k = "abc" Then Sheet2.Activate Else MsgBox "密码错误"
   
7.     Application.EnableEvents = True
   
8. End Sub

复制代码

打开“数据表”要输入密码  abc，否则打不开。是这意思吗？

跳转到最佳答案楼层

chl111

没人能给加上么

chl111

继续顶

chl111

chl111

沉入大海了！我捞！我捞！我捞！我捞！我捞！我捞！

grf1973

“数据表”代码：

1. Private Sub Worksheet_Activate()
   
2.     Dim k
   
3.     Sheet1.Activate
   
4.     k = InputBox("请输入密码：")
   
5.     Application.EnableEvents = False
   
6.     If k = "abc" Then Sheet2.Activate Else MsgBox "密码错误"
   
7.     Application.EnableEvents = True
   
8. End Sub

复制代码

打开“数据表”要输入密码  abc，否则打不开。是这意思吗？

chl111

grf1973 发表于 2015-4-15 11:33
“数据表”代码：打开“数据表”要输入密码  abc，否则打不开。是这意思吗？

是的老师！您看怎么添加上！  谢谢！

grf1973

不是已经添加上了吗？附件有问题？