Private Sub Workbook_BeforeClose(Cancel As Boolean)
Sheets("Sheet1").Protect Password:=" * "
End Sub
--
Dave


"TheRook" wrote:

Can any of you nice people give me the script to protect sheet 1, with a
password when spreadsheet is close. Please highlight where I need to
populate the password with *'s

Thanks in advance