Mantener fecha fija en excel

On Sep 6, 4:20 pm, Doors wrote:

Saludos, amigos una consulta, tengo un formulario en excel, en la celda a4,
el usuario ingresa la fecha, como puedo hacer para que esa fecha nadie me la
pueda modificar, es decir que en el momento en que se dijite se proteja esa
celday no haya forma de modificarla.

Esto es porque trabajamos con un formulario para soporte de ti, y se tienen
2 dias para resolver alguna averia y algunas personas manipulan la fecha en
que se registro.

Alguien me puede ayudar????

GRACIASSSSSSSSSSSS!!!!!!!!!!!!!!!!!!

Doors:
Se puede hacer de dos maneras. En cualquiera de las alternativas que
uses ubica
el codigo en el area de codigo de la hoja y no en un modulo normal.
Las macros se activan
cuando estas en la celda B4.

En el primer caso no es necesario proteger la hoja:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error GoTo salir
Application.EnableEvents = False
If Target.Address = "$B$4" And (Target.Value = "" Or Target.Value
= 0) Then
MsgBox "Introduzca la fecha"
ElseIf Target.Address = "$B$4" And Target.Value > 0 Then
MsgBox "El formato ya tiene fecha"
Target.Offset(0, 1).Activate
End If
salir:
Application.EnableEvents = True
End Sub


En el segundo caso debes proteger la hoja, establecer las celdas que
aceptan datos
y definir una "clave" usando Proteccion en el menu de Herramientas.
Esta misma clave es la que vas a introducir en el codgio:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error GoTo salir
Application.EnableEvents = False
If Target.Address = "$B$4" And (Target.Value = "" Or Target.Value
= 0) Then
ActiveSheet.Unprotect "clave"
Range("B4") = InputBox("Introduzca la fecha")
If Range("B4") < 0 Then GoTo salir
Selection.Locked = True
ActiveSheet.Protect "clave"
ElseIf Target.Address = "$B$4" And Target.Value > 0 Then
MsgBox "El formato ya tiene fecha"
End If
salir:
Application.EnableEvents = True
End Sub


David

EXCELENTE!!!!!!!!!!! MUCHAS GRACIAS DAVID!!!!!

"dcanalesg" wrote:

On Sep 6, 4:20 pm, Doors wrote:
> Saludos, amigos una consulta, tengo un formulario en excel, en la celda a4,
> el usuario ingresa la fecha, como puedo hacer para que esa fecha nadie me la
> pueda modificar, es decir que en el momento en que se dijite se proteja esa
> celday no haya forma de modificarla.
>
> Esto es porque trabajamos con un formulario para soporte de ti, y se tienen
> 2 dias para resolver alguna averia y algunas personas manipulan la fecha en
> que se registro.
>
> Alguien me puede ayudar????
>
> GRACIASSSSSSSSSSSS!!!!!!!!!!!!!!!!!!

Doors:
Se puede hacer de dos maneras. En cualquiera de las alternativas que
uses ubica
el codigo en el area de codigo de la hoja y no en un modulo normal.
Las macros se activan
cuando estas en la celda B4.

En el primer caso no es necesario proteger la hoja:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error GoTo salir
Application.EnableEvents = False
If Target.Address = "$B$4" And (Target.Value = "" Or Target.Value
= 0) Then
MsgBox "Introduzca la fecha"
ElseIf Target.Address = "$B$4" And Target.Value > 0 Then
MsgBox "El formato ya tiene fecha"
Target.Offset(0, 1).Activate
End If
salir:
Application.EnableEvents = True
End Sub


En el segundo caso debes proteger la hoja, establecer las celdas que
aceptan datos
y definir una "clave" usando Proteccion en el menu de Herramientas.
Esta misma clave es la que vas a introducir en el codgio:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error GoTo salir
Application.EnableEvents = False
If Target.Address = "$B$4" And (Target.Value = "" Or Target.Value
= 0) Then
ActiveSheet.Unprotect "clave"
Range("B4") = InputBox("Introduzca la fecha")
If Range("B4") < 0 Then GoTo salir
Selection.Locked = True
ActiveSheet.Protect "clave"
ElseIf Target.Address = "$B$4" And Target.Value > 0 Then
MsgBox "El formato ya tiene fecha"
End If
salir:
Application.EnableEvents = True
End Sub


David

David una pregunta? , esa macro se puede utilizar en word??

"dcanalesg" wrote:

On Sep 6, 4:20 pm, Doors wrote:
> Saludos, amigos una consulta, tengo un formulario en excel, en la celda a4,
> el usuario ingresa la fecha, como puedo hacer para que esa fecha nadie me la
> pueda modificar, es decir que en el momento en que se dijite se proteja esa
> celday no haya forma de modificarla.
>
> Esto es porque trabajamos con un formulario para soporte de ti, y se tienen
> 2 dias para resolver alguna averia y algunas personas manipulan la fecha en
> que se registro.
>
> Alguien me puede ayudar????
>
> GRACIASSSSSSSSSSSS!!!!!!!!!!!!!!!!!!

Doors:
Se puede hacer de dos maneras. En cualquiera de las alternativas que
uses ubica
el codigo en el area de codigo de la hoja y no en un modulo normal.
Las macros se activan
cuando estas en la celda B4.

En el primer caso no es necesario proteger la hoja:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error GoTo salir
Application.EnableEvents = False
If Target.Address = "$B$4" And (Target.Value = "" Or Target.Value
= 0) Then
MsgBox "Introduzca la fecha"
ElseIf Target.Address = "$B$4" And Target.Value > 0 Then
MsgBox "El formato ya tiene fecha"
Target.Offset(0, 1).Activate
End If
salir:
Application.EnableEvents = True
End Sub


En el segundo caso debes proteger la hoja, establecer las celdas que
aceptan datos
y definir una "clave" usando Proteccion en el menu de Herramientas.
Esta misma clave es la que vas a introducir en el codgio:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error GoTo salir
Application.EnableEvents = False
If Target.Address = "$B$4" And (Target.Value = "" Or Target.Value
= 0) Then
ActiveSheet.Unprotect "clave"
Range("B4") = InputBox("Introduzca la fecha")
If Range("B4") < 0 Then GoTo salir
Selection.Locked = True
ActiveSheet.Protect "clave"
ElseIf Target.Address = "$B$4" And Target.Value > 0 Then
MsgBox "El formato ya tiene fecha"
End If
salir:
Application.EnableEvents = True
End Sub


David

On Sep 7, 6:48 am, Doors wrote:

David una pregunta? , esa macro se puede utilizar en word??



"dcanalesg" wrote:
> On Sep 6, 4:20 pm, Doors wrote:
> > Saludos, amigos una consulta, tengo un formulario en excel, en la celda a4,
> > el usuario ingresa la fecha, como puedo hacer para que esa fecha nadie me la
> > pueda modificar, es decir que en el momento en que se dijite se proteja esa
> > celday no haya forma de modificarla.

> > Esto es porque trabajamos con un formulario para soporte de ti, y se tienen
> > 2 dias para resolver alguna averia y algunas personas manipulan la fecha en
> > que se registro.

> > Alguien me puede ayudar????

> > GRACIASSSSSSSSSSSS!!!!!!!!!!!!!!!!!!

> Doors:
> Se puede hacer de dos maneras. En cualquiera de las alternativas que
> uses ubica
> el codigo en el area de codigo de la hoja y no en un modulo normal.
> Las macros se activan
> cuando estas en la celda B4.

> En el primer caso no es necesario proteger la hoja:

> Private Sub Worksheet_SelectionChange(ByVal Target As Range)
> On Error GoTo salir
> Application.EnableEvents = False
> If Target.Address = "$B$4" And (Target.Value = "" Or Target.Value
> = 0) Then
> MsgBox "Introduzca la fecha"
> ElseIf Target.Address = "$B$4" And Target.Value > 0 Then
> MsgBox "El formato ya tiene fecha"
> Target.Offset(0, 1).Activate
> End If
> salir:
> Application.EnableEvents = True
> End Sub

> En el segundo caso debes proteger la hoja, establecer las celdas que
> aceptan datos
> y definir una "clave" usando Proteccion en el menu de Herramientas.
> Esta misma clave es la que vas a introducir en el codgio:

> Private Sub Worksheet_SelectionChange(ByVal Target As Range)
> On Error GoTo salir
> Application.EnableEvents = False
> If Target.Address = "$B$4" And (Target.Value = "" Or Target.Value
> = 0) Then
> ActiveSheet.Unprotect "clave"
> Range("B4") = InputBox("Introduzca la fecha")
> If Range("B4") < 0 Then GoTo salir
> Selection.Locked = True
> ActiveSheet.Protect "clave"
> ElseIf Target.Address = "$B$4" And Target.Value > 0 Then
> MsgBox "El formato ya tiene fecha"
> End If
> salir:
> Application.EnableEvents = True
> End Sub

> David- Hide quoted text -

- Show quoted text -

Doors, se pueden automatizar procesos tambien en word con macros pero
la programacion es un poco
diferente y no la manejo.

David

Doors escribió el 07/09/2007 00:20 :

Saludos, amigos una consulta, tengo un formulario en excel, en la celda a4,
el usuario ingresa la fecha, como puedo hacer para que esa fecha nadie me la
pueda modificar, es decir que en el momento en que se dijite se proteja esa
celday no haya forma de modificarla.

Esto es porque trabajamos con un formulario para soporte de ti, y se tienen
2 dias para resolver alguna averia y algunas personas manipulan la fecha en
que se registro.

Alguien me puede ayudar????

GRACIASSSSSSSSSSSS!!!!!!!!!!!!!!!!!!

COMO PUEDO APLIAR ESTE MACRO NO SOLO A UNA CELDA, SINO A UN RANGO DE CELDAS, ES DECIR B4:B10

GRACIAS POR SU AYUDA