Sheets("Sheet1").UnProtect("YourPwd")
Sheets("Sheet1").Protect("YourPwd")
HTH
Regards
Pascal

"marfrk " a écrit dans le message de
news: ...
I can`t run a macro because the cells are blocked and the sheet
protected. How do I unprotect and protect a sheet with BVA code that
include a prestablished pasword.
Thanks in advance.


---
Message posted from http://www.ExcelForum.com/