Macro onderdrukken

[Jemp]

Heb met onderstaand voorbeeld getracht mijn probleem zo eenvoudig mogelijk te omschrijven (voorbeeld stelt op zich dus niet veel voor).

De file Gegevens.xlsm wordt gebruikt door medewerkers om gegevens in te voeren.
De invoer van gegevens gebeurt via een VBA code in het Werkboek.

Nu wil ik deze gegevens overpompen in mijn werkboek (Test.xlsm). Wanneer ik het bestandsnaam (Incl Pad) "Gegevens.xlsm" invoer in de tekstbox2, gaat het betreffende bestand wel open maar ook de bijhorende macro gaat aan de slag.
Is dit laatste te vermijden? Hoe haal ik eenvoudig de gegevens binnen ?

Misschien een link die of een artikel dat ik moet lezen?

Groetjes
JP

 

[edmoor]

Wijzig de Workbook_Open in Gegevens.xlsm in:

Private Sub Workbook_Open()
    If Workbooks.Count = 1 Then
        UserForm1.Show
    End If
End Sub

 

[Jemp]

Tx voor de reactie edmoor.:thumb:

Het voorstel is eenvoudig en werkt uiteraard.
Nadeel van de voorgestelde oplossing is wel dat de medewerkers eventueel andere workbooks moeten sluiten voor ze de file "Gegevens" gebruiken.
Beter dit dan niets ... maar misschien zijn er nog andere mogelijkheden?


Groetjes
JP

 

[leofact]

Dan is de oplossing misschien om te kijken of het specifieke werkboek open is
Dat doe je met de volgende code

Private Sub Workbook_Open()
Dim wWerkboek As Workbook
        On Error Resume Next
     Set wWerkboek = Workbooks("Test.xlsm")
        If wWerkboek Is Nothing Then UserForm1.Show
            On Error GoTo 0
End Sub

De code is niet getest, de naam moet mogelijk aangepast.
Mvg Leo

 

[Jemp]

Tx Leo ... werkt prima
:thumb:

Mvg JP

 

[leofact]

mooi, graag gedaan

Mvg Leo