Statusbar onzichtbaar

Status
Niet open voor verdere reacties.

Ron001

Gebruiker
Lid geworden
4 dec 2017
Berichten
384
Allen

Ik heb onderstaande code die de statusbar moeten laten verdwijnen in een file waar meerdere mensen in werken (lees: dus ook niet van opmaak kunnen blijven).
Maar ik krijg code niet werkend, wat zit hier fout?

De bovenste gebruik ik in het Workbook_open event, de onderste in Workbook_close event.
Heb wel gemerkt als ik deze niet in de Workbook close zet, dat bij openen andere Excel-file de statusbar ook niet verschijnt, om dit dus te vermijden...

Code:
Sub Statusbar_onzichtbaar_openen()

Dim TEMP As String

TEMP = LCase(Environ("username"))
    If TEMP <> "mijn.naam" Then
        Application.DisplayStatusBar = False
    End If
End Sub

Code:
Sub Statusbar_zichtbaar_sluiten()

Dim TEMP As String

TEMP = LCase(Environ("username"))
    If TEMP <> "mijn.naam" Then
        Application.DisplayStatusBar = True
            If TEMP = "mijn.naam" Then
            Application.DisplayStatusBar = True
        End If
    End If
End Sub
 
In de Workbook_Close is dit volgens je eigen code voldoende:
Application.DisplayStatusBar = True
 
Beide

Zou het kunnen dat hier iets fout in staat? Krijg het na vanalles te veranderen nog steeds niet werkende...

Code:
Sub Statusbar_onzichtbaar_openen()

Dim TEMP As String

TEMP = LCase(Environ("username"))
    If TEMP <> "mijn.naam" Then
        Application.DisplayStatusBar = False
    End If
End Sub
 
Met die code is op zich niks mis. Maar roep je die Sub wel aan vanuit de Workbook_Open?
En anders gewoon dit:
Code:
Private Sub Workbook_Open()
    Application.DisplayStatusBar = LCase(Environ("username")) = "mijn.naam"
End Sub
 
Laatst bewerkt:
@Ed

Wat was een dubbele ontkenning ook alweer ? ;)
 
Een contamidinges ;)
En je hebt helemaal gelijk.
Aangepast.
 
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan