| minimem |  |
|
2007-06-03 05:52 - Respuestas: 11 - Tema nº: 2450463
Amigo te agradezco los programas que enviate los ejeute y los combine de acuerdo a mis necesidades, te comento que ya corre bién sólo la ultima pregunta del millón de agradeciminetos
¿Como le hago para que la macro no la modifique cualquier otra persona que lo utilice?
Te mando el código final que manda a llamar archivos con distintos subdirectorios, abre y cierra por medio de combox.
Muchas gracias.
Private Sub CommandButton1_Click()
Workbooks.Open Me.ComboBox1.Text
End Sub
Private Sub CommandButton2_Click()
Me.ComboBox1.Clear
Workbooks.Close
End Sub
Private Sub Worksheet_Activate()
Dim nm As String
On Error Resume Next
Me.ComboBox1.Clear
nm = Dir$("C:\Cursos\CO-01-01\*.xls")
nm = Dir$("C:\Cursos\CO-03-01\*.xls")
nm = Dir$("C:\Cursos\CO-04-01\*.xls")
nm = Dir$("C:\Cursos\EJ-01-01\*.xls")
nm = Dir$("C:\Cursos\OR-01-01\*.xls")
nm = Dir$("C:\Cursos\OR-02-01\*.xls")
nm = Dir$("C:\Cursos\PL-01-01\*.xls")
nm = Dir$("C:\Cursos\PL-02-01\*.xls")
nm = Dir$("C:\Cursos\PL-03-01\*.xls")
nm = Dir$("C:\Cursos\PL-04-01\*.xls")
If Err = 0 Then
Do While Len(nm)
ComboBox1.AddItem "C:\Cursos\CO-01-01\Informe de Evaluaciones.xls"
ComboBox1.AddItem "C:\Cursos\CO-01-02\Evaluación Reacción.xls"
ComboBox1.AddItem "C:\Cursos\CO-01-04\Reporte Final Instructor.xls"
ComboBox1.AddItem "C:\Cursos\CO-01-05\Registro de Participantes.xls"
ComboBox1.AddItem "C:\Cursos\CO-01-06\Lista de Asistencia de Participantes.xls"
ComboBox1.AddItem "C:\Cursos\CO-01-07\Evaluación por Participante.xls"
ComboBox1.AddItem "C:\Cursos\CO-01-08\Evaluación Jefe Inmediato.xls"
ComboBox1.AddItem "C:\Cursos\CO-03-01\Segui Prog Específicos Capacitación.xls"
ComboBox1.AddItem "C:\Cursos\CO-03-02\Valoración de Aptitudes.xls"
ComboBox1.AddItem "C:\Cursos\CO-03-03\Encu Evalua Trabajador Fin Capaci.xls"
ComboBox1.AddItem "C:\Cursos\CO-04-01\Constancia de Habilidades Laborables Aptitud.xls"
ComboBox1.AddItem "C:\Cursos\CO-04-02\Lista Constancia de Habilidades.xls"
ComboBox1.AddItem "C:\Cursos\CO-04-03\Cuadro de Titulares.xls"
ComboBox1.AddItem "C:\Cursos\EJ-01-01\Plan de Sesión Guia.xls"
ComboBox1.AddItem "C:\Cursos\EJ-01-02\Resultado y avance.xls"
ComboBox1.AddItem "C:\Cursos\EJ-01-03\Actividades Realizadas.xls"
ComboBox1.AddItem "C:\Cursos\EJ-01-04\Informes de Actividades Realizadas.xls"
ComboBox1.AddItem "C:\Cursos\OR-01-01\Prog de Capa desarrollo"
ComboBox1.AddItem "C:\Cursos\OR-01-02\Resumen proceso Cap Desa.xls"
ComboBox1.AddItem "C:\Cursos\OR-01-03\Resumen Basico.xls"
ComboBox1.AddItem "C:\Cursos\OR-01-04\Calendario de capacitacion.xls"
ComboBox1.AddItem "C:\Cursos\OR-01-05\Cartera de Instructores.xls"
ComboBox1.AddItem "C:\Cursos\OR-01-06\Ficha de Registro repre.xls"
ComboBox1.AddItem "C:\Cursos\OR-01-07\Catalogo de Instalaciones.xls"
ComboBox1.AddItem "C:\Cursos\OR-01-08\Inform Basica.xls"
ComboBox1.AddItem "C:\Cursos\OR-02-01\Directorio de instructores.xls"
ComboBox1.AddItem "C:\Cursos\PL-01-01\Perfil de Puesto.xls"
ComboBox1.AddItem "C:\Cursos\PL-02-01\Bateria de Capacitación.xls"
ComboBox1.AddItem "C:\Cursos\PL-02-02\Objetivos de Batería.xls"
ComboBox1.AddItem "C:\Cursos\PL-02-03\Temario Actividades.xls"
ComboBox1.AddItem "C:\Cursos\PL-03-01\Perfil de Capacitación.xls"
ComboBox1.AddItem "C:\Cursos\PL-03-02\Historial Capacitación Kardex.xls"
ComboBox1.AddItem "C:\Cursos\PL-04-01\Cedula de DNC.xls"
ComboBox1.AddItem "C:\Cursos\PL-05-01\Ident Clasif de Eventos.xls"
nm = Dir$
Loop
End If
Err = 0
End Sub
| |
|
|
| ebolo |  |
|
Re: Como crear una macro Continuación (Solucionado) - 2007-06-04 12:55 - Respuesta 12
Hola minmen, como has dejedo el código no tiene mucho sentido porque estas metiendo al combobox1 todos los archivos directamente a mano; en éste caso es mejor dejar el código de esta forma:
Private Sub CommandButton1_Click()
Workbooks.Open Me.ComboBox1.Text
End Sub
Private Sub CommandButton2_Click()
Me.ComboBox1.Clear
Workbooks.Close
End Sub
Private Sub Worksheet_Activate()
On Error Resume Next
Me.ComboBox1.Clear
ComboBox1.AddItem "C:\Cursos\CO-01-01\Informe de Evaluaciones.xls"
ComboBox1.AddItem "C:\Cursos\CO-01-02\Evaluación Reacción.xls"
ComboBox1.AddItem "C:\Cursos\CO-01-04\Reporte Final Instructor.xls"
ComboBox1.AddItem "C:\Cursos\CO-01-05\Registro de Participantes.xls"
ComboBox1.AddItem "C:\Cursos\CO-01-06\Lista de Asistencia de Participantes.xls"
ComboBox1.AddItem "C:\Cursos\CO-01-07\Evaluación por Participante.xls"
ComboBox1.AddItem "C:\Cursos\CO-01-08\Evaluación Jefe Inmediato.xls"
ComboBox1.AddItem "C:\Cursos\CO-03-01\Segui Prog Específicos Capacitación.xls"
ComboBox1.AddItem "C:\Cursos\CO-03-02\Valoración de Aptitudes.xls"
ComboBox1.AddItem "C:\Cursos\CO-03-03\Encu Evalua Trabajador Fin Capaci.xls"
ComboBox1.AddItem "C:\Cursos\CO-04-01\Constancia de Habilidades Laborables Aptitud.xls"
ComboBox1.AddItem "C:\Cursos\CO-04-02\Lista Constancia de Habilidades.xls"
ComboBox1.AddItem "C:\Cursos\CO-04-03\Cuadro de Titulares.xls"
ComboBox1.AddItem "C:\Cursos\EJ-01-01\Plan de Sesión Guia.xls"
ComboBox1.AddItem "C:\Cursos\EJ-01-02\Resultado y avance.xls"
ComboBox1.AddItem "C:\Cursos\EJ-01-03\Actividades Realizadas.xls"
ComboBox1.AddItem "C:\Cursos\EJ-01-04\Informes de Actividades Realizadas.xls"
ComboBox1.AddItem "C:\Cursos\OR-01-01\Prog de Capa desarrollo"
ComboBox1.AddItem "C:\Cursos\OR-01-02\Resumen proceso Cap Desa.xls"
ComboBox1.AddItem "C:\Cursos\OR-01-03\Resumen Basico.xls"
ComboBox1.AddItem "C:\Cursos\OR-01-04\Calendario de capacitacion.xls"
ComboBox1.AddItem "C:\Cursos\OR-01-05\Cartera de Instructores.xls"
ComboBox1.AddItem "C:\Cursos\OR-01-06\Ficha de Registro repre.xls"
ComboBox1.AddItem "C:\Cursos\OR-01-07\Catalogo de Instalaciones.xls"
ComboBox1.AddItem "C:\Cursos\OR-01-08\Inform Basica.xls"
ComboBox1.AddItem "C:\Cursos\OR-02-01\Directorio de instructores.xls"
ComboBox1.AddItem "C:\Cursos\PL-01-01\Perfil de Puesto.xls"
ComboBox1.AddItem "C:\Cursos\PL-02-01\Bateria de Capacitación.xls"
ComboBox1.AddItem "C:\Cursos\PL-02-02\Objetivos de Batería.xls"
ComboBox1.AddItem "C:\Cursos\PL-02-03\Temario Actividades.xls"
ComboBox1.AddItem "C:\Cursos\PL-03-01\Perfil de Capacitación.xls"
ComboBox1.AddItem "C:\Cursos\PL-03-02\Historial Capacitación Kardex.xls"
ComboBox1.AddItem "C:\Cursos\PL-04-01\Cedula de DNC.xls"
ComboBox1.AddItem "C:\Cursos\PL-05-01\Ident Clasif de Eventos.xls"
End Sub
En cuanto a lo de proteger el código de Visual Basic, pues no lo he hecho nunca; ten en cuenta que lo que hemos hecho no es ninguna macro, sino añadir objetos a la hoja de excel y ponerle código para que haga determinadas cosas.
Puedes probar con las opciones que tienes en Herramientas, a ver si tienes suerte.
Si te parece se puede abrir otro post con un tema de proteger una hoja de excel y ya se cierra éste.
| |
|
|
|
