[已解决]如何修改当前用户名的登陆密码？

qingyuandi

我做好的这个excel，在“S”这个工作表中保存的用户名和密码。当用户名和密码相同的时候，才能够实现密码修改，不相同时则不能，请各位大侠看看代码错在哪了？ 问题.zip (51.39 KB, 下载次数: 4)

2013-11-29 15:39 上传

点击文件名下载附件 用户名和密码都是：admin

最佳答案

月排行榜 / 总排行榜

danysy

2013-11-29 17:11

变成乱码了，请看附档，我帮你修改了一下代码

跳转到最佳答案楼层

danysy

1. On Error Resume Next
   
2. 'Dim c As String
   
3. Dim i
   
4. If Len(TextBox3.Text) <> 6 Then
   
5.     MsgBox "&Ccedil;&euml;&Ecirc;&auml;&Egrave;&euml;6&Icirc;&raquo;&Atilde;&Uuml;&Acirc;&euml;"
   
6.     Exit Sub
   
7. End If
   
8. 
   
9. 'c = ComboBox1.Text
   
10. 
    
11. 'Set g = Sheet1.[b:b].Find(c)
    
12. 'If Not g Is Nothing Then
    
13. 'a = TextBox3
    
14. 
    
15. With Sheets("s")
    
16. For i = 1 To .Range("A65536").End(3).Row
    
17.     If (.Cells(i, 1) = ComboBox1.Text) And (TextBox2.Text = .Cells(i, 2)) And (TextBox3.Text = TextBox4.Text) Then
    
18.         .Cells(i, 2) = TextBox3.Text
    
19.          MsgBox "&ETH;&THORN;&cedil;&Auml;&sup3;&Eacute;&sup1;&brvbar;&pound;&iexcl;"
    
20.          Unload Me
    
21.          Exit For
    
22.       Else
    
23.          MsgBox "&Ecirc;&auml;&Egrave;&euml;&micro;&Auml;&Ocirc;&shy;&Atilde;&Uuml;&Acirc;&euml;&sup2;&raquo;&para;&Ocirc;&pound;&not;&Ccedil;&euml;&Ouml;&Oslash;&ETH;&Acirc;&Ecirc;&auml;&Egrave;&euml;"
    
24.         'End If
    
25.         'End If
    
26.         Exit Sub
    
27.    End If
    
28. Next
    
29. End With

复制代码

danysy

变成乱码了，请看附档，我帮你修改了一下代码

danysy

密码我已改为了654321

qingyuandi

danysy 发表于 2013-11-29 17:11
变成乱码了，请看附档，我帮你修改了一下代码

怎么在我电脑上运行不了呢？直接都 没法登陆进去了

qingyuandi

danysy 发表于 2013-11-29 17:15
密码我已改为了654321

提示“找不到工程或库”

danysy

我试了没问题啊，你可以把上面的代码复制一下看

danysy

乱码实际上就是你写在msgbox中显示的中文字了

qingyuandi

danysy 发表于 2013-11-29 17:21
乱码实际上就是你写在msgbox中显示的中文字了

不是这个原因，还是没法运行了。方便加我QQ374456349解决下嘛！

qingyuandi

danysy 发表于 2013-11-29 17:20
我试了没问题啊，你可以把上面的代码复制一下看

你是用的2003版本滴吗？我用的是office2007版滴