编译来自多个锁定的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

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