Как снять пароль с Excel файла? |
Previous Top Next |
Code: |
{ 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; |
©Drkb::04393
Взято с сайта http://www.swissdelphicenter.ch/en/tipsindex.php