Opslaan als "gebruiker" en code van workbook_open uitschakelen

[tonissteiner]

Hallo,

ik heb wat hulp nodig bij het samenstellen van een code. Van een bestand zou ik een beheerder en een gebruikers versie willen opslaan. De beheerders versie heeft dus alle functionaliteiten en codes actief. Vanuit dit bestand zou ik een knop "Opslaan als gebruiker" willen hebben met een code er achter die:
1. een code die gebruikt wordt in Workbook_open niet gebruikt bij het opslaan als gebruiker
2. een bepaalde knop verbergt
3. in de bestandsnaam "gebruiker" vermeld

De code voor 2 en 3 zal me wel lukken. Via dit forum heb ik hier al ooit hulp bij gekregen en kan via de zoekfunctie genoeg extra info vinden. Maar bij mijn vraag in 1 loop ik wat vast. Aangezien deze code:

Private Sub Workbook_Open()
  
    ' OPN-2001 Software Wedge starten
    Call Auto_Open_OPN2001_Software_Wedge

End Sub

vanuit ThisWorkbook wordt gestart weet ik niet hoe ik dit kan omzeilen in een andere code "SaveAsUser"

alvast bedankt voor jullie reacties

 

[VenA]

De gebruik te maken van de inlognaam van de beheerder.

If Environ("Username") = naam van de beheerder Then

 

[tonissteiner]

Hallo VenA,

alvast bedankt voor je snelle reactie. Die "username" is dat deze om in te loggen in windows?
I test het even uit