These two statements seem to me to be per the documention but the unprotect doesn't work. I get a message saying incorrect password (but it is correct)
ActiveSheet.Unprotect Password = "chien"
ActiveSheet.Protect Password = "chien", DrawingObjects:=True, Contents:=True, Scenarios:=True
Bookmarks