Libre:023 パスワードによるシートの保護

シートの保護は、シートオブジェクトを

取得して、Protectメソッドで設定します。

Excelと同様に、大文字と小文字の区別するようですので、

注意が必要です。

 

sub ksProtect

dim activeSheet as Object
dim doc as object

doc = ThisComponent.sheets

activeSheet = ThisComponent.CurrentController.ActiveSheet

‘シートの保護
activeSheet.Protect(“password”)

‘シートの保護の解除
‘activeSheet.Unprotect (“password”)

end sub