Unlock Empty Cells via VBA does not work for merge cells?

[actjfc]

Excel Friends,

I found this proven code to Unlock only Empty Cells. I tested in my active sheet that has many vertical and horizontal merged cells. it works for regular cells, but the merged ones are kept unprotected. Can somebody fix it? I appreciate any help. Thanks!

Sub UnlockEmptyCells()
    
    Application.ScreenUpdating = False
    Cells.Locked = True
    Selection.SpecialCells(xlCellTypeBlanks).Locked = False
    
    ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
    Application.ScreenUpdating = True

End Sub

 

[actjfc]

As a follow up from my prior post, now I am testing this code, and it does not work either, the merged celss <> "" in the used range are not protected :

Sub LASTTEST()

Dim x As Range

ActiveSheet.Unprotect

For Each x In ActiveSheet.UsedRange
        
        MsgBox x
        
        If x.MergeCells Then
            
        If x = "" Then x.MergeArea.Locked = False Else x.MergeArea.Locked = True
        
        Else
        
        If x = "" Then x.Locked = False Else x.Locked = True
            
        End If

Next

    ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
    Application.ScreenUpdating = True


End Sub

Thanks!