Код:
implementation
uses ComObj;
var W:variant;
Установить пароль на Word документ:
Код:
try
// попытка установить пароль
W.ActiveWorkbook.protect('pass');
except
// действия при неудачной попытке установить пароль
end;
Снять пароль:
Код:
W.ActiveWorkbook.Unprotect('pass');
, где pass - ЭТО САМ ПАРОЛЬ!