Hi I am trying to password protect the excel sheet but somehow it's not working. I know the $worksheet->protect(); is only for worksheets and not for the whole workbook but I tried that for worksheet and that didn't work either. Here is my code.

 
#!/use/bin/perl
use strict;
use warnings;
use Spreadsheet::WriteExcel;

    # Create a new Excel workbook
    my $workbook = Spreadsheet::WriteExcel->new('perl.xls');

    # Add a worksheet
    my $worksheet = $workbook->add_worksheet();
        $worksheet->protect('test123');
    my $worksheet2 = $workbook->add_worksheet();

    #  Add and define a format
    my $format = $workbook->add_format(); # Add a format
    $format->set_bold();
    $format->set_color('red');
    $format->set_align('center');

    # Write a formatted and unformatted string, row and column notatio
+n.
    my ($col,$row) = (0,0);
    $worksheet->write($row, $col, 'Hi Excel!', $format);
    $worksheet->write(1,    $col, 'Hi Excel!');

    # Write a number and a formula using A1 notation
    $worksheet->write('A3', 1.2345);
    $worksheet->write('A4', '=SIN(PI()/4)');
        $col =0;
        $row =0;
$worksheet2->write($row, $col, 'Hi Excel Two!', $format);
    $worksheet2->write(1,    $col, 'Hi Excel!');

    # Write a number and a formula using A1 notation
    $worksheet2->write('A3', 1.2345);
    $worksheet2->write('A4', '=SIN(PI()/4)');
$workbook->close();
[download]