Jump to content

Detectar si hay mas de 1 libro abierto


djpawngdl

Recommended Posts

Que tal amigos del foro, necesito saber si es posible mediante alguna instruccion en vba que excel me detecte si hay mas libros abiertos, ya que tengo una instruccion a un libro que me limita el numero de usos, la cual es la siguiente

usos = Sheets("PEDABA").Range("A3")

If usos = 0 Then MsgBox "llame al administrador"

Sheets("PEDABA").Range("A4") = Sheets("PEDABA").Range("A4") + 1

If usos = 0 Then CLAVES.Show

Application.WindowState = xlMinimized

Me.Windows(1).WindowState = xlMinimized

entrada.Show

End Sub

en caso de que el numero de usos ya esta en cero se abre este userform, el cual ya funciona a la perfeccion,

Private Sub CommandButton1_Click()

If usuario = "***" And contraseña = "***" Then

CLAVEUSOS = InputBox("INGRESE EL NUMERO DE USOS PARA ESTA LICENCIA")

Sheets("PEDABA").Select

Range("A2") = CLAVEUSOS

Sheets("pedaba").Range("a4") = 1

MsgBox " SE HAN INGRESADO MAS LICENCIAS DE USO", vbOKOnly, "CONTROL DE INVENTARIOS"

Sheets("PEDABA").Range("a3") = "=-A4+A2"

CLAVES.Hide

entrada.Show

End If

MsgBox "CONTRASEÑA INCORRECTA", vbOKOnly, "CONTROL DE INVENTARIOS"

MsgBox " DEBE LLAMAR AL ADMINISTRADOR DEL LIBRO ", vbOKOnly, " CONTROL DE INVENTARIOS"

End Sub

el problema es que si tengo otro libro abierto pueden mediante el editor de vba entrar a mi otro libro y no quiero que ni siquiera entren a las hojas de calculo, ya que si se modifica de manera manual la hoja "pedaba" en el rango de licencias "a2,a3 y a4" de nada me sirve, el codigo anterior

Concretamente se puede mediante algun codigo detectar si hay otro libro abierto y si este se abre estando otro abierto se cierre acutomaticamente

muchas gracias

Link to comment
Share on other sites

Guest
This topic is now closed to further replies.
×
×
  • Create New...

Important Information

Privacy Policy