VBA: Sub ReplaceTitleBar() op Worksheet.nl

[oceanrace]

Hallo,
de volgende VBA code kwam ik op Worksheet tegen:

Sub ReplaceTitleBar()
    ' Place the current files path and filename in the titlebar:
    Windows(1).Caption = (ActiveWorkbook.FullName)

    ' Place your own application name in the titlebar:
    Application.Caption = ("Your text here")
End Sub

Kan deze ook in ThisWorkbook?

Ik dacht zelf dat het zo ging werken:

Private Sub ReplaceTitleBar()
    ' Place the current files path and filename in the titlebar:
    Windows(1).Caption = (ActiveWorkbook.FullName)

    ' Place your own application name in the titlebar:
    Application.Caption = ("Your text here")
End Sub

Maar dat doet t dus niet...

 

[Roncancio]

Wat werkt er dan niet volgens jou?
Je kunt de code in ThisWorkbook plaatsen, bijvoorbeeld:

Private Sub Workbook_Open()
    ' Place the current files path and filename in the titlebar:
    Windows(1).Caption = (ActiveWorkbook.FullName)

    ' Place your own application name in the titlebar:
    Application.Caption = ("Your text here")

End Sub

Bij het openen verschijnt het volledige pad van het bestand en daarnaast "Your text here" (ipv Microsoft Excel).
Het bestand dient wel opgeslagen te zijn.

Met vriendelijke groet,


Roncancio

 

[oceanrace]

Aha,
ik had al een andere code onder Private Sub Workbook_Open() staan.
Ik heb hem er bij in gezet en nu werkt het wel!
Bedankt!