当前位置：首页 → 问答吧 → [求助]多人使用权限登陆密码

[求助]多人使用权限登陆密码

时间：2003-12-01

来源：互联网

求助各位高手能否帮我做一个多人使用权限登陆密码程序，并且在每次退出保存时同时保存使人的信息如：使用人、最后修改时间等。在此先谢了[em11]

作者: 踏雪惊鸿发布时间: 2003-12-01

以前做的例子，供参：[attach]9871[/attach]

[此贴子已经被作者于2003-12-1 22:53:13编辑过]

附件

3dITKmSh.rar(12.63 KB)

2003-12-1 12:34, 下载次数: 1394

[求助]多人使用权限登陆密码

作者: xiaog 发布时间: 2003-12-01

进入密码：张三001李四002王五003马六004

作者: xiaog 发布时间: 2003-12-01

功能：1、多用户、各自密码进入程序。2、超过三次输错密码，程序终止。3、第一次进入，提示更改密码。4、自动保存各个用户进、出的时间，登陆次数。

[此贴子已经被作者于2003-12-1 22:55:36编辑过]

作者: xiaog 发布时间: 2003-12-01

先谢了，再下载！！！！！！！！！

作者: 踏雪惊鸿发布时间: 2003-12-01

运行时提示：编译错误，找不到工程或库

作者: cells 发布时间: 2003-12-03

请留意我4号上传的文件《进销存管理系统之一：进入系统操作员密码设置》，在会计电算化板块。不过我没有设置记录的功能。[em09]

作者: 兰色幻想发布时间: 2003-12-04

怎么不能输入密码呢？

作者: huqingquan 发布时间: 2007-05-28

goood

作者: aa9841 发布时间: 2007-10-05

太强了。

作者: gflavourlon 发布时间: 2007-11-16

非常好，谢谢

作者: 独孤发布时间: 2007-11-20

请问一下，公式要怎么样显示出来呢，想看一看自动保存登陆信息的公式~！谢谢啦~！

作者: jinshan168 发布时间: 2007-12-12

太厉害了

作者: jinshan168 发布时间: 2007-12-12

怎样按回车直接登录？

作者: lnls999 发布时间: 2008-03-14

经典,支持一下,多谢分享!!!

作者: longevity 发布时间: 2008-11-15

很强，但怎么实现的

作者: moonfa 发布时间: 2008-12-27

好好学习，天天向上
有老师了，佩服！

作者: yvsf20 发布时间: 2009-01-06

为什么不能输入密码阿？

作者: cocok305 发布时间: 2009-01-20

强收藏了，很想学习下

作者: ztwmh 发布时间: 2009-02-02

有兩個Excel文件－－A,B.
現希望在A上通過VBA控制B的單元格格式。以下為在A中錄制的宏

Sub Macro1()
B.Sheets(1).Range("D7").Select

Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
With Selection.Borders(xlEdgeLeft)
      .LineStyle = xlContinuous
      .Weight = xlThin
      .ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeTop)
      .LineStyle = xlContinuous
      .Weight = xlThin
      .ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeBottom)
      .LineStyle = xlContinuous
      .Weight = xlThin
      .ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeRight)
      .LineStyle = xlContinuous
      .Weight = xlThin
      .ColorIndex = xlAutomatic
End With
With Selection.Borders(xlInsideVertical)
      .LineStyle = xlContinuous
      .Weight = xlThin
      .ColorIndex = xlAutomatic
End With
With Selection.Borders(xlInsideHorizontal)
      .LineStyle = xlContinuous
      .Weight = xlThin
      .ColorIndex = xlAutomatic
End With
End Sub

但結果還是只控制到A單元格的格式！
謝謝！

作者: ypchen1982 发布时间: 2009-02-03

引用:

原帖由 ypchen1982 于 2009-2-3 15:16 发表
有兩個Excel文件－－A,B.
現希望在A上通過VBA控制B的單元格格式。以下為在A中錄制的宏

Sub Macro1()
B.Sheets(1).Range("D7").Select

Selection.Borders(xlDiagonalDown).LineStyle = xlNone
S ...

發錯了！！！

作者: ypchen1982 发布时间: 2009-02-03

学习了！！！
谢谢！！

作者: 风听铃音发布时间: 2009-02-25

学习了，收藏了，多谢

作者: office_wolf 发布时间: 2009-04-06

学习了，收藏了，多谢

作者: YZLSZAJ 发布时间: 2009-04-24

很不错的学习代码...............

作者: lj_excel 发布时间: 2009-07-09

太强了，可惜我还看不懂代码

作者: luodg 发布时间: 2010-05-20