问题描述
从格式化的 Excel 模板中，我使用 R 中的循环（使用 XLConnect 包）填充数据，生成了大量 Excel 文件。现在我想用密码保护所有生成文件的工作表某些单元格的内容，同时保留原始格式（字体、标题颜色、边框等）。
How do you save Excel file and enable cell protection in R? 中的解决方案已经帮了我很多。我尝试使用 xlsx-package 重新读取使用 XLConnect 创建的 Excel 文件（使用此包保护单个单元格似乎不可能）并保护相应的单元格：
x <- loadWorkbook(file)
cs <- CellStyle(x,cellProtection = CellProtection(locked=F))
rows <- getRows(x$getSheet("Sheet Name"),rowIndex=17:100)
cells <- getCells(rows,colIndex = c(4:26))
lapply(names(cells),function(ii)setCellStyle(cells[[ii]],cs))
.jcall(x$getSheet("Sheet Name"),"V","protectSheet","Password")
saveWorkbook(x,newfile)
保护单个单元格可以这样工作，但不幸的是，由于新的 CellStyles，整个格式都被破坏了。有没有人看到我可以在不必使用 setCellStyle 的情况下保护单个单元格的可能性？我预先感谢您提供有用的答案。
解决方法
暂无找到可以解决该程序问题的有效方法，小编努力寻找整理中！
如果你已经找到好的解决方法，欢迎将解决方案带上本链接一起发送给小编。
小编邮箱:dio#foxmail.com (将#修改为@）