Puedo Poner password en Celdas....

Puedes proteger la celda (menu formato-celdas).Tendrás que proteger la hoja.
Léete la ayuda de proteger.



"Miguel Cazares" escribió en el mensaje
news:%

Compañeros un saludos...

Quisiera poner password o alguo para que no puedan capturar algun valor en
cierto numero de celdas en una hoja, ya que tienen formulas y no quisiera
que por algo capturen algo y se borre la formula...

Por su ayuda muchas gracias

Miguel Cazares V.

Te recomiendo que leas el articulo de Héctor Miguel en el siguiente vinculo,
contiene información muy valiosa y está bastante bien explicado (cuando
menos para mi).

Saludos

Mario Alberto

http://www.vbalym.netfirms.com/excel/exarc1.html

> Quisiera poner password o alguo para que no puedan capturar algun valor

en

> cierto numero de celdas en una hoja, ya que tienen formulas y no

quisiera

> que por algo capturen algo y se borre la formula...
>
> Por su ayuda muchas gracias
>
> Miguel Cazares V.
>
>

Mario Cheque el codigo de Hector pero no puedo seleccionar un grupo de
celdas tengo este codigo

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Permiso As String
If Range("X6:ab55").Address >= Target.Address Then
Permiso = InputBox("¿Cuál es tu clave?")
If Permiso <> "sis2003" Then
MsgBox "Clave incorrecta", vbDefaultButton1
Else
Target.Offset(-1, 0).Select
End If
End If
End Sub

pero no selecciona esas celdas, como puedo seleccionar un grupo de celdas

Gracias

Miguel
"Mario Alberto" <NOrodriguezSPAMsma@@hPLSotmail.com> escribió en el mensaje
news:%

Te recomiendo que leas el articulo de Héctor Miguel en el siguiente

vinculo,

contiene información muy valiosa y está bastante bien explicado (cuando
menos para mi).

Saludos

Mario Alberto

http://www.vbalym.netfirms.com/excel/exarc1.html


> > Quisiera poner password o alguo para que no puedan capturar algun

valor

en
> > cierto numero de celdas en una hoja, ya que tienen formulas y no
quisiera
> > que por algo capturen algo y se borre la formula...
> >
> > Por su ayuda muchas gracias
> >
> > Miguel Cazares V.
> >
> >
>
>

Hola, Miguel !

... tengo este codigo pero no selecciona esas celdas [...]
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Permiso As String
If Range("X6:ab55").Address >= Target.Address Then
Permiso = InputBox("¿Cuál es tu clave?")
If Permiso <> "sis2003" Then
MsgBox "Clave incorrecta", vbDefaultButton1
Else
Target.Offset(-1, 0).Select
End If
End If
End Sub

1) el evento _SelectionChange se 'dispara' cuando se cambia la seleccion de la celda activa
[NO 'esperes' que el rango indicado 'se seleccione' por efectos del codigo] ;)
2) si son varias las celdas a 'monitorear', primero se debe 'verificar' si el cambio de la celda activa 'queda dentro de'
3) la 'estructura' del =>If Permiso...End If<= esta 'planteada' a la inversa :(
a) si la clave es 'incorrecta', presenta el mensaje 'pero'... SE QUEDA en la celda 'prohibida' :((
b) si la clave es CORRECTA, 'se mueve' a la celda superior => esta al reves <= :)
4) si el codigo 'rechaza' al usuario y 'lo manda' a la celda superior, y esta de arriba TAMBIEN es del rango 'prohibido'...
... lo seguira 'mandando' a la... [celda de arriba] ...entonces...
si el rango es 'extenso', seria mejor 'mandar' al usuario a alguna celda FUERA del rango 'prohibido', digamos... "a1"???
5) si la clave 'entrada' es [p.e.] 'SIS2003' -o- 'Sis2003' -o- 'sIs2003' =>NINGUNA sera 'igual' a 'sis2003'
==> [VBA 'toma en cuenta' si se trata de mayusculas o minusculas al 'comparar' textos] <=
==> 'estudia' el siguiente codigo y haz la 'prueba' ;):
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
' si la celda seleccionada NO 'es parte' del rango 'prohibido' NO 'ejecuta' la verificacion '
If Intersect(Target, Range("x6:ab55")) Is Nothing Then Exit Sub
If InputBox("¿Cuál es tu clave?") <> "sis2003" Then
MsgBox "Clave incorrecta"
Range("a1").Select
End If
End Sub
_______
Saludos,
Héctor.
MS-MVP

No pretendo 'agüar' la fiesta pero ¿qué ocurre si deshabilitan las macros?


"Héctor Miguel" escribió en el mensaje
news:

Hola, Miguel !

> ... tengo este codigo pero no selecciona esas celdas [...]
> Private Sub Worksheet_SelectionChange(ByVal Target As Range)
> Dim Permiso As String
> If Range("X6:ab55").Address >= Target.Address Then
> Permiso = InputBox("¿Cuál es tu clave?")
> If Permiso <> "sis2003" Then
> MsgBox "Clave incorrecta", vbDefaultButton1
> Else
> Target.Offset(-1, 0).Select
> End If
> End If
> End Sub

1) el evento _SelectionChange se 'dispara' cuando se cambia la

seleccion de la celda activa

[NO 'esperes' que el rango indicado 'se seleccione' por efectos

del codigo] ;)

2) si son varias las celdas a 'monitorear', primero se debe

'verificar' si el cambio de la celda activa 'queda dentro de'

3) la 'estructura' del =>If Permiso...End If<= esta 'planteada' a la

inversa :(

a) si la clave es 'incorrecta', presenta el mensaje 'pero'... SE

QUEDA en la celda 'prohibida' :((

b) si la clave es CORRECTA, 'se mueve' a la celda superior =>

esta al reves <= :)

4) si el codigo 'rechaza' al usuario y 'lo manda' a la celda superior,

y esta de arriba TAMBIEN es del rango 'prohibido'...

... lo seguira 'mandando' a la... [celda de arriba]

...entonces...

si el rango es 'extenso', seria mejor 'mandar' al usuario a

alguna celda FUERA del rango 'prohibido', digamos... "a1"???

5) si la clave 'entrada' es [p.e.] 'SIS2003' -o- 'Sis2003' -o-

'sIs2003' =>NINGUNA sera 'igual' a 'sis2003'

==> [VBA 'toma en cuenta' si se trata de mayusculas o minusculas

al 'comparar' textos] <=>

==> 'estudia' el siguiente codigo y haz la 'prueba' ;):
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
' si la celda seleccionada NO 'es parte' del rango 'prohibido' NO

'ejecuta' la verificacion '

If Intersect(Target, Range("x6:ab55")) Is Nothing Then Exit Sub
If InputBox("¿Cuál es tu clave?") <> "sis2003" Then
MsgBox "Clave incorrecta"
Range("a1").Select
End If
End Sub
_______
Saludos,
Héctor.
MS-MVP