Macro para no poder cambiar el nombre archivo

16/08/2006 - 16:50 por GR | Informe spam
Buen dia a todos

Por favor si me pudieran proporcionar el codigo (macro) para que no se le
pueda cambiar el nombre a un archivo de excel, si se lo cambiar que
automaticamente se destruya.

Les agradezco de antemano sus comentarios

Saludos
 

Leer las respuestas

#1 Héctor Miguel
16/08/2006 - 23:00 | Informe spam
hola, GR !

... codigo (macro) para que no se le pueda cambiar el nombre a un archivo de excel
si se lo cambian que automaticamente se destruya...



con algun codigo como el de este ejemplo, la 'siguiente' vez que se abra el archivo...
-> si no tiene EXACTAMENTE el nombre que le indiques en el codigo... se auto-eliminara
-> toma nota de que SI 'le afecta' si le indicas [may/min]usculas como parte del nombre ;)
-> siempre y cuando se abra 'con permiso' de usar sus macros [obviamente]...
Y... si NO se mantiene pulsada la tecla {mayus} mientras se abre 'con permiso'
[o si los eventos NO estan des-habilitados por algun codigo 'intermedio'... o... ???] :((

en el modulo de codigo de 'ese' libro ==Private Sub Workbook_Open()
Application.DisplayAlerts = False
With ThisWorkbook
If .Name <> "aSi quiErO qUe se LlaMe.xls" Then _
.ChangeFileAccess xlReadOnly: Kill .FullName: .Close False
End With
End Sub

si cualquier duda [o informacion adicional]... comentas ?
saludos,
hector.

Preguntas similares