Excel 版ERP 之采购订单及交付管理（VBA密码：6个*号）

shdachn · 发表于 2010-3-30 16:26

谢谢楼主的无私奉献！

zlzgdut · 发表于 2010-3-30 22:54

先感谢楼主的共享，但是为什么输入密码没反应的，谢谢!

ャ永遠メ · 发表于 2010-3-31 12:35

这个就是我需要的

李小莫 · 发表于 2010-3-31 14:08

感谢楼主的无私奉献！

李小莫 · 发表于 2010-4-2 09:23

weis为什么输入宏密码没有反应啊？
SOS...................

Alex112 · 发表于 2010-4-2 15:30

下载可以用，不错，密码分别是1，2，3，4，没有逗号

icekk · 发表于 2010-4-2 16:07

为什么我打不开呢？输入密码都没有反应，是6个“*”吗？

kk8558 · 发表于 2010-4-7 21:52

好东西，先下载下来再说，感谢楼主无私奉献

songue · 发表于 2010-4-7 22:45

感谢楼主

songue · 发表于 2010-4-7 22:56

Sub Passwd()

Dim hwd As Long

lTimeID = timeSetEvent(10, 0, AddressOf TimeProc, 1, 1)
Password = InputBox("请输入字符", "密码检查")

'Password = Application.InputBox("输入密码：")

If Password = "1" Then

Worksheets("质检用信息").Visible = xlSheetVisible
Worksheets("供方名录").Visible = xlSheetVisible
Worksheets("质检用信息").Activate
MsgBox "操作时不要删除行和列"

End If

If Password = "2" Then

Worksheets("成本核算").Visible = xlSheetVisible
Worksheets("成本核算").Activate
MsgBox "操作时不要删除行和列"

End If

If Password = "3" Then

Worksheets("交付信息").Visible = xlSheetVisible
Worksheets("订单信息").Visible = xlSheetVisible
Worksheets("业绩评价（1）").Visible = xlSheetVisible
Worksheets("订单信息").Activate
MsgBox "操作时不要删除行和列"

End If

If Password = "4" Then

Worksheets("供方名录").Visible = xlSheetVisible
Worksheets("供方价格").Visible = xlSheetVisible
Worksheets("成本核算").Visible = xlSheetVisible
Worksheets("交付信息").Visible = xlSheetVisible
Worksheets("订单信息").Visible = xlSheetVisible
Worksheets("业绩评价（1）").Visible = xlSheetVisible
Worksheets("辅助表").Visible = xlSheetVisible
Worksheets("供方价格").Activate
MsgBox "操作时不要删除行和列"

End If

End Sub

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

[原创] Excel 版ERP 之 采购订单及交付管理（VBA密码：6个*号）

[原创] Excel 版ERP 之采购订单及交付管理（VBA密码：6个*号）