in reply to Re^12: protect excel file in perl script
in thread protect excel file in perl script

Try

#!/usr/bin/perl -w
use strict;
use Spreadsheet::ParseExcel;
 
my $file = '/home/muthum/excel1.xls';
my $parser   = Spreadsheet::ParseExcel->new( Password => 'secret' );
my $workbook = $parser->Parse($file);
if ( !defined $workbook ) {
  die $parser->error(), "\n";
}

for my $worksheet ( $workbook->worksheets() ) {
  my $cell = $worksheet->get_cell( 0, 0 );
  next unless $cell;
  print "[A1] = ", $cell->value(),"\n";
}

[download]
poj

Replies are listed 'Best First'.
Re^14: protect excel file in perl script
by arunks (Novice) on Mar 16, 2017 at 14:17 UTC
    I tried to execute the code you gave me but am getting the below error please let me know am I missing anything or module version need to be upgraded or dependency required? -bash-3.2$ dos2unix test.pl dos2unix: converting file test.pl to UNIX format ... -bash-3.2$ perl test.pl Can't locate object method "worksheets" via package "Spreadsheet::ParseExcel::Workbook" at test.pl line 15.
[reply]
[reply]

      Try without worksheets method which was added in version 0.43 January 7 2009

      #!/usr/bin/perl -w
use strict;
use Spreadsheet::ParseExcel;
 
my $file = '/home/muthum/excel1.xls';
my $parser   = Spreadsheet::ParseExcel->new( Password => 'secret' );
my $workbook = $parser->Parse($file);
if ( !defined $workbook ) {
  die $parser->error(), ".\n";
}

my $count = $workbook->{SheetCount};
print "Workbook has $count sheets\n";
for my $i (0..$count-1){
  my $worksheet = $workbook->{Worksheet}[$i];
  my $cell = $worksheet->get_cell( 0, 0 );
  if ($cell){
    print "[A1] = '", $cell->Value,"'\n";
  }
}

      [download]

      What are you trying to do with the spreadsheet, just read the contents ?

      poj
[reply]
[d/l]
[select]
        o/p Workbook has 1 sheets Can't locate object method "get_cell" via package "Spreadsheet::ParseExcel::Worksheet" at test.pl line 18. -bash-3.2$ no we are writing the content in the spreadsheet.but it should be password protected
[reply]

In Section Seekers of Perl Wisdom