Adriel Ortiz Mangia

H o l a: esto ingresa en un módulo Public Function ValidarCaracter(ByVal KeyAscii As Integer) As Integer If (KeyAscii >= 97) And (KeyAscii < 122) Or (KeyAscii >= 65) And (KeyAscii < 90) Then MsgBox "INGRESE SOLO EL NUMERO" KeyAscii = 8 End If End...

H o l a: Te paso la macro y actualiza las celdas para el nombre del pdf Ruta = ThisWorkbook.Path & "\" '*-*-*-*-*-*-*-*-*-*-*-*-*-*-*- nomb = [A1] & "_" & [A2] & "_" & [A3] & "_" & [A4] ' EN ESTA LINEA CAMBIA LAS CELDAS PARA EL NOMBRE DEL ARCHIVO...

H o l a aquí la explicación https://www.youtube.com/watch?v=vJqf6E4-mwI curso de seguridad en vba http://excelservicios.com/curso-seguridad-vba-excel/

Revisa esta web http://www.taringa.net/post/info/12161192/Quitar-contrasena-visual-basic-de-excel.html

Hey! Revisa esto https://www.youtube.com/results?search_query=otto+javier+gonz%C3%A1lez+ https://www.youtube.com/results?search_query=david+asurmendi

Puedes poner un ejemplo o mostrar la hoja saludos!

H o l a Private Sub UserForm_Initialize() ComboBox1. AddItem "Factura A" ComboBox1. AddItem "Factura B" End Sub valora para finalizar saludos!

Private Sub CommandButton2_Click() importe = Val(TextBox1) * Val(TextBox2) Range("A1").Value = CDbl(importe) End Sub usa CDBL para pasar a la hoja Valora finalizar saludos!

H o l siguiendo el ejemplo anterior has los siguientes cambios Private Sub CommandButton1_Click() If ListBox1.ListIndex = -1 Then MsgBox "Seleccione una hoja", vbInformation, "AVISO" Exit Sub End If Set h = Sheets(ListBox1.ListIndex)...

Jey Te paso la macro Sub OcultarRestantes() Set h = Sheets("indice") For Each Sheet In ActiveWorkbook.Sheets If Sheet.Name <> h.Name Then Sheet.Visible = False End If Next Sheet End Sub Sub Mostrar() Set h = Sheets("indice") For Each Sheet In...