Cita:
Iniciado por MrArion 
oye me puedes esplicar como esta esto ultimo "puedes agregarlo algunos caracteres al comienzo y ya no se podrá modificar con Excel o Word" disculpa no entendi muy bien
Me refería a algo así:
Código:
' Para bloquear el Archivo
Dim FileData As String
Close
Open "C:\Libro1.xls" For Binary As #1
FileData = Input(LOF(1), 1)
Close
FileData = Space(255) & FileData
Open "C:\Libro1.xls" For Output As #1
Print #1, FileData;
Close
Código:
' Para desbloquear el Archivo
Dim FileData As String
Close
Open "C:\Libro1.xls" For Binary As #1
FileData = Input(LOF(1), 1)
Close
FileData = Right(FileData, Len(FileData) - 255)
Open "C:\Libro1.xls" For Output As #1
Print #1, FileData;
Close
Lógico que es una forma de bloqueo muy simple, pero funciona para impedir que alguien vea el contenido del *.xls...