Carlos Arrocha

[Hola. Te lo puedo preparar, pero necesito más información. Si puedes añadir imagen mejor

[Hola. Prueba así: Application.DisplayAlerts = False 'Guardar archivo para permitir el acceso, pero requiere una contraseña para modificar ThisWorkbook.SaveAs writeResPassword: = "Password" ‘<--Aquí tu clave Application.DisplayAlerts = True

[Hola. Lo primero para que se te abra el "frm_login" es llamarlo desde el ThisWorkbook, en el evento open pones frm_login.Show. Una vez evaluada la contraseña, dentro del botón y al final de la rutina colocas: unload me frm_menu.Show Una vez dentro...

[Hola Prueba así. Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Excel.Range) Sheets("Nombre de la Hoja"). UnProtect Y al final de la macro vuelves a proteger la hoha Sheets("Nombre de la Hoja"). Protect End sub

¿Qué nombre tienen las casillas?

[Hola. Inténtalo así aprovechando el mismo código que tienes a ver si te sirve Sheets(Array("FACTURA", "NOTA", "PRESUPUESTO", "INFORME", "GUIA").Select

[Hola. Esta macro te busca un valor en la hoja2, columna A, y te selecciona la que esta a su derecha. Para que funciones necesitas elegir el valor a buscar en un combobox Si quieres que te muestre el resultado en el formulario, coloca un label "Label2"

Prueba con este código Private Sub TextBox1_Change() UserForm2.TextBox1.Value = UserForm1.TextBox1.Value End Sub

Prueba con esta simple macro. Sub CopiarRango() Hoja1.Range("A1:A10").Copy Hoja2.Range("B1:B10") End Sub Solo tienes que modificar el rango a tu criterio

Pon el siguiente código dentro de un módulo Sub CerrarSinGuardar() ActiveWorkbook.Close Savechanges:=False End Sub Luego lo llamas dentro de ThisWorkbook call CerrarSinGuardar