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

蜡笔小新a

谭小夕 发表于 2022-7-21 18:32
你打开了吗

打不了，但可以看背后的宏命令
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
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




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

感谢分享，先赞后看

guirenyis

学习中，谢谢楼主的分享

zhiqiuwuchun

非常感谢分享

jason_139

谢谢楼主分享