Help!

PC-Problemen?
De vrijwilligers van Oplossing.be zoeken gratis met u mee!

Hulp bij posten

Recente topics

Auteur Topic: highlight van actieve cel + blad beveiligen werkt niet  (gelezen 1590 keer)

0 leden en 1 gast bekijken dit topic.

Offline jannacy

  • Lid
  • *
  • Berichten: 65
  • Geslacht: Vrouw
  • Oplossing.be
highlight van actieve cel + blad beveiligen werkt niet
« Gepost op: 22 november 2020, 22:18:25 »
Hoi, ik zou nogmaals jullie hulp willen vragen.
Ik heb een code gevonden waar de actieve cel in een ander kleurtje wordt gezet
maar dit werkt niet als je het Blad beveiligd.
Je kan dit omzeilen door Celeigenschappen ook mee te selecteren maar ik wil eigenlijk niet dat ze de celeigenschappen kunnen aanpassen.

De code voor de highlights die ik vond en die ook werkt  :thumbsup: is:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Dim iColor As Integer
'// Note: Don't use if you have conditional
'// formatting that you want to keep

'// On error resume in case user selects a range of cells
On Error Resume Next
iColor = Target.Interior.ColorIndex

'// Leave On Error ON for Row offset errors
If iColor < 0 Then
    iColor = 36
Else
    iColor = iColor + 1
End If

'// Need this test in case Font color is the same
If iColor = Target.Font.ColorIndex Then iColor = iColor + 1
Cells.FormatConditions.Delete

'// Kleur de actieve cel
With Range(Target.Address) 'Rows(Target.Row)
    .FormatConditions.Add Type:=2, Formula1:="WAAR"  ''WAAR of TRUE
    .FormatConditions(1).Interior.ColorIndex = iColor
End With

End Sub


Mvg, Janna

[Office 2019]

Offline Ex-lid

  • Oplosser
  • ****
  • Berichten: 670
  • Geslacht: Man
  • dit lid is verbannen
Re: highlight van actieve cel + blad beveiligen werkt niet
« Reactie #1 Gepost op: 23 november 2020, 08:28:59 »
Persoonlijk zou ik deze gebruiken.
Code in ThisWorkbook sectie.
test vervangen door je echte wachtwoord.
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
ActiveSheet.Unprotect "test"
    Sh.UsedRange.Interior.ColorIndex = 0
    Target.Interior.ColorIndex = 36
ActiveSheet.Protect Password:="test"
End Sub
Wil je jou macro gebruiken zet dan bovenaan je code
ActiveSheet.Unprotect "test"
en onderaan
ActiveSheet.Protect Password:="test"

Offline jannacy

  • Lid
  • *
  • Berichten: 65
  • Geslacht: Vrouw
  • Oplossing.be
Re: highlight van actieve cel + blad beveiligen werkt niet
« Reactie #2 Gepost op: 23 november 2020, 12:21:51 »
Dankjewel Dotchiejack,

Met de code die jij aangaf zit ik met 2 issues:
Als je de invulvelden op voorhand ingekleurd had dan valt de kleur helemaal weg.  De highlights zijn er dan wel.
EN
als je de beveiliging van het werkblad opheft om erin te kunnen werken, valt deze onmiddellijk terug in beveiliging dus je kan er niets meer aan veranderen.

Er klopt dus iets niet.
Mvg, Janna

[Office 2019]

Offline emields

  • Ervaren lid
  • ***
  • Berichten: 257
  • Geslacht: Man
  • Oplossing.be
Re: highlight van actieve cel + blad beveiligen werkt niet
« Reactie #3 Gepost op: 24 november 2020, 15:00:09 »
Dit is een andere mogelijkheid.

Offline cow18

  • Ervaren lid
  • ***
  • Berichten: 340
  • Geslacht: Man
  • Oplossing.be
Re: highlight van actieve cel + blad beveiligen werkt niet
« Reactie #4 Gepost op: 24 november 2020, 19:38:29 »
blad is beveiligd, celeigenschappen niet aangevinkt, kleurtje via Voorwaardelijke Opmaak, zodat originele kleur niet verdwijnt.
SelectionChange_Event

Offline jannacy

  • Lid
  • *
  • Berichten: 65
  • Geslacht: Vrouw
  • Oplossing.be
Re: highlight van actieve cel + blad beveiligen werkt niet
« Reactie #5 Gepost op: 29 november 2020, 19:24:35 »
@allen
Dankjewel voor het meedenken

@Koe
bedankt voor de hulp.  Dit werkt zoals ik het zou willen!!  \o/
En inderdaad, bij beveiliging tabblad kan je dan ook nog alleen de ontgrendelde cellen celecteren waardoor de cursor enkel deze cellen afgaan.  TOP !
Mvg, Janna

[Office 2019]

 


www.combell.com