XProtectable
Пример использования XProtectable:
Sub SetSheetPassword()
Dim oDoc As Object
Dim oSheet As Object
Dim sPassword As String
oDoc = ThisComponent
oSheet = ThisComponent.Sheets.getByIndex(0)
sPassword = "1234"
oSheet.protect(sPassword)
End Sub
Данный код на языке Basic устанавливает пароль на первый лист документа ACell, используя метод protect() объекта листа.
Методы интерфейса XProtectable:
- isProtected() - Возвращает состояние защищенности. TRUE или FALSE.
Параметры:
-
Возвращаемое значение: boolean
- protect(aPassword) - устанавливает защиту.
Параметры:
- string aPassword - новый пароль.
Возвращаемое значение: void
- unprotect(aPassword) - убирает защиту.
Параметры:
- string aPassword - текущий пароль.
Возвращаемое значение: void