Standaard staat er in je titelbalk: Microsoft Excel – [naam werkmap]. Indien je dit graag anders ziet, kan dit heel eenvoudig gewijzigd worden met enkele lijntjes VBA code.
Zoals je kan zien bestaat de titel uit 2 delen. Het eerste deel is van toepassing op het geopende bestand. Het tweede deel is van toepassing op alle geopende Excel vensters.
Deel 1
Plaats volgend stukje code in ThisWorkBook in de Visual Basic Editor om het eerste deel te wijzigen:
Private Sub Workbook_Open() Windows(1).Caption = "Dit is het stukje voor het streepje" End Sub
Als je het bestand nu opnieuw opent, zal je zien dat je titelbalk gewijzigd is:
Deel 2
Als we nu ook deel 2 willen wijzigen, doen we dit als volgt:
Private Sub Workbook_Open() Application.Caption = "Dit is het stukje na het streepje" End Sub
…en nu allebei tesamen
Private Sub Workbook_Open() Windows(1).Caption = "Dit is het stukje voor het streepje" Application.Caption = "Dit is het stukje na het streepje" End Sub
Voorbeeld
Onderstaand voorbeeld plaatst vooraan onze zelfgekozen tekst en na het streepje het volledige pad naar het geopende bestand.
Private Sub Workbook_Open() Windows(1).Caption = (ActiveWorkbook.FullName) Application.Caption = "Microsoft Exhelp 2011" End Sub
Beste,
Inderdaad, dit maakt je zelf ontworpen toepassing niet iets méér af!
Ik kijk uit naar andere tips en trucs
Maurice
Zojuist getest en werkt goed!
Super!
Bedankt voor deze leuke tip