Shell Programming and Scripting

#!/usr/bin/perl

use Excel::Writer::XLSX;

my $in=shift;
my $pass=shift;

my $workbook=Excel::Writer::XLSX->new( $in );
$workbook->protect($pass);
$workbook->close();

./protect.pl filename.xls 'password'

#!/usr/bin/perl


use strict;
use warnings;
use Excel::Writer::XLSX;


my $workbook  = Excel::Writer::XLSX->new( "TEST.xlsx" );
my $worksheet = $workbook->add_worksheet('TEST_FILE');
$worksheet->protect( 'drowssap' );
$workbook->close();