¿Cómo insertar fechas fijas en excel?

Que tal Sergio,.. aqui te envio un codigo espero sea de tu ayuda,.. En caso
de no saber como insertar el codigo para que funcione esta macro sencilla,
nos comentas.. *** este codigo es de otro codigo, lo desbarate y me dio
resultado, si algun maestro lo puede ver y si en algo esta mal, tiene todo
el permiso de hacerlo mejor *** pero si funciona..

saludos


Private Sub Workbook_Open()

' Mensaje para saber si se va a actulizar la fecha

If MsgBox("DESEAS ACTUALIZAR LA FECHA", vbYesNo, "Confirmar") _
= vbYes Then

' Incrementamos la fecha actual + 1
Sheets("Hoja1").Range("B3") = Sheets("Hoja1").Range("B3")


' Celda donde colocaremos la fecha del sistema
Range("D5").Value = Date

' Nos colocamos en la celda para empezar a trabajar
Range("B3").Select

Else
End If

End Sub


Jesús Peralta
Hermosillo, Sonora, Mexico
el_ultimo_profeta"alt+64"hotmail.com

"Sergio" escribió en el mensaje
news:

Hola, cómo puedo insertar fechas en excel pero que éstas no se modifiquen
cuando utilizo fórmula para ponerla.? porque cuando abro el archivo me

pone

la fecha actual de la PC.