How to hide and lock all cells but A1?

P

Pat

I can write a macro that gets the last cell and figures out the ranges of
rows and columns that do not play but is there an easier way to do this?
Pat
 
J

Jacob Skaria

Are you looking for

Cells(1, 1).Locked = False
Rows("2:" & Rows.Count).Hidden = True
Range(Columns(2), Columns(Columns.Count)).EntireColumn.Hidden = True
ActiveSheet.Protect

If this post helps click Yes
 
Top