LibreOffice Basic：不取消工作表保护时如何清空受保护单元格A2

这不是Bug，是LibreOffice/OpenOffice Calc工作表保护机制的设计逻辑：默认情况下，宏直接给锁定单元格赋值（如.string）能生效，但clearContents这类操作会被保护规则拦截。以下是两种可行的解决方式：

方法1：临时解除保护后执行清空操作 #

修改宏代码，在清空单元格前临时解除工作表保护，完成操作后重新启用保护，示例代码如下：

sub main
    Dim oSheet as Object
    oSheet = ThisComponent.getSheets().getByName("Sheet1")
    fPos = oSheet.getCellByPosition(0,0)
    sPos = oSheet.getCellByPosition(0,1)

    ' 当A1为空时执行清空A2操作
    if fPos.string = "" then
        ' 临时解除保护（若工作表设了密码，在括号内添加密码字符串，如oSheet.unprotect("yourpassword")）
        oSheet.unprotect("")
        sPos.clearContents(7)
        ' 重新保护工作表，保留原允许编辑区域（A1）及默认保护选项
        oSheet.protect("", true, false, true, true, true, true, true, true, true, true, true)
    else
        sPos.string = fPos.string
    end if
end sub

注：protect方法的参数对应各类保护权限，可根据实际需求调整。

方法2：用赋值空字符串替代clearContents #

如果仅需清空单元格的文本内容，可直接给A2赋值空字符串，绕过clearContents的保护限制，代码修改如下：

sub main
    fPos = ThisComponent.getSheets().getByName("Sheet1").getCellByPosition(0,0)
    sPos = ThisComponent.getSheets().getByName("Sheet1").getCellByPosition(0,1)

    if fPos.string = "" then
        sPos.string = "" ' 赋值空字符串实现清空效果
    else
        sPos.string = fPos.string
    end if
end sub

这种方式无需切换保护状态，操作更简洁，适合仅需清空文本的场景。

内容的提问来源于stack exchange，提问作者onemorequestion