在使用write.xlsx函数将数据保存为Excel文件之前,使用openxlsx包中的protectWorksheet函数保护需要保护的单元格。
示例代码:
library(openxlsx)
# 创建示例数据
data <- data.frame(A = 1:5, B = 6:10, C = 11:15)
# 创建Excel文件并保护单元格
wb <- createWorkbook()
addWorksheet(wb, "Sheet1")
writeData(wb, "Sheet1", data)
protectWorksheet(wb, sheet = "Sheet1", protect = "all", lockCells = c("A2:C5"))
# 保存Excel文件
saveWorkbook(wb, "example.xlsx", overwrite = TRUE)
在上述代码中,我们使用createWorkbook函数创建一个Excel工作簿,并使用addWorksheet函数添加一个名为“Sheet1”的工作表。然后使用writeData函数将示例数据写入工作表中。
接下来,我们使用protectWorksheet函数保护“Sheet1”工作表中的所有单元格,并锁定A2:C5单元格,这意味着这些单元格不能被编辑。最后,我们使用saveWorkbook函数将Excel文件保存到本地磁盘中。
使用上述代码,我们可以在使用R保存Excel数据时保护特定单元格。