CÓMO HACER QUE LA APLICACION SE EJECUTE SOLO EN UN ORDENADOR

[jesuspg]

Hola de nuevo,

Me preguntaba cómo podría hacer para que la aplicación ofimática se ejecutara única y exclusivamente dentro del mismo puesto de trabajo. De manera que si otro usuario copiara el fichero Excel e intentara ejecutarlo en otro equipo informático, le saltara un error al tratar de iniciar la aplicación ofimática.

Lo único que se me ocurre es algo parecido a esto:

Private Sub Workbook_Open()

   With Application
      If .UserName <> "Ayuda Excel" Then
         Msgbox "Uppsss... Está tratando de abrir la aplicación ofimática en otro puesto de trabajo."
         .Quit
      end if
   end with

End Sub

 

A alguno de vosotros se os ocurre otra idea mejor??

Muchas gracias de antemano por vuestro tiempo.

[Luis Caballero]

Hola, obten el nombre de la maquina y comparalo con el valor que quieras

 

With CreateObject("WScript.Network")
nombreequipo = .ComputerName

End With

 

if nombreequipo="el que tu quieras" then

else

         Msgbox "Uppsss... Está tratando de abrir la aplicación ofimática en otro puesto de trabajo."
         .Quit

end if

[jesuspg]

@Luis Caballero, me gusta tu propuesta.

Es un poco parecida a la mía, pero accediendo al nombre del equipo. Desconocía que eso se pudiera hacer desde VBA.

Muchas gracias por compartir tu código.

 

Combinando ambas propuestas, quedarían algo así:

Private Sub Workbook_Open()

   With Application

      If (CreateObject("WScript.Network").ComputerName <> "nombre del equipo" And _
          .UserName <> "nombre del autor") Then
         MsgBox "Uppsss... Parece que está tratando de abrir la aplicación ofimática en otro equipo informático."
         .Quit
      End If

   End With

End Sub