Proteggere foglio excel

[Gianluigi]

Buongiorno.
Ho la necessità di testare se un foglio di excel è protetto, nel caso
sproteggerlo, scriverci e riproteggerlo.
All'interno del mio script VBS ho provato con:

if objExcel.ActiveSheet.unprotect=False Then
objExcel.ActiveSheet.unprotect=true
strProt = 1
End if

ed al termine delle procedure
if strProt = 1 Then
objExcel.Sheets("Foglio1").protect
strProt = 0
end if

Funziona solo la prima parte, nel senso che il foglio viene sprotetto
e poi via codice ci scrivo, ma al termine non c'è verso di
riproteggerlo.
Preciso che ho scarsissima competenza in materia, mi date una mano?
Grazie
Gianluigi