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...
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