Как снять пароль с Excel файла?

{
Today I want to show how you may load some xls-file that is
password-protected, and how to save xls into another file
but without protection.
Just replace there file names and password...
}

var
xls, xlw: Variant;
begin
{load MS Excel}
xls := CreateOLEObject('Excel.Application');
{open your xls-file}
xlw := xls.WorkBooks.Open(FileName := 'd:\book1.xls', Password := 'qq', ReadOnly := True);
{save with other file name}
xlw.SaveAs(FileName := 'd:\book2.xls', Password := '');
{unload MS Excel}
xlw := UnAssigned;
xls := UnAssigned;
end;

Взято с сайта http://www.swissdelphicenter.ch/en/tipsindex.php

Люди, Привет всем! Пожалуйста, можете на нормальный язык перевести? мне этот файл срочьно открыть, шеф повесит... Если есть возможность отправить по почте Bokser@inbox.ru отправьте пожалуйста, я Вас умоляю... Заранее благодарю...

К сожалению этот код будет работать только если вам уже известен пароль к файлу. Для восстановления пароля есть специальные программы,например Excel Recovery

Отправить комментарий

Проверка
Антиспам проверка
Image CAPTCHA
...