0

シートをパスワードで保護し、セルもパスワードで保護するコードを書く必要があります。これまでのところ、次のコードを試しました

#!c:\perl\bin\
use strict;

use Win32::OLE qw(in with);
use Win32::OLE::Const 'Microsoft Excel';
use Win32::OLE::Variant;
use Win32::OLE::NLS qw(:LOCALE :DATE);

$Win32::OLE::Warn = 3; # Die on Errors.
use Spreadsheet::WriteExcel;
my $excelfile = 'protect.xls';

my $Excel = Win32::OLE->GetActiveObject('Excel.Application')
    || Win32::OLE->new('Excel.Application', 'Quit'); 
$Excel->{DisplayAlerts}=0;   
my $Book = $Excel->Workbooks->Add();
$Book->SaveAs($excelfile); 
my $Sheet = $Book->Worksheets("Sheet1");
$Sheet->{Name} = "DidItInPerl";

my $vtfalse =  Variant(VT_BOOL, 0);
my $vttrue =  Variant(VT_BOOL, 1);
my $Range = $Sheet->Range("A1:c2");

$Sheet->Protection->AllowEditRanges->Add({Title=>"MyRange", Range=>$Range},'1222');


 $Sheet->Protect(                                         
 {DrawingObjects=>$vttrue, 
 Contents=>$vttrue, 
 Scenarios=>$vttrue,});

しかし、これは機能していません。

4

1 に答える 1

0

この行を変更する必要があります:

$Sheet->Protection->AllowEditRanges->Add({Title=>"MyRange", Range=>$Range},'1222');

に：

$Sheet->Protection->AllowEditRanges->Add(
    "MyRange", $Range, '1222' );
于 2013-04-07T00:36:04.950 に答える