You are out of date by about 8 years.

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 ?

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

Like I said before, the version of Spreadsheet::ParseExcel is out of date by many years. It's better not to ignore such advice, as you'll just keep hitting similar problems over and over.

no we are writing the content in the spreadsheet

To be clear, you have an existing unprotected spreadsheet. You don't want to read from it or write to it, you just want to password protect it using a perl script. Is that correct ?

poj