从多个锁定的 excel 文件中编译数据

Question

我正在尝试创建一个用于监控时间的工具，我有大约 10 名员工将使用这些工具。所以我为每个人创建了一个电子表格，他们需要密码才能打开。每个电子表格都包含一个具有相同字段的数据选项卡。无论如何，我可以编译所有数据以制作包含每个数据表中所有信息的某些数据透视图吗？

Answer 1

使用这条线你会

ThisWorkbook.Sheets("xxxxx").UnProtect password:="xxxxxx"

您将能够解锁床单。

如果你使用类似的东西遍历它们

Dim ws as worksheet

For each ws in ThisWorkbook.Sheets
    ws.UnProtect Password:="xxxx"
    ' What ever you want to do with the data


    ws.Protect Password:="xxxx"
next ws

然后您就可以解锁工作簿中的每个工作表，提取数据，然后再次锁定。