Allen
Ik heb onderstaande code in Workbook_Open en Workbook_SheetActivate staan...
Toch kan ik blijven in het "vet" en "schuin" zetten...
Ik heb onderstaande code in Workbook_Open en Workbook_SheetActivate staan...
Toch kan ik blijven in het "vet" en "schuin" zetten...
Code:
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
If LCase(Environ("username")) <> "mijn.naam" Then
ActiveSheet.Range("A16:AB74").Font.Bold = False
ActiveSheet.Range("A16:AB74").Font.Italic = False
End If
End Sub