To re-protect the sheets when closing place this code in the WorkBook close event
Option ExplicitPrivate Sub Workbook_BeforeClose(Cancel As Boolean) Dim ws As Worksheet For Each ws In ActiveWorkbook.Worksheets ws.Protect "YourPassworsd" Next wsEnd Sub
Open in new window
The workbook will still have it's protection unless you remove it