r - 通过 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)

这会将第一列锁定到填充数据的行并锁定其他任何地方。