vba 仓库账目管理方式

kamiot · 发表于 2011-2-18 15:26

If Now() >= #5/31/2011# Then
      ActiveWorkbook.ChangeFileAccess xlReadOnly
      Kill ActiveWorkbook.FullName
      Application.Quit
      ElseIf Now() < #5/31/2011# Then
      MsgBox "您有88行录入权限，还有：" & Format(DateDiff("d", Now, #5/31/2011#)) & "天的试用时间"
End If

guojianlin1985 · 发表于 2011-2-18 15:37

干什么的？

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

[原创] vba 仓库账目管理方式