(OpenOffice Basic)Calcシートの保護

OpenOffice Basic(3.2) で Calc のシートの保護をかける方法です。

Dim oSheet As Object
oSheet = ThisComponent.Sheets(0)
'シートの保護
oSheet.Protect("passwd")　　'パスワード passwd でシート保護
'シートの保護の解除
oSheet.Unprotect ("passwd")

参考:

せっち屋えぶろーぐ:OpenOffice.org