Opening Password Protected Excel file using Win32:OLE in Perl

[mohanprasadgutta]

Hi,
I need help to open a password protected excel file in perl using Win32:OLE.
when I tried to open file in normal way at the time of program execution it is prompting me to enter password.
I am giving the script i used for opening excel file..
So i want to know how to provide password parameter while opening the file.

use strict;
use Win32::OLE;
use Win32::OLE::Const 'Microsoft Excel';
use Win32::OLE::Variant qw(:DEFAULT nothing);
$Win32::OLE::Warn = 3;
 
my $excelObj;
my $fileName = "D:\\Mohan\\test.xls";
$excelObj = Win32::OLE->new('Excel.Application', 'Quit');
$excelObj->{'DisplayAlerts'} = 0;
$excelObj->{'AskToUpdateLinks'} = 0;
$excelObj->{'Visible'} = 0;
my $bookObj;
# If there is any problem in accessing files then auto mail will be sent.       
eval
{
    $bookObj = $excelObj->Workbooks->Open($fileName);
};
if($@)
{
    my $msg = "";
    die "A problem was encountered when accessing the file $fileName \n";
}
my $sheetObj = $bookObj->Worksheets(1);
my $val    = $sheetObj->Cells(10,3)->{'Value'};
print "Value == $val\n";
$excelObj->ActiveWorkbook->Close(0);
$excelObj->Quit();
 

Thanks in Advance.

[numberwhun]

Hi,
I need help to open a password protected excel file in perl using Win32:OLE.
when I tried to open file in normal way at the time of program execution it is prompting me to enter password.
I am giving the script i used for opening excel file..
So i want to know how to provide password parameter while opening the file.

use strict;
use Win32::OLE;
use Win32::OLE::Const 'Microsoft Excel';
use Win32::OLE::Variant qw(:DEFAULT nothing);
$Win32::OLE::Warn = 3;
 
my $excelObj;
my $fileName = "D:\\Mohan\\test.xls";
$excelObj = Win32::OLE->new('Excel.Application', 'Quit');
$excelObj->{'DisplayAlerts'} = 0;
$excelObj->{'AskToUpdateLinks'} = 0;
$excelObj->{'Visible'} = 0;
my $bookObj;
# If there is any problem in accessing files then auto mail will be sent.       
eval
{
    $bookObj = $excelObj->Workbooks->Open($fileName);
};
if($@)
{
    my $msg = "";
    die "A problem was encountered when accessing the file $fileName \n";
}
my $sheetObj = $bookObj->Worksheets(1);
my $val    = $sheetObj->Cells(10,3)->{'Value'};
print "Value == $val\n";
$excelObj->ActiveWorkbook->Close(0);
$excelObj->Quit();
 

Thanks in Advance.

To tell you the truth, I am not really sure how you would do this as I haven't played with Excel spreadsheets with Perl. I did check CPAN and it looks like the Spreadsheet::ParseExcel module has "ToDo" plans of implementing something to access protected Excel spreadsheets. It may behoove you to contact the author and see where he is with that. If he hasn't touched it, then if you get a solution in place to do so, it would be a good chance to publish either your first or another Perl module.

Regards,

Jeff