Tweede bestand op de achtergrond openen

[jefkeh]

Hoi,
Als ik een bestand open(listbox) zou ik ook een 2de bestand(werkbestadres) op de achtergrond willen laten open gaan, maar dit mag niet zichtbaar zijn.
Al mijn vba code staat in het bestand werkbestadres( waarom: dit wil ik voor mijn medegebruikers van dit geheim houden ).
Ik had volgende code op jullie forum gevonden maar ze werkt niet.
Krijg een foutmelding dat een blokvariable niet is ingesteld( ik denk bij "active=activeworkbook.name" )
Graag uw hulp AUB
Dank u


"Private Sub Workbook_Open()
Dim active As String
Dim wb As Workbook

Application.ScreenUpdating = False
On Error Resume Next:
wb = Workbooks("listbox.xlsm")
On Error GoTo 0
active = ActiveWorkbook.Name

If wb Is Nothing Then
On Error GoTo ErrMsg
Set wb = Workbooks.Open("C:\Users\Zeppe\Documents\test\werkbestadres.xlsm")

wb.Activate
ActiveWindow.Visible = False
Workbooks(active).Activate
Else
wb.Activate
ActiveWindow.Visible = False
Workbooks(active).Activate
End If

Application.ScreenUpdating = True
Exit Sub
ErrMsg:
MsgBox "Kan het database bestand niet openen"
On Error GoTo 0

End Sub"

 

[spaarie]

Je kan je VBA project ook beveiligen!
Dit doe je door op 'VBAproject (bestandsnaam)' met je rechtermuisknop te klikken > Klik 'Eigenschappen van VBAProject' > Tab 'Beveiliging' > Vink project vergrendelen aan en een wachtwoord.

Dit wachtwoord kan door een ervaren VBA gebruiker wel gekraakt worden, maar een huis-, tuin- & keukengebruiker zal dit niet zo snel lukken.

Is dit ook een oplossing?

 

[jefkeh]

Hoi,
Bedank voor de reactie, maar dit heb ik reeds gedaan.
Maar ik wilde met dat 2de bestand op de achtergrond toch ook eens proberen, dit open op de achtergrond is me intussen gelukt.
Maar nu is nog de vraag, als ik in dat 2de bestand vba code zet hoe kan ik dat aanroepen vanuit mijn eerste bestand.
Gr.

 

[Roncancio]

Met Run "Naam 2e bestand" ! "naam macro"

Bijvoorbeeld:

Run "Geheim!Groet"

De macro Groet van het bestand Geheim wordt gestart.

Met vriendelijke groet,


Roncancio

 

[jefkeh]

Bedankt voor de oplossing