Protect all cells without selecting

[KGee]

I need to run a macro that will protect all cells in a sheet. I'm using the following but want to avoid selecting the entire sheet and can't figure out how to lock the cells without selecting them.

Cells.Select    
Selection.Locked = True

Using something like Range("A1:Z100").Locked = True would probably work for this file but I wanted to see if there was another option.

Thanks

 

[Snakehips]

KGee,

Sub Lock_All()
'unprotect if sheet might be protected
ActiveSheet.Unprotect
'lock all cells - only if some cells might be set as unlocked
'no need to select
Cells.Locked = True
'protect the sheet
ActiveSheet.Protect
End Sub

Might that help?

 

[KGee]

Exactly what I needed.

Cheers