营业时间登记VBA APP
Excel VBA APP 可每周登记时间,具有安全性和密码保护。该应用程序可以将数据保存到单独的数据库文件、添加新名称、保存 pdf 和更改日期。



该应用程序的功能:
1 - 密码保护,以便人们无法操纵之前填写的时间,只能操纵当前日期
2 - 将更多人添加到应用程序的功能
3 - 时间限制,以便应用程序将在一定时间后关闭
4 - 保存每周工时 PDF 文件
5 - 节省独立数据库的时间
应用程序组件:
1 urenReg.xlsb :这是登录页面,人们可以在其中访问应用程序的控件(例如添加用户和注册时间)。此外,主要控制装置也位于此处。
2 masterData.xlsb:单独的数据库文件,其中存储每天的小时数
脚本urenReg.xlsb:
工作簿模块
Workbook_Open() :打开工作簿时使用密码保护锁定特定列,并且仅允许编辑一周中的当前日期。 Workbook_BeforeClose():锁定所有列Workbook_SheetChange():调用时间操作,在 10 分钟后关闭工作簿模块
dataTrans():通用函数,需要密码并将文件传输到数据库,保存一周的 pdf,并清除当前周。 clearfillinData():清除数据的函数。 speed():通过禁用某些视觉功能来加速代码执行的函数。 Slow():返回默认设置的函数。 TimeSetting():在指定时间后关闭并保存工作簿的函数。 SelectSheetsToPrint():函数将当前工作表保存为pdf格式,并以相应的周为名称。 savewb():用于执行工作簿保存并将输入的名称保存到审计跟踪的函数。 createOutputSheet():函数创建一个工作表,其中包含表中准备好的数据,以便传输到外部数据库。 deleteDataInput():删除传输表的函数。 add_name():允许用户向小时注册表添加新名称的函数。 Button6_Click():将日期向前推进 1 周的函数。 Button7_Click():返回 1 周日期的函数。 脚本masterData.xlsb:
工作簿模块
Workbook_Open() :隐藏工具栏的函数。模块
getDataUrenregColumns():获取传输表中创建的数据并根据名称执行查找和粘贴值的函数LookupInnervalue():对数据进行格式化以显示每小时数据的函数删除数据输入(): speed():通过禁用某些视觉功能来加速代码执行的函数。 Slow():返回默认设置的函数。