VBA – Trabajar en la hoja de Excel Original

Cuando un equipo de trabajo utiliza una hoja de Excel común que está en la red de la empresa se corre el riesgo de que un usuario pueda cometer dos tipos de errores comunes:

• Trabajar en modo «Sólo lectura». Un ejemplo de este error se puede dar en la creación de un albarán. El usuario lo crea y lo imprime, pero no quedará guardado dentro de la hoja Excel ya que es de sólo lectura. Si nadie se da cuenta, ¡el siguiente albarán que se cree tendrá el mismo número! Para solventar este punto pulsar en el siguiente link: cómo trabajar siempre en modo «Con permiso de Escritura».
• Trabajar en una copia de la hoja original. Se puede dar el caso de que el usuario realice, por descuido, una copia de la hoja Excel en su computadora. Trabajar sobre esta copia implica, lógicamente, que no se registren los datos en la hoja original. Para evitar este error se puede utilizar esta macro:

        Dim Nom_RutaArchivoOriginal As String
        Nom_RutaArchivoOriginal = UCase("N:\Ruta\Nom_ArchivoOriginal.xlsm")
        'Poner aquí la ruta que apunta al archivo de trabajo
                
        Dim Nom_Ruta As String
        'Nom_Ruta es el nombre de la ruta de acceso al
        'archivo que se está utilizando y que vamos a verificar
        Nom_Ruta = UCase(ThisWorkbook.FullName)
                
        
        If Nom_Ruta <> Nom_RutaArchivoOriginal Then
        MsgBox "Trabajar en el archivo: [" & Nom_RutaArchivoOriginal & "]"
        Exit Sub
        End If
        

Este código lo podemos inyectar dentro de una macro que se «dispare» cuando abrimos la hoja o también dentro de un botón que sepamos que el usuario se vea obligado a pulsar.