MACRO PROTECCION DE HOJA

Que tal

Estoy desarrollando una macro para modificar ciertas celdas desproteger y
proteger una hoja.

Cuando grabe la macro la inactivacion de la proteccion me pidio una
contraseña para desactivarla, una vez que modifique la hoja tambien a protegi
la hoja en la con el mismo password, cuando corro la macro no me pide el
password y eso quiere decir que cualquier persona puede desprotejer la
informacion de la hoja.

Puede ayudarme alguien??
Gracias..

Esete es el codigo..
Sub Macro2()
'
' Macro2 Macro
' Macro recorded 10/4/2007 by emmanuel.ayala
'

'
Range("A7").Select
ActiveCell.FormulaR1C1 = "=RC[2] & "","" & "" "" & RC[1]"
Range("A10").Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Range("A10").Select
ActiveCell.FormulaR1C1 = "df"
Range("A7").Select
Range("C7").Select
Range("D7").Select
Columns("B:B").Select
ActiveSheet.Unprotect
Range("A7:M7").Select
Selection.Locked = True
Selection.FormulaHidden = True
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Range("C14").Select
End Sub