Protect single Excel cells with password in R while formatting is preserved

Question

From a formatted Excel template, which I fill with data using loops in R (using the XLConnect package), numerous Excel files result. Now I want to password protect the conte