A macro to select every sheet on page the is not locked?

[tonywatsonhelp]

Hi Everyone,

I just want to go back and fix all my sheets as the number of rogue unlocked cells is becoming large, (mostly my rushing things over the year with a copy here paste there)
Anyway,
I'd just like a macro that Selects all the unlocked cells on a sheet, so I can save time checking each sheet manually

please help if you can

Thanks

Tony

 

[MARK858]

Assuming that you have checked the box that allows users to select unlocked cells when you protected the worksheet try...

Sub selectUnlockedCells()
    Dim UnlockedCells As Range, myCell As Range

    For Each myCell In ActiveSheet.UsedRange
        If Not myCell.Locked Then
            If UnlockedCells Is Nothing Then
                Set UnlockedCells = myCell
            Else
                Set UnlockedCells = Union(UnlockedCells, myCell)
            End If
        End If
    Next myCell

    If UnlockedCells Is Nothing Then
        MsgBox "No unlocked cells were found.", vbExclamation
    Else
        UnlockedCells.Select
    End If

End Sub

By the way you could have easily Googled this question as there are loads of examples online

 

[jmacleary]

Hi Tony. There is a macro to do that here: https://www.extendoffice.com/documents/excel/1279-excel-select-all-unlocked-cells.html