Duda con importación desde .txt

26/10/2007 - 12:09 por juan.navall | Informe spam
Buenos días a todos. Para darle seguridad a un archivo excel, vinculé
mi libro con un archivo .txt del cual importo un string de caracteres,
lo pego en una celda determinada y si este string coincide con una
condición en mi libro, se ejecuta una macro que habilita el uso del
archivo excel. El tema es que al ejecutar la macro de importación, me
habre el asistente y queda en evidencia el archivo txt de referencia.
La idea es que no se muestre desde donde importo ese dato.
Ah, me olvidaba, además debería poner un mensaje advirtiendo que no
está habilitado para utilizar el archivo excel en caso de que éste no
halle el archivo txt de referencia.
Espero haber sido lo suficientemente claro. Desde ya muchas gracias a
todos por la atención.

Juanjo - Argentina
 

Leer las respuestas

#1 Juan M
26/10/2007 - 13:01 | Informe spam
escribió
Buenos días a todos. Para darle seguridad a un archivo excel, vinculé
mi libro con un archivo .txt del cual importo un string de caracteres,
lo pego en una celda determinada y si este string coincide con una
condición en mi libro, se ejecuta una macro que habilita el uso del
archivo excel. El tema es que al ejecutar la macro de importación, me
habre el asistente y queda en evidencia el archivo txt de referencia.
La idea es que no se muestre desde donde importo ese dato.
Ah, me olvidaba, además debería poner un mensaje advirtiendo que no
está habilitado para utilizar el archivo excel en caso de que éste no
halle el archivo txt de referencia.
Espero haber sido lo suficientemente claro. Desde ya muchas gracias a
todos por la atención.

Juanjo - Argentina



Hola Juanjo,

Si la intención es leer una sola línea o palabra, puedes emplear las
funciones integradas en vba para leer archivos.

Una vez que has leído la palabra puedes comprobar si es la adecuada para
ejecutar el archivo y con un msgbox indicar que esta o no autorizado para
ejecutarlo.

Un saludo,
Juan

Inicio código ==Sub LeerTXT(Archivo As String)

Dim MiCadena As String
Dim NArchivo As Integer

NArchivo = FreeFile
Open Archivo For Input As NArchivo
Line Input #NArchivo, MiCadena
If MiCadena <> "contraseña" Then
MsgBox "No está autorizado para emplear el archivo", _
vbExclamation, "ATENCION"
'Iniciar finalizar aplicacion...
End If
Range("A1") = MiCadena
Close #NArchivo

End Sub

Fin código

Preguntas similares