Bienvenido a la mayor comunidad de usuarios EXCEL

Regístrate gratis ahora para ver contenidos y descargas sin restricciones!

Regístrate gratis

bloqueo de nombre

Miltiño

Member
Registrado
12 Abr 2010
Mensajes
440
Saludos cordiales, estimados amigos me pueden indicar si hay algun metodo o forma para bloquear un archivo, para evitar que alguien cambie el nombre del archivo excel ya sea excel 2003 y archivo...
Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes
iniciar sesión aquí
 
Solución
que cuando se abra o se guarde el archivo en el caso de que haya sido modificado al momento de abrir tenga el nombre de "xxxxxxxxx"
si el usuario le cambio el nombre (que solo lo podra hacer por sistema operativo), estas rutinas lo (RE)nombran
(en el modulo de codigo de TU libro):
Código:
Option Compare Text
Private Const correcto As String = "Este es el nombre CORRECTO.xlsm" ' <= pon aqui el nombre real de tu libro '
Private Sub Workbook_Open(): Dim ruta As String, actual As String
  With ThisWorkbook: ruta = .Path & "\": actual = .Name
    If actual <> correcto Then .SaveAs ruta & correcto: Kill ruta & actual
  End With
End Sub
' esto evita que le haga un "guardar como..." '
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As...
Volver
Arriba