Privé SubWorkbook_Open ()
als MsgBox („zou u de recentste gegevens voedt vraag willen invoeren? “, „de gegevensvoer van de Invoer“, vbYesNo) =vbYes toen
MacroName1
als MsgBox („zou u nieuw productlijnen willen controleren? “, „het productlijnen van de Controle“, vbYesNo) =vbYes toen
MacroName2
als MsgBox („zou u de formules van Prijslijsten willen formatteren? “, „de lijstenformules van het Formaat“, vbYesNo) =vbYes toen
MacroName3
beëindig als
beëindig als
beëindig als