Beveiligd map2.xlsm bestand openen bij openen map1.xlsm

[anton44]

Ik zou graag een oplossing hebben voor:

Bij het openen van een met wachtwoord (12345) beveiligd bestand map1.xlsm een gekoppeld beveiligd (54321) bestand map2.xlsm openen.

Bekijk bijlage Map1.xlsm Bekijk bijlage Map2.xlsm

 

[edmoor]

Zoiets in de ThisWorkbook sectie:

Private Sub Workbook_Open()
    Workbooks.Open Filename:=ThisWorkbook.Path & "\Map2.xlsm", Password:="54321"
End Sub

 

[anton44]

Edmoor,
Kort en krachtig gezegd: Perfect
Bedankt voor de snelle reactie.

 

[anton44]

Het open gaat prima. Map2.xlsm wordt nu het actieve bestand. Ik zag liever map1.xlsm na het runnen als actieve bestand.

 

[edmoor]

Dan maak je er dit van met een extra regeltje:

Private Sub Workbook_Open()
    Workbooks.Open Filename:=ThisWorkbook.Path & "\Map2.xlsm", Password:="54321"
    Workbooks("Map1.xlsm").Activate
End Sub

 

[anton44]

Heb toegevoegd (na macro opnemen)

Windows("map1.xlsm").Activate

Het werkt. Is deze code inzetbaar?

 

[edmoor]

Zie mijn voorbeeld in #5. Dit mag ook:

Private Sub Workbook_Open()
    Workbooks.Open Filename:=ThisWorkbook.Path & "\Map2.xlsm", Password:="54321"
    ThisWorkbook.Activate
End Sub

Dat zijn dus al 3 manieren

 

[anton44]

Prima, met dank.
Is de vraag om wel of niet bij te werken (van koppelingen) bij het openen van map1 ook te onderdrukken ?

 

[edmoor]

Dat kan bij:

Klik op het tabblad Gegevens in de groep Verbindingen op Koppelingen bewerken.

Klik op Prompt bij opstarten.

Selecteer de gewenste optie.

 

[anton44]

YES !! :d :thumb:
edmoor, hartelijke dank. Al mijn wensen in deze zijn vervuld (tot nu toe).

 

[edmoor]

Graag gedaan