谁可帮助我?

yg877 · 发表于 2003-9-27 10:24

难题:怎样才能在EXCEL表中修改时要求修改者输入名称和密码并在另一个表中记录下来或是同一行中记录下来.但是其它用户可以读取数据.
         请帮助!
                                 如果有能帮助我的朋友请回我,我先谢了!
                                 也可以给我发电子邮件:YG877@163.COM

llh3 · 发表于 2003-9-27 13:41

建一个窗口要求输入名称和密码。
用VB写一个判别的命令，如果名称和密码正确就把名称和密码，加上登陆时间记到指定的单元格。

yg877 · 发表于 2003-9-27 15:40

朋友:你的想法与我的相同,可是这个VB该怎么做呢,有哪位高手可以帮我吗?

llh3 · 发表于 2003-9-27 15:55

我试一下。

llh3 · 发表于 2003-9-27 15:57

我的联系方式：
MSN： llh12@hotmail.com
QQ:491613
希望能多交流一下。

llh3 · 发表于 2003-9-27 19:34

3J9mRQ2W.rar (15.64 KB, 下载次数: 14)
我做好了，但用户的库没有做。因为测试起来很麻烦。你看了有时间自已加个条件了。
有什么不足之处请提出来。

llh3 · 发表于 2003-9-27 19:37

用户的正确密码是：123456
确认按钮的代码为：
Private Sub pw1_Click()

      If Worksheets(1).Range("C4").Value = Sheets(3).Range("E1") Then
      Worksheets(2).Activate
ActiveSheet.Protect DrawingObjects:=flase, Contents:=flase, Scenarios:=flase
Worksheets(1).Activate
Range("B4:D4").Select
Selection.Copy
Sheets("Sheet3").Activate
Dim counter As Integer
counter = 2
Do Until Sheets("sheet3").Cells(counter, 3).Value = Sheets(3).Cells(1, 6)
counter = counter + 1
Loop

Sheets("Sheet3").Cells(counter, 1).Select
      Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
      :=False, Transpose:=False
Application.CutCopyMode = False
      Sheets("Sheet2").Activate
  Else: MsgBox "密码错误"

End If
End Sub

yg877 · 发表于 2003-9-28 11:41

谢谢!
那个程序很不错,不过我想能够调动"工作表保护"程序记录更好.

llh3 · 发表于 2003-9-28 19:41

看不懂你的意思。再表达清楚一点好吗。

		自动登录	找回密码
密码			免费注册

[求助] 谁可帮助我?

做好了。