Si el nombre del libro no es el correcto, No habilitar los formularios
publicado
Hola! amigos del foro quisiera solicitarles el apoyo con lo siguiente, estoy intentando crear un código que revise al abrir un libro verifiqué si el nombre del libro es el asignado lo valide, en caso que el nombre no corresponda no permita habilitar los formularios que se encuentran en cada una de las hojas, los cuales se activan mediante un botón.
Inicialmente he creado el evento open para validar el nombre del libro, pero aún no logro como definir que si este nombre es diferente no permita habilitar los formularios con el clic del botón.
Agradezco la colaboración que me puedan brindar.
Private Sub Workbook_Open()
Dim nombre As String
Dim archivo As String
archivo = "C:\carpeta\libro1.xlsm"
nombre = ActiveWorkbook.FullName
If nombre = archivo Then
MsgBox "Hola Se ha revisado el nombre del libro"
Else
MsgBox "No tendra acceso a los formularios"
End If
End Sub
Hola! amigos del foro quisiera solicitarles el apoyo con lo siguiente, estoy intentando crear un código que revise al abrir un libro verifiqué si el nombre del libro es el asignado lo valide, en caso que el nombre no corresponda no permita habilitar los formularios que se encuentran en cada una de las hojas, los cuales se activan mediante un botón.
Inicialmente he creado el evento open para validar el nombre del libro, pero aún no logro como definir que si este nombre es diferente no permita habilitar los formularios con el clic del botón.
Agradezco la colaboración que me puedan brindar.
Private Sub Workbook_Open() Dim nombre As String Dim archivo As String archivo = "C:\carpeta\libro1.xlsm" nombre = ActiveWorkbook.FullName If nombre = archivo Then MsgBox "Hola Se ha revisado el nombre del libro" Else MsgBox "No tendra acceso a los formularios" End If End Sub
Libro2.xlsm