Sub LockWorksheets()
Dim sh as Worksheet
for each sh in ActiveWorkbook.worksheets
sh.Cells.Locked = True
sh.Protect
Next

ActiveWorkbook.Save

End Sub

--
Regards,
Tom Ogilvy

"Gordon" wrote in message
...
Hi...

I have a 32 sheet workbook that my users input quite freely. However, when
they have completed their input I want to hit a button that will freeze
all
data and refuse any more changes/user input. I'd use protect workbook but
the
book is intricate and changing all the cell properties would be a
nightmare...

Thanks in advance G