' 打开文件 ROSE 为只读密码 CHECK 为编辑密码 Set wb = Workbooks.Open(file, 0, True, , "ROSE", "CHECK") ' 关闭文件并释放内存 wb.Close Set wb = Nothing