snaki Fco

Has esto;: Sub password() On Error Resume Next clave = "1234" intentos = 3 For Each N In Sheets N.Visible = False Next N For i = 0 To intentos pass = InputBox("Ingrese Password", "Inicio", "****") If pass = clave Then MsgBox "Bienvenido!",...

Debería ser así Agregas el modulo correspondiente en vb de excel l(ALT+f11 / IINSERTAR / MODULO) PEGA ESTO Sub Modifica_nombre() actual = Range("A1").Value nuevo = Range("B1").Value Name actual As nuevo End Sub Suerte!

Enviame al siguiente mail archivos de ejemplo para ver cual es el error [email protected]

Ok, ya te entendí Mira modifícalo así Private Sub Workbook_Open() clave = InputBox("Ingrese Clave", "Password", "************") If clave = 2536 Then MsgBox "Bienvenido" Else Application.DisplayAlerts = False Application.Quit End If End Sub

herramientas => Seguridad y listo, pones tu contraseña

Me podrías enviar un archivo excel para poder agregarte la macro que necesitas

Intenta con esto Sub elimina() Range("A2").Select Do While Not IsEmpty(ActiveCell) If ActiveCell.Row <= 2 Then ActiveCell.Delete shift:=xlUp End If If ActiveCell = "HOLA " Then ActiveCell.Offset(-1, 0).Select ActiveCell.Delete shift:=xlUp ElseIf...

El 2 problemas 1) Es que le estas pasando un nombre de HOJA que no existe ActiveWorkbook.Worksheets("nombre_del_fichero") le estas diciendo que la hoja del libro actual se llama nombre_del_fichero, 2) para asignar la variable nombre_del_fichero es...

Para obtener el nombre del archivo debes poner esto: ActiveWorkbook. Name

Lo que podemos hacer es una macro que realize el proceso, podrías enviarme un mail con tu archivo ejemplo, y te lo genero y te lo envío con tu problema resulto.