Excel VBA:将代码注入到子存储日志(时间戳)

我需要保存运行子的人的时间戳和标识(每个小时由不同的(3-4)人运行)。 我将会得到用户名:

*.Value = Environ("Username") 

主要的问题是,我将如何能够存储日志? 事实上,将它们保存到不同的电子表格不是一种select,因为人们会注意到某些东西是开放和closures的。 在记事本中保存也不是一个选项,因为文件需要在共享驱动器上,每个人都有不同的驱动器字母,所以我们不希望在findpath时发现严重错误。

理想情况下,它可以将时间戳保存在同一个* .xlsm文件中的locking和隐藏表单中。 在A列的用户名和B列的时间戳(小时;分钟;秒)。 我的问题是,有没有人有任何想法,使尽可能简单和使用什么代码,没有每15-20行代码闪耀,所以即使是新手可以通过alt + f11等发现它?

非常感谢你们。

是。 创build一个名为“日志”的表并将其设置为非常隐藏

 Sheets("Log").Visible = xlVeryHidden 

这样,没有人可以隐藏它。 在此之后,我build议您locking您的代码,以便没有人可以查看在工具,VBAProject属性,保护(从VBE)中的代码。

当然,代码将是一个非常简单的代码存储在子本身,就像

 dim nextrow as long nextrow = Sheets("Log").Cells(Sheets("Log").Rows.Count, 1).End(xlUp) + 1 Sheets("Log").Range("A" & nextrow) = username Sheets("Log").Range("B" & nextrow) = timestamp