在使用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数据时保护特定单元格。