This routine will work, but only on a range, so select the range you
want to check and run the macro. All cells are protected in a new
spreadsheet by default, so this routine will select all the UNPROTECTED
cells.
Sub UnlockCell()
Count = 0
On Error Resume Next
For Each Rng In Selection
If Rng.Locked = False Then
Count = Count + 1
If Count = 1 Then Set Unlocked = Rng
If Count <> 1 Then Set Unlocked = Union(Unlocked, Rng)
End If
Next Rng
Unlocked.Select
End Sub
Want to reply to this thread or ask your own question?
You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.
