Lock cell with macro

edit

Thank you. Lupp:-D! Only an other question, there is command to pass direcly the password without write it in the code? Thank you

@Fede: Do you mean "Can I get the password for a protected sheet evaluating a property?"
If so, the answer is "no". In the file (persistent representatiion) the password is encrypted,
If you need to remove password protection from a sheet without knowing the password, you have to manipulate the file itself. You cannot do that inside LibO on an opened document without hacking the code.

Dear @Lupp

Sub LockCell
    Dim pPassword As String
    If IsMissing(pPassword) Then pPassword = ""
    oSheet.UnProtect(pPassword)
    Dim oLock As Object
    Dim col, row, i As Integer : row = 6
    For col = 0 To 8
        For i = 0 To row - 1
            oCell = oSheet.GetCellByPosition(col, i)
            Select Case oCell.CellBackColor
                Case -1, 16777175
                    oLock                    = oCell.CellProtection
                    oLock.IsLocked        = False
                    oCell.CellProtection  = oLock
                Case 3433892, 2777241, 5866416, 7512015 ,14608111
                    oLock                    = oCell.CellProtection
                    oLock.IsLocked        = True
                    oCell.CellProtection  = oLock       
            End Select
        Next
    Next        
    oSheet.Protect(pPassword)
End Sub

Why are all blank virgin cells outside A1:J6 locked ?

CellProtection on is a setting for the default cell style - and you didn't change anything outside your chosen range by your code.
BTW: Don't use colours the way you tried. It's error-prone, and as soon as a palette gets changed, it may be difficult to set the wanted colours again. There are 16 77216 possible values!