用户登陆界面（有密码）

cccc5900

大家好。 VB.rar (22.41 KB, 下载次数: 394)

2016-2-1 16:15 上传

点击文件名下载附件

我想做一个登陆界面。界面要输入用户。密码才能进到不同的SHEET中。

想达到的目的。SHEET和用户可以被管理员添加。另外如果在后面输入“Y”.VBA将会为用户自动开放对应的SHEET。

问题：请问，这个能用FOR 语句实现吗？

下面这个我试过。如果For 在IF 里。IF 后的表达式怎么写？FOR 在IF 外。就会报错。（这段代码的目的就是要 在对应处填写“Y”， VBA 会为用户用动开放对应的SHEET）

For i = 4 To R1
If account_text = Sheet1.Cells(i, 1) And Password_.Text = Sheet1.Cells(i, 2) Then
        y_ = Sheet1.Range(Cells(i, 5), Cells(i, c1)).Find("y", , , 1)
        g = Cells(1, y_.Column).Value
        
        If Not y_ Is Nothing Then
   
        Sheets(g).Visible = ture
   
        Else
        End If

Next


请高手帮忙解下。。。多谢了！越详细越好。

cccc5900

没有人帮我吗？。。。用户名： Ray 密码： Ray

cccc5900

在线求解ING

hsw212

ThisWorkbook

1. Private Sub Workbook_Open()
   
2. Application.Visible = False
   
3. For i = 1 To Sheets.Count - 1
   
4.     Sheets(i).Visible = 2
   
5. Next
   
6. MyWelcomeLogo.Show
   
7. End Sub

复制代码

MyWelcomeLogo 窗体代码

1. Private Sub Enter_Click()
   
2. 
   
3. R1 = Sheet1.UsedRange.Rows.Count
   
4. c1 = Sheet1.UsedRange.Columns.Count
   
5. 
   
6. With Worksheets(1)
   
7.     For i = 1 To R1
   
8.    ' MsgBox .Cells(i, 1) & "**" & .Cells(i, 2)
   
9.         If Account_.Text = .Cells(i, 1) And Password_.Text = .Cells(i, 2) Then
   
10.             
    
11.             Set c = .Range(.Cells(i, 5), .Cells(i, c1)).Find("y", , , 1)
    
12.             If Not c Is Nothing Then
    
13.                 firstAddress = c.Address
    
14.                 Do
    
15.                     Worksheets(c.Column - 4).Visible = -1
    
16.                     Set c = .Range(.Cells(i, 5), .Cells(i, c1)).FindNext(c)
    
17.                 Loop While Not c Is Nothing And c.Address <> firstAddress
    
18.              End If
    
19.              Application.Visible = True
    
20.              Unload MyWelcomeLogo
    
21.              Exit Sub
    
22.         End If
    
23.     Next
    
24. End With
    
25. 
    
26. MsgBox "user name or password error, access denied."
    
27. Password_.Text = ""
    
28. Password_.SetFocus
    
29. 
    
30. End Sub

复制代码

hsw212

改动比较大
另外，需要注意的是至少有一个sheet页不能隐藏。

cccc5900

hsw212 发表于 2016-2-2 11:23
ThisWorkbook

MyWelcomeLogo 窗体代码

我去！高手!好强大！

我大概明白您的意思。但正在琢磨!

cccc5900

hsw212 发表于 2016-2-2 11:24
改动比较大
另外，需要注意的是至少有一个sheet页不能隐藏。

心若，

请教一手再。FOR NEXT， 和 DO WHILE的区别。我知道它有区别。但从网上案例来看。他们可以用来做检查。
如：A B C。 如果想在Cells(x,1)非空的请况下，判断 cells(x,2)和cells(x,3)是否为空。就好像发邮件，没有主题或内容给出提示那样。请问，用for next 合适还是do while合适？

谢谢

hsw212

都可以的。用什么看个人习惯而定了do ... loop有四种形式。
就你说的这种情况，可以这样写
i=1
do while cell(x,i).value<>"" or i>3
i=i+1
loop
-----------
for i=1 to 3
  if cells(x,i).value=""  then exit for
next i


网上这种教程很多，你可以搜下仔细读读

wj2368

前几天刚帮一个论坛的修改的登录窗口，给你

cccc5900

wj2368 发表于 2016-2-3 11:04
前几天刚帮一个论坛的修改的登录窗口，给你

好高大尚。刚到家。明儿再开始研究！谢了高手儿！