如何通过R直接生成可读取但不可编辑的只读XLSX文件？

直接用你当前使用的writexl或WriteXLS本身无法直接生成只读Excel，但可以结合openxlsx包实现需求——生成可读取但限制编辑的文件，以下是两种可行方法：

方法1：设置工作表保护（禁止编辑，允许查看） #

openxlsx支持给工作表添加保护规则，允许用户选中单元格查看内容，但禁止修改：

library(openxlsx)

# 准备示例数据
df <- data.frame(序号 = 1:5, 内容 = letters[1:5])

# 创建工作簿并写入数据
wb <- createWorkbook()
addWorksheet(wb, "数据页")
writeData(wb, "数据页", df)

# 设置工作表保护：允许选中单元格，无密码也可限制编辑（也可自定义密码）
protectWorksheet(wb, "数据页", password = NULL, allowSelectingCells = TRUE)

# 保存最终文件
saveWorkbook(wb, "只读数据.xlsx", overwrite = TRUE)

生成的文件打开后可正常查看内容，但无法修改单元格，若设置了密码，输入密码后才能编辑。

方法2：设置文件级只读推荐 #

让Excel打开文件时默认提示用户选择“只读模式”，用户选择只读后无法直接保存修改（需另存为）：

library(openxlsx)

wb <- createWorkbook(readonlyRecommended = TRUE)
addWorksheet(wb, "统计数据")
writeData(wb, "统计数据", mtcars)
saveWorkbook(wb, "只读推荐文件.xlsx", overwrite = TRUE)

补充：兼容现有导出流程 #

如果坚持用writexl导出文件，可后续用openxlsx重新打开并添加保护：

library(writexl)
library(openxlsx)

# 先用writexl导出初始文件
write_xlsx(iris, "临时文件.xlsx")

# 加载文件并添加工作表保护
wb <- loadWorkbook("临时文件.xlsx")
protectWorksheet(wb, sheet = 1, allowSelectingCells = TRUE)
saveWorkbook(wb, "最终只读文件.xlsx", overwrite = TRUE)

注：xlsx包的password参数是加密限制文件读取，不符合你的需求，不建议使用。

内容的提问来源于stack exchange，提问作者Alfonso Gar