通过 R 保持保护（或重新保护）导入的 Excel 工作簿的某些列

Question

我有一个包含两张工作表的 Excel 工作簿。在第一个工作表上，B 列和 C 列具有防止编辑的公式（指的是第二个仍然为空的工作表）。现在我通过 R 导入了这个工作簿，将我的数据添加到第二张表并保存了工作簿。

library(openxlsx)
wb <- loadWorkbook('Tables.xlsx')
writeData(wb, 'Sheet2', mydf)
saveWorkbook(wb, New_tables.xlsx')

但是，保存工作簿后，工作表 1 的 B 列和 C 列不再受到保护。是否可以添加任何特定功能来保护（仅）表 1 中的列 B 和 C 不被编辑？

谢谢！

Answer 1

您可以使用protectWorksheet 函数。

您需要createStyle 设置locked = TRUE 或FALSE，然后您可以控制要锁定编辑的列和行。 例如：

library(openxlsx)
wb <- createWorkbook()
addWorksheet(wb, "NEW")
writeData(wb, "NEW", mtcars)
addStyle(wb, "NEW", rows = 1:nrow(mtcars), cols = 1, gridExpand = TRUE, style = createStyle(locked = FALSE))
protectWorksheet(wb, "NEW", protect = TRUE)
saveWorkbook(wb, "New_tables.xlsx", overwrite = TRUE)

这会将第一列锁定到填充数据的行并锁定其他所有位置。