r - 如何在 R 中保存 Excel 文件并启用单元格保护？

Question

我有一个使用 XLSX 包创建的基本 Excel 工作簿。我想将其保存为 .xlsx 文件，但锁定除一列之外的所有列，以防止它们被编辑。我可以使用 CellProtection() 函数为选定的列设置单元格保护，但我不知道如何为工作表打开密码保护，以便真正保护列。

library(xlsx)
wb = createWorkbook()
s1 = createSheet(wb, "Sheet 1")
addDataFrame(mtcars, s1) #using mtcars as example dataset
cs = CellStyle(wb, cellProtection = CellProtection(locked=F)) #setting style to unlock cells
rows <- getRows(s1, rowIndex=2:101)
cells <- getCells(rows, colIndex = c(2)) #getting the cells to unlock
lapply(names(cells), function(ii)setCellStyle(cells[[ii]],cs)) #applying unlocking to all columns except the second one (the one i want to leave locked)

saveWorkbook(wb, "file.xlsx")

当我检查 Excel 文件时，第 2 列中的单元格属性显示它们已解锁，但随后我必须单击“保护工作表”并手动输入密码才能真正锁定所有单元格。

有没有办法在 R 中执行此操作并启用工作表保护？

Answer 1

我一直在使用@AEF的答案。但今天我发现这实际上可以在 xlsx 包中完成:

s1$protectSheet("mypassword").

当然，在调用saveworkbook之前