protectWorkbook does not work

[realbeast91]

Expected Behavior

protectWorkbook() is supposed to add password protection when trying to open Excel

Actual Behavior

Code runs successfully but it is not password protected, and can open the file directly

Steps to Reproduce the Problem

df = data.frame(Year = c(2018,2019,2020,2018,2019,2020,2018,2019,2020),
                Country = c("Germany","Germany","Germany", "Japan", "Japan", "Japan",  "Thailand", "Thailand", "Thailand"), 
                Count = c(17, 15, 60, 23, 25, 60, 50, 18, 31))

wb = createWorkbook()
addWorksheet(wb, "Master")
writeDataTable(wb, "Master", df, tableStyle = "TableStyleLight9")
yellow_style = createStyle(fgFill = "#FFFF00")
y = which(colnames(df) == "Count")
x = which(abs(df$Count) > 32)
addStyle(wb, sheet = "Master", style = yellow_style, rows = x+1, col = y)
protectWorkbook(wb, protect = TRUE, password = "Password", lockStructure = TRUE)
saveWorkbook(wb, "Master.xlsx", overwrite = TRUE)

sessionInfo()

• Version of R: 3.6.1
  -Version of openxlsx: 4.1.4

[JMPivette]

Could you please create this bug at ycphs/openxlsx?

This is the active fork of the package.