Aanpassing vermijden

Status
Niet open voor verdere reacties.

Ron001

Gebruiker
Lid geworden
4 dec 2017
Berichten
384
Allen

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
 
dit stukje code voorkomt niet dat je de wijziging aanbrengt, maar zet het weer goed op het moment je van tabblad wisselt.
 
Inderdaad...:)

Werkt wel bij onderstaande twee...

Code:
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Code:
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, _
ByVal Target As Excel.Range)

Maar wat is nu echt het verschil tussen de twee? Waarom zou ik e ene nemen en niet de ander?
 
Gewoon niet gebruiken. Maakt het er alleen maar trager op. De beschrijving van elk Event kan je vinden als je de helpfunctie weet te vinden. <F1>
 
dit stukje code voorkomt niet dat je de wijziging aanbrengt, maar zet het weer goed op het moment je van tabblad wisselt.

Klopt, ben nog wat aan het testen/prullen/proberen geweest...

Bij deze code wordt alles weggehaald;

Code:
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, _
ByVal Target As Excel.Range)

Ik ben toch nog iets aan het zoeken om te voorkomen dat de wijzigingen worden aangebracht, dan vallen de taken die ik inzet harder op tov mijn collega.
Kunnen wij sneller iets opmerken...

Iemand? :)
 
Het lijkt me een zinloze en overbodige excercitie.
 
Ons lijkt dit een goede oplossing...
Zou voor ons zeer handig zijn....
 
Dank voor de duidelijke toelichting.
 
...omdat wij met twee mensen taken/werken inplannen voor onze onderhoudsafdeling...

Als één iemand steeds in het vet schrijft en de andere "gewoon" valt dit direct in het oog wie wat gepland heeft... :)
 
Code:
Private Sub Worksheet_Change(ByVal Target As Range)
   Target.Font.Bold = UserName = "Ron001"
End Sub
 
Zie niet veel...
Heb deze een beetje proberen aan te passen;

Code:
Private Sub Worksheet_Change(ByVal Target As Range)

  If LCase(Environ("username")) <> "mijn.naam" Then
    ActiveSheet.Range("A16:AB74").Target.Font.Bold = False
  End If
  
End Sub

Maar deze doet ook niet veel...:-(
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan