cells protection

Dear sir, with my regards, i have a workbook with about ( 10 sheets) full of formulas,to send these formulas away from spongers , i protcted some cells or columns which contain them, when i want to work on any sheet i cancell the protection and forget to protect again .
Is there any way in excell 2003 to protect these cells directly when i close the sheets.
Thanks in advance.

Sure with VBA.
Place this code in a workbook module, if you don't know where that is,
check out this site
http://www.contextures.com/xlvba01.html#Workbook

Place this code there

Private Sub Workbook_BeforeClose(Cancel As Boolean)

Dim Shts As Worksheet

For Each Shts In ThisWorkbook.Worksheets
Shts.Protect Password:="123"
Next
end sub

press alt + f11 , click this workbook ( left hand side )

Insert this code

Private Sub Workbook_BeforeClose(Cancel As Boolean)
For a = 1 To Sheets.Count
Worksheets(a).Protect
Next
End Sub



On Feb 9, 12:59*am, tofimoon3
wrote:
Dear sir, with my regards, i have a workbook with about ( 10 sheets)
full of formulas,to send these formulas away from spongers , i protcted
some cells or columns which contain them, when i want to work on any
sheet i cancell the protection and forget to protect again .
Is there any way in excell 2003 to protect these cells directly when i
close the sheets.
Thanks in advance.

--
tofimoon3

Originally Posted by muddan madhu

press alt + f11 , click this workbook ( left hand side )

Insert this code

Private Sub Workbook_BeforeClose(Cancel As Boolean)
For a = 1 To Sheets.Count
Worksheets(a).Protect
Next
End Sub



On Feb 9, 12:59*am, tofimoon3
wrote:
Dear sir, with my regards, i have a workbook with about ( 10 sheets)
full of formulas,to send these formulas away from spongers , i protcted
some cells or columns which contain them, when i want to work on any
sheet i cancell the protection and forget to protect again .
Is there any way in excell 2003 to protect these cells directly when i
close the sheets.
Thanks in advance.

--
tofimoon3

Dear sirs,with my appreciation for your replies,i failed to reach the goal when all the formulas in my workbook have appeared after using the code .
Can you tell me please the way to activate your solutions.