Select only unlocked cells

[Ronald]

Hi,

Is there a way (in vba) to select only unlocked cells from a tab (not marked as locked in cell properties)?

This in Excel 2010.

Thanks in advance.

Ronald.

 

[Marc L]

Hi,

check each cell Locked property …

But what's the purpose ?
​

 

[Luke M]

This seems to work

Sub SelectUnlockedCells()
    Dim WorkRange As Range
    Dim FoundCells As Range
    Dim Cell As Range
    Set WorkRange = ActiveSheet.UsedRange
    For Each Cell In WorkRange
        If Cell.Locked = False Then
            If FoundCells Is Nothing Then
                Set FoundCells = Cell
            Else
                Set FoundCells = Union(FoundCells, Cell)
            End If
        End If
    Next Cell
    If FoundCells Is Nothing Then
        MsgBox "All cells are locked."

    Else
        FoundCells.Select
    End If
End Sub

Copied from:
http://spreadsheetpage.com/index.php/tip/selecting_all_unlocked_cells/

 

[Ronald]

Thanks.
Just awesome!