Colorindex

[xbox360]

Nu mijn lijst klaar is wil ik de bladen of cellen beveiligen

Alleen geeft dit aan > eigenschap colorindex van klasse interior kan niet worden ingesteld

en als ik dan in de vba kijk geeft hij geel dit aan

.Interior.colorindex=xlnone

weet iemand een oplossing zodat ik ook deze cellen kan beveiligen

omdat ik de dames op front office wel ken, zit ik heel de dag de formules terug te zetten

Alvast super bedankt...:thumb::thumb:

 

[Ad Becude]

Handig dat je de code hier hebt geplaatst:thumb:
Nu zien de helpers lekker niet waar de fout zit

 

[xbox360]

Vba

Handig dat je de code hier hebt geplaatst:thumb:
Nu zien de helpers lekker niet waar de fout zit

Tis de bekende vba code als je een waarde in die cel komt dat hij gaat kleuren:thumb:

 

[Wigi]

En hoe zit het met de beveiliging?

 

[xbox360]

Voorbeeld

Bij de kleur gaat het fout, als je die beveiligd geeft hij de error

dit is de code in vba

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If [A1] = 1 Then Exit Sub
Dim x As Range
For Each x In ActiveSheet.[A4:J4:A19:J19:A27:J27]
With x
Select Case .Value
Case Is = "ROOD"
.Interior.ColorIndex = 3
Case Is = "GEEL"
.Interior.ColorIndex = 6
Case Is = "ZWART"
.Interior.ColorIndex = 1
Case Is = "BLAUW"
.Interior.ColorIndex = 5
Case Is = "GROEN"
.Interior.ColorIndex = 4
Case Is = "ORANJE"
.Interior.ColorIndex = 45
Case Else
.Interior.ColorIndex = xlNone <<<<< hier gaat het fout
End Select
End With
Next
End Sub

Option Explicit
Sub Macro1()
Blad2.Select [A4:J4:A19:J19:J27].Select
Selection.Interior.ColorIndex = xlNone
[A1].Select
End Sub

 

[Roncancio]

Je zou gebruik kunnen maken van UserInterfaceOnly:=True

In bijgevoegd bestand wordt het 1e werkblad beveiligd bij het openen van het bestand.
In het kader op dat werkblad kan je een kleur invoeren (hoofdletters, kleine letters) en de cel krijgt die kleur.

Met vriendelijke groet,


Roncancio

 

[xbox360]

Voorbeeld jpg

Heb een voorbeeld mee gepost

als ik de betreffende cel die op kleurt als een tekst verschijnt beveiligt dan geeft hij
een error die heb ik ook in de jpg laten zien.
hoop dat er toch slimmere mensen rond lopen als ik.

Alvast bedankt aan iedereen die mee denkt:thumb:

 

[Roncancio]

Heb een voorbeeld mee gepost

als ik de betreffende cel die op kleurt als een tekst verschijnt beveiligt dan geeft hij
een error die heb ik ook in de jpg laten zien.
hoop dat er toch slimmere mensen rond lopen als ik.

Alvast bedankt aan iedereen die mee denkt:thumb:

Kan je het bestand sturen? Dat werkt wat makkelijker.

Met vriendelijke groet,


Roncancio

 

[xbox360]

Bestand

Hierbij de bestandje waar het omgaat

Zodra je de groen cel gaat beveiligen geeft hij die error

hoop dat het kan

Alvast vriendelijke bedankt

je moet wel denk ik FF die straatnaam opnieuw invullen wil je de kleur krijgen in cel J4

 

[Roncancio]

Ik heb mijn vorige code toegevoegd aan het bestand en het bestand een klein beetje aangepast.
Volgens mij doet het programma nu wat je voor ogen hebt.

Met vriendelijke groet,


Roncancio

 

[xbox360]

Grrrrrrrrrr

Heb het geprobeert...

Jammer als je heel de regel 4 beveiligt en je voer iets in komt hij weer met die error

 

[Roncancio]

Heb het geprobeert...

Jammer als je heel de regel 4 beveiligt en je voer iets in komt hij weer met die error

Het blad is beveiligd en zodra je een adres invoert in cel a3 verschijnt de bijbehorende gegevens en kleur.

Met vriendelijke groet,


Roncancio

 

[xbox360]

Het blad is beveiligd en zodra je een adres invoert in cel a3 verschijnt de bijbehorende gegevens en kleur.

Met vriendelijke groet,


Roncancio

SUPER !!!!!!!

het werkt harstikke bedankt...

 

[xbox360]

Laatste vraagje

Roncancio.

in die zelfde voorbeeld ,is het ook mogelijk als je in tabblad 2008 een cel is voorzien van een hyperlink mee te copyeren naar de blad adressen?
:thumb: :thumb:

 

[xbox360]

Beveiliging

Roncancio

Jij hebt voor mijn de excel lijst toen beveiligt
nu werkt het wel maar aan die wachtwoord hangt niks aan
dus een lege wachtwoord
als ik dit nu ga beveiligen met een wachtwoord komt toch die error Fout 1004
Eigenschap colorindex van klasse interior kan niet worden ingesteld
wachtwoord is bat
maar als je annuleren doet en je wilt iets doen komt die error
hij geeft ALLEEN die error als je in CEL A3 iets in wilt zetten

weet jij hierop toevalig een oplossing voor?

Alvast super bedankt

 

[Roncancio]

Ik heb het bestand aangepast.
Hopelijk is het zoals je het voor ogen heeft.

By the way, ik zie de code voor de hyperlink niet meer.:shocked:

Met vriendelijke groet,


Roncancio

 

[xbox360]

Toppie

Roncancio,

Die heb ik nog steeds hoor alleen was het teveel werk om die uit tekleden.

NEEN jou stuk TOP werk wordt in eer gebruikt.

Heb het getest

JONGEN het is SUPER het werkt nu

Dan kan front office niks veranderen