Bienvenido a la mayor comunidad de usuarios EXCEL

Regístrate gratis ahora para ver contenidos y descargas sin restricciones!

Regístrate gratis

Si el nombre del libro no es el correcto, No habilitar los formularios

Jose BN

Active member
Registrado
18 Abr 2011
Mensajes
212
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...
Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes
iniciar sesión aquí
 

Adjuntos

Solución
Gracias al aporte de @Enigma25
Tema solucionado, comparto la solución

Código:
Private Sub Workbook_Open()
Dim I As Integer
Dim nombre As String

Dim archivo As String



archivo = "C:\carpeta\libro1.xlsm"

nombre = ActiveWorkbook.FullName


If nombre = archivo Then


    For I = 1 To Sheets.Count
       
        Sheets(I).CommandButton1.Enabled = True
   
    Next I
   
MsgBox "Hola Se ha revisado el nombre del libro"


Else

    For I = 1 To Sheets.Count
       
        Sheets(I).CommandButton1.Enabled = False
   
    Next I

MsgBox "No tendra acceso a los formularios"


End If

End Sub
Volver
Arriba