Code ophalen in het ene bestand en gebruiken in een ander bestand

[tkint]

Beste,

Ik wil in het bestand "beveiliging met 2 bestanden" de code ophalen in het bestand "code" en gebruiken in het eerste bestand. Ik denk dat mijn code voor het openen van het 2de bestand wat kort door de bocht is want ik krijg een foutmelding (1004-door de toepassing of door object gedefinieerde fout). Kan ik de fout ondervangen wanneer het bestand "code" niet gevonden wordt, zodat mijn vba-code niet onderbroken wordt?

Private Sub Workbook_Open()
Application.ScreenUpdating = False
  Workbooks.Open Filename:=("code.xls")
  code = ThisWorkbook.Sheets(1).Range("Z1").value
  Workbook.Close
Application.ScreenUpdating = True
ActiveWorkbook.Sheets(1).Range("A1").Value = code
End Sub

In bijlage 2 bestanden.

 

[VenA]

Je moet het volledige pad en en de naam van het bestand opgeven om een bestand te openen. Waarom je het bestand zou willen openen ontgaat mij.

Je zal wel zoiets bedoelen

With getobject("Z:\tkint\"code.xls")
  sheets(1).cells(1) = .sheets(1).cells(1,26)
  .close 0
End with

 

[tkint]

Beste,

De bedoeling is om degene die slechts 1 bestand kopieert om het op een andere PC te gebruiken, een hak te zetten. De bedoeling is om de tool door iemand te laten gebruiken die ik ken en door niemand anders, tenzij ik hen de toestemming geef.

 

[VenA]

Geen idee waar je het over hebt en de bestanden heb ik niet bekeken. Zoek maar eens op Thisworkbook en en Activeworkbook en kijk waar je met de code in #1 uitkomt.

 

[edmoor]

Wat precies de bedoeling is begrijp ik ook niet, maar die 1004 fout krijg je waarschijnlijk omdat het bestand code.xls niet kon worden geopend.