Libro en Red (LAN)

hola, !

Tengo un archivo en la red, donde es actulizado por varios usuario, hay una hoja para cada uno de ellos,
tengo varias quejas de que actulizan los datos pero alguien despues los borra.
Lo que necesito es colocar una cotraseña para cada usuario
de modo que solo pueda entrar y actulizar los datos en la hoja que le corresponde.
Si hay alguna otra forma, de poder controlar esto.
P.D
EL Archivo no esta compartido (solo un usuario lo puede actulizar a la vez)

ya que tu archivo NO esta compartido, podrias usar algo +/- como lo siguiente
-> en el modulo de codigo del libro [ThisWorkbook]:
Private Sub Workbook_Open()
Select Case InputBox("Indica por favor tu clave de usuario.", "OBLIGATORIO !!!")
Case "UsUariO 1"
Worksheets("hoja1").Visible = True
Case "usuario 2"
Worksheets("hoja2").Visible = True
Case "uSuAriO 3"
Worksheets("hoja3").Visible = True
' otros Case como sean necesarios... '
Case Else
MsgBox "Cerrando el libro por faltas a la moral :))"
End Select
End Sub

nota que la clave que se introduzca debera ser EXACTA a la que esta 'comparando' el codigo y...
si no quieres que 'se vea' [en un inputbox]... habra que adaptar un userform con -solo- un control textbox, y... [etc.]

tambien sera necesario mantener el resto de las hojas NO visibles [propiedad = xlSheetVeryHidden]
ya que aun ocultando las etiquetas con sus nombres, existen varios metodos de 'navegacion' por las hojas de un libro :-(

si cualquier duda [o informacion adicional]... comentas ?
saludos,
hector.

Hola,

coloque el codigo como dice en ThisWorkbook


Private Sub Workbook_Open()
Select Case InputBox("Ingrese su clave de acceso.", "porvenir")
Case "cvela1"
Worksheets("R1").Visible = True
Case "Alope5"
Worksheets("R2").Visible = True
Case "echac1"
Worksheets("R3").Visible = True
Case "ncaba1"
Worksheets("RT").Visible = True
' otros Case como sean necesarios... '
Case Else
MsgBox "Cerrando el libro por faltas a la moral :))"
End Select
End Sub

cuando abro el libro me aparece el InputBox, ingreso la clave pero me
aparece el mensaje de "Cerrando el libro por faltas a la moral :))" le doy
Ok. y todas las hojas quedan habilitadas.

En esto de codigos de VB no soy muy experto, si no es mucha molestia y si
tiene un ejemplo, este es mi correo.

nel_cab(arroba)hotmail.com




"Héctor Miguel" wrote in message
news:

hola, !

Tengo un archivo en la red, donde es actulizado por varios usuario, hay
una hoja para cada uno de ellos,
tengo varias quejas de que actulizan los datos pero alguien despues los
borra.
Lo que necesito es colocar una cotraseña para cada usuario
de modo que solo pueda entrar y actulizar los datos en la hoja que le
corresponde.
Si hay alguna otra forma, de poder controlar esto.
P.D
EL Archivo no esta compartido (solo un usuario lo puede actulizar a la
vez)

ya que tu archivo NO esta compartido, podrias usar algo +/- como lo
siguiente
-> en el modulo de codigo del libro [ThisWorkbook]:
Private Sub Workbook_Open()
Select Case InputBox("Indica por favor tu clave de usuario.",
"OBLIGATORIO !!!")
Case "UsUariO 1"
Worksheets("hoja1").Visible = True
Case "usuario 2"
Worksheets("hoja2").Visible = True
Case "uSuAriO 3"
Worksheets("hoja3").Visible = True
' otros Case como sean necesarios... '
Case Else
MsgBox "Cerrando el libro por faltas a la moral :))"
End Select
End Sub

nota que la clave que se introduzca debera ser EXACTA a la que esta
'comparando' el codigo y...
si no quieres que 'se vea' [en un inputbox]... habra que adaptar un
userform con -solo- un control textbox, y... [etc.]

tambien sera necesario mantener el resto de las hojas NO visibles
[propiedad = xlSheetVeryHidden]
ya que aun ocultando las etiquetas con sus nombres, existen varios metodos
de 'navegacion' por las hojas de un libro :-(

si cualquier duda [o informacion adicional]... comentas ?
saludos,
hector.

hola, (...) ?

1) si despues de introducir alguna clave *valida* en el inputbox que debe coincidir con algun *Case*...
salta el mensaje del *Case Else*, significa que la clave introducida NO COINCIDE con ninguna en los *Cases*

-> si recuerdas del mensaje con la propuesta el comentario que dice:
">> nota que la clave que se introduzca debera ser EXACTA a la que esta 'comparando' el codigo..."
significa [p.e.] que si para el Case "cvela1" se introduce CVELA1... o CVeLa1... o cveLA1 [etc.] ya no es lo mismo
o sea, la clave es *sensible* a las may/min/usculas que el *Case* esta esperando del inputbox ;)

2) para *conservar* las hojas ocultas y que al abrir el libro se muestre SOLO la que corresponda [en su caso]
seria recomendable usar el evento de cierre del libro para ocultar TODAS menos una [como *pantalla de bienvenida* ?]
o puedes ocultarlas todas desde la interfase de usuario [menos la que vaya a servir de pantalla]
y agregar las siguientes modificaciones y agregados al modulo de codigo de tu libro [ThisWorkbook]

Private Sub Workbook_Open()
Select Case InputBox("Ingrese su clave de acceso.", "porvenir")
Case "cvela1"
Worksheets("R1").Visible = True
Case "Alope5"
Worksheets("R2").Visible = True
Case "echac1"
Worksheets("R3").Visible = True
Case "ncaba1"
Worksheets("RT").Visible = True
' otros Case como sean necesarios... '
Case Else
ThisWorkbook.Close False
End Select
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
On Error Resume Next
ActiveSheet.Visible = xlSheetVeryHidden
ThisWorkbook.Close True
End Sub

saludos,
hector.

__ la consulta original __

coloque el codigo como dice en ThisWorkbook
Private Sub Workbook_Open()
Select Case InputBox("Ingrese su clave de acceso.", "porvenir")
Case "cvela1"
Worksheets("R1").Visible = True
Case "Alope5"
Worksheets("R2").Visible = True
Case "echac1"
Worksheets("R3").Visible = True
Case "ncaba1"
Worksheets("RT").Visible = True
' otros Case como sean necesarios... '
Case Else
MsgBox "Cerrando el libro por faltas a la moral :))"
End Select
End Sub

cuando abro el libro me aparece el InputBox, ingreso la clave pero me aparece el mensaje de
"Cerrando el libro por faltas a la moral :))" le doy Ok. y todas las hojas quedan habilitadas...

Tengo un archivo en la red, donde es actulizado por varios usuario, hay una hoja para cada uno de ellos,
tengo varias quejas de que actulizan los datos pero alguien despues los borra.
Lo que necesito es colocar una cotraseña para cada usuario
de modo que solo pueda entrar y actulizar los datos en la hoja que le corresponde.
Si hay alguna otra forma, de poder controlar esto.
P.D
EL Archivo no esta compartido (solo un usuario lo puede actulizar a la vez)

ya que tu archivo NO esta compartido, podrias usar algo +/- como lo siguiente
-> en el modulo de codigo del libro [ThisWorkbook]:
Private Sub Workbook_Open()
Select Case InputBox("Indica por favor tu clave de usuario.", "OBLIGATORIO !!!")
Case "UsUariO 1"
Worksheets("hoja1").Visible = True
Case "usuario 2"
Worksheets("hoja2").Visible = True
Case "uSuAriO 3"
Worksheets("hoja3").Visible = True
' otros Case como sean necesarios... '
Case Else
MsgBox "Cerrando el libro por faltas a la moral :))"
End Select
End Sub

nota que la clave que se introduzca debera ser EXACTA a la que esta 'comparando' el codigo y...
si no quieres que 'se vea' [en un inputbox]... habra que adaptar un userform con -solo- un control textbox, y... [etc.]

tambien sera necesario mantener el resto de las hojas NO visibles [propiedad = xlSheetVeryHidden]
ya que aun ocultando las etiquetas con sus nombres, existen varios metodos de 'navegacion' por las hojas de un libro :-(

si cualquier duda [o informacion adicional]... comentas ?
saludos,
hector.

Hoy si, Muchisimas gracias Hector.




"Héctor Miguel" wrote in message
news:etM%

hola, (...) ?

1) si despues de introducir alguna clave *valida* en el inputbox que debe
coincidir con algun *Case*...
salta el mensaje del *Case Else*, significa que la clave introducida NO
COINCIDE con ninguna en los *Cases*

-> si recuerdas del mensaje con la propuesta el comentario que dice:
">> nota que la clave que se introduzca debera ser EXACTA a la que esta
'comparando' el codigo..."
significa [p.e.] que si para el Case "cvela1" se introduce CVELA1... o
CVeLa1... o cveLA1 [etc.] ya no es lo mismo
o sea, la clave es *sensible* a las may/min/usculas que el *Case* esta
esperando del inputbox ;)

2) para *conservar* las hojas ocultas y que al abrir el libro se muestre
SOLO la que corresponda [en su caso]
seria recomendable usar el evento de cierre del libro para ocultar
TODAS menos una [como *pantalla de bienvenida* ?]
o puedes ocultarlas todas desde la interfase de usuario [menos la que
vaya a servir de pantalla]
y agregar las siguientes modificaciones y agregados al modulo de codigo
de tu libro [ThisWorkbook]

Private Sub Workbook_Open()
Select Case InputBox("Ingrese su clave de acceso.", "porvenir")
Case "cvela1"
Worksheets("R1").Visible = True
Case "Alope5"
Worksheets("R2").Visible = True
Case "echac1"
Worksheets("R3").Visible = True
Case "ncaba1"
Worksheets("RT").Visible = True
' otros Case como sean necesarios... '
Case Else
ThisWorkbook.Close False
End Select
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
On Error Resume Next
ActiveSheet.Visible = xlSheetVeryHidden
ThisWorkbook.Close True
End Sub

saludos,
hector.

__ la consulta original __

coloque el codigo como dice en ThisWorkbook
Private Sub Workbook_Open()
Select Case InputBox("Ingrese su clave de acceso.", "porvenir")
Case "cvela1"
Worksheets("R1").Visible = True
Case "Alope5"
Worksheets("R2").Visible = True
Case "echac1"
Worksheets("R3").Visible = True
Case "ncaba1"
Worksheets("RT").Visible = True
' otros Case como sean necesarios... '
Case Else
MsgBox "Cerrando el libro por faltas a la moral :))"
End Select
End Sub

cuando abro el libro me aparece el InputBox, ingreso la clave pero me
aparece el mensaje de
"Cerrando el libro por faltas a la moral :))" le doy Ok. y todas las
hojas quedan habilitadas...

Tengo un archivo en la red, donde es actulizado por varios usuario, hay
una hoja para cada uno de ellos,
tengo varias quejas de que actulizan los datos pero alguien despues los
borra.
Lo que necesito es colocar una cotraseña para cada usuario
de modo que solo pueda entrar y actulizar los datos en la hoja que le
corresponde.
Si hay alguna otra forma, de poder controlar esto.
P.D
EL Archivo no esta compartido (solo un usuario lo puede actulizar a la
vez)

ya que tu archivo NO esta compartido, podrias usar algo +/- como lo
siguiente
-> en el modulo de codigo del libro [ThisWorkbook]:
Private Sub Workbook_Open()
Select Case InputBox("Indica por favor tu clave de usuario.",
"OBLIGATORIO !!!")
Case "UsUariO 1"
Worksheets("hoja1").Visible = True
Case "usuario 2"
Worksheets("hoja2").Visible = True
Case "uSuAriO 3"
Worksheets("hoja3").Visible = True
' otros Case como sean necesarios... '
Case Else
MsgBox "Cerrando el libro por faltas a la moral :))"
End Select
End Sub

nota que la clave que se introduzca debera ser EXACTA a la que esta
'comparando' el codigo y...
si no quieres que 'se vea' [en un inputbox]... habra que adaptar un
userform con -solo- un control textbox, y... [etc.]

tambien sera necesario mantener el resto de las hojas NO visibles
[propiedad = xlSheetVeryHidden]
ya que aun ocultando las etiquetas con sus nombres, existen varios
metodos de 'navegacion' por las hojas de un libro :-(

si cualquier duda [o informacion adicional]... comentas ?
saludos,
hector.