use strict; use warnings; 

use Excel::Writer::XLSX;

my $workbook = Excel::Writer::XLSX->new( '1202661.xlsx' );
my $worksheet = $workbook->add_worksheet();
$worksheet->write( 'A1', 'foo' );
$worksheet->write( 'B1', 'bar' );
$worksheet->write( 'A2', 'baz' );
$worksheet->write( 'B2', 'qux' );

$worksheet->protect('s3kr1t');

__END__