Help!

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

Hulp bij posten

Recente topics

Auteur Topic: Beveiliging blad aanpassen  (gelezen 3460 keer)

0 leden en 1 gast bekijken dit topic.

Offline cow18

  • Excel-Expert
  • Volledig lid
  • *****
  • Berichten: 157
  • Geslacht: Man
  • Oplossing.be
Re: Beveiliging blad aanpassen
« Reactie #15 Gepost op: 01 april 2020, 21:26:38 »
verbeterde Selection_changePrivate Sub Worksheet_SelectionChange(ByVal Target As Range)
   Set c = Range(Range("A2"), Range("A" & Rows.Count).End(xlUp)).Offset(, 2)  'bereik = alle C-cellen, vanaf 2e rij tot einde gegevens
   If Intersect(c, Target) Is Nothing Then Application.Goto Range("C1")   ' sta je niet in dat bereik, ga dan naar C1
End Sub


Offline lco

  • Oplosser
  • ****
  • Berichten: 513
  • Geslacht: Man
Re: Beveiliging blad aanpassen
« Reactie #16 Gepost op: 01 april 2020, 21:43:10 »
cow18,

Ik denk dat we mekaar niet verstaan :-[ :-[

nu kan ik geen namen meer verwijderen met dubbelklikken en ik kan ook geen namen meer toevoegen.
het overschrijven gaat niet meer dat is een punt maar ik moet ten alle tijden namen kunnen verwijderen door dubbelklikken als er leden afvallen en namen kunnen toevoegen als er leden bijkomen.
Dus als ik lid toevoeg mag ik dit enkel kunnen verwijderen door te dubbelklikken en mag het niet overschrijfbaar zijn.

SORRY ik kan het niet beter uitleggen :-[ :-[ :-[

mijn oude versie werkt juist enkel de overschrijving van de ingevulde cellen mag niet toegelaten worden :-\ :-\ :-\

    mvg,lco

Offline Digicafé

  • Excel-Expert
  • Volledig lid
  • *****
  • Berichten: 152
  • Geslacht: Man
  • DigiCafé expert
Re: Beveiliging blad aanpassen
« Reactie #17 Gepost op: 01 april 2020, 22:40:11 »
Ico,




Gewoon efkes terug naar af ... met alles wat hieraan vooraf ging - want dat is inderdaad een heel onduidelijk kluwen geworden.
Even herfraseren :


- is het een oplossing als een gebruiker op de sheet niet kan wijzigen of schrijven, terwijl je macro vanuit de userform dat wel kan.
- het zou dan nog altijd mogelijk zijn correcties te doen op de sheet rechtstreeks als er foute zaken instaan maar enkel door de beheerder "jij" als die het paswoord kent ?


Of is dat te simpel gesteld ?   Moet de gebruiker zijn fout zélf kunnen rechtzetten nadat de record is weggeschreven ?
vriendelijke groeten,
antwoord niet voldoende ? vraag gerust verder ...

Philip

Offline cow18

  • Excel-Expert
  • Volledig lid
  • *****
  • Berichten: 157
  • Geslacht: Man
  • Oplossing.be
Re: Beveiliging blad aanpassen
« Reactie #18 Gepost op: 01 april 2020, 22:42:45 »
dubbelklikken in de C-kolom naast de naam !

Offline cow18

  • Excel-Expert
  • Volledig lid
  • *****
  • Berichten: 157
  • Geslacht: Man
  • Oplossing.be
Re: Beveiliging blad aanpassen
« Reactie #19 Gepost op: 01 april 2020, 22:53:53 »
eerst C-kolom selecteren, rechtermuisknop>celeigenschappen>bescherming>wegvinken van geblokkeerd (leeg vakje) !!!
zie eerdere post
Vervangen selectionchange door deze
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   Set c = Union(Range(Range("A2"), Range("A" & Rows.Count).End(xlUp)).Offset(, 2), Range("A" & Rows.Count).End(xlUp).Offset(1).Resize(, 3)) 'bereik = alle C-cellen, vanaf 2e rij tot einde gegevens
     If Intersect(c, Target) Is Nothing Then Application.Goto Range("C1")   ' sta je niet in dat bereik, ga dan naar C1
End Sub

Dubbelklikken in C-kolom = naam wissen
2 x-jes in de C-kolom en dan namen wisselen
nieuwe naam toevoegen = onderaan eerst cijfer in de B-kolom en daarna de naam in de A-kolom

Hier werkt dat allemaal

@digicafé, rechtzetten fout = voeg onderaan nieuwe maar zelfde naam toe, zet 2 x-jes naast oude en nieuwe naam, wisselen en verwijderen oude naam.
Bon, een beetje rappe exceller kan toch de boel, met alle mogelijke blokkages, overhoop halen, hoe wil je zoiets afblokken ?

Die geblokkeerde C-cellen in een niet-beveiligd blad, die hebben de boel een beetje opgenaaid. Hoe kan dat ? Weet ik ook niet.
« Laatst bewerkt op: 01 april 2020, 22:59:06 door cow18 »

Offline lco

  • Oplosser
  • ****
  • Berichten: 513
  • Geslacht: Man
Re: Beveiliging blad aanpassen
« Reactie #20 Gepost op: 01 april 2020, 23:13:08 »
Digicafé,cow18,
 momenteel werkt alles naar behoren maar de leden die een naam toevoegen en deze verkeerd hebben ingevoerd proberen dit nu manueel recht te zetten waardoor er fouten ontstaan en de userform niet meer juist werkt.

om dit te voorkomen wil ik dat ingevoerde namen niet kunnen aangepast worden (enkel verwijderen door dubbel klikken) wat nu perfect werkt.

namen van plaats wisselen is ook in orde moet niets mee gebeuren

als er een verkeerde invoer is gebeurd moet deze gewoon onderaan de lijst opnieuw ingebracht worden nadat de verkeerde door dubbelklikken is vewijderd,dit werkt momenteel allemaal correct .

het enige dat moet aangepast worden is dat de reeds ingevulde namen niet kunnen overschreven worden omdat dan de rest in de war geraakt. misschien in de macro inbouwen dat het dubbel klikken werkt maar dat er niet kan overschreven worden als er al iets in de cel staat

kolom C wil ik enkel gebruiken om de namen van plaats te laten wisselen.(wat nu perfect werkt)

ps:als dat niet mogelijk is laten we het zo en berusten (ga nogmaals proberen uitleggen) dat er in de cellen in kolom niets mag aangepast worden (voor de honderdste maal) maar het is regelmatig een andere invuller van de lijsten en als ik er dan bij ben kunnen de fouten niet rechtgezet worden waardoor er soms moet overgegaan worden de pen ipv de pc
ik weet dat ik soms veel vraag en het niet goed uitleg SORRY daarvoor.


      mvg,lco

Offline cow18

  • Excel-Expert
  • Volledig lid
  • *****
  • Berichten: 157
  • Geslacht: Man
  • Oplossing.be
Re: Beveiliging blad aanpassen
« Reactie #21 Gepost op: 01 april 2020, 23:27:42 »
lees #19, alles zoals gewenst, enkel je kan niet dubbelklikken op de naam, wel er naast in de C-kolom.
Je kan een bestaande naam niet meer wijzigen, enkel verwisselen en wissen.

Heb je de C-kolom aangepast ?

Offline lco

  • Oplosser
  • ****
  • Berichten: 513
  • Geslacht: Man
Re: Beveiliging blad aanpassen
« Reactie #22 Gepost op: 02 april 2020, 08:30:42 »
cow18,

Ik heb de C kolom aangepast + code geplaatst.
Ik heb geprobeerd om een naam aan te passen--> gaat niet-->alles ok
Namen wisselen met dubbel x-->ok
Namen verwijderen door in C kolom dubbelklikken-->werkt niet.

ps zie nr 5 en nr 24 foute proberen verwijderen-->gaat niet wat doe ik fout (zie bijlage)


       mvg,lco
« Laatst bewerkt op: 02 april 2020, 08:37:04 door lco »

Offline cow18

  • Excel-Expert
  • Volledig lid
  • *****
  • Berichten: 157
  • Geslacht: Man
  • Oplossing.be
Re: Beveiliging blad aanpassen
« Reactie #23 Gepost op: 02 april 2020, 08:40:45 »
gooi alle macros weg die nu staan in de module van namen en vervang ze door onderstaande.
Bovenin die macros zie je nu een paswoord "lco" staan, daarmee is dat tabblad vanaf nu beveiligd.
Dus zonder dat paswoord kan je niets doen.
Wil je een ander, zeg het even, dan volgt de uitleg
Volgens mij gaat alles naar wens en kan je niets doms doen.

Const Paswoord = "lco"                           'het paswoord waarmee dit blad beveiligd is

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
   Cancel = True                                 'dubbelklik ongedaan maken
   Set c = Range(Range("A2"), Range("A" & Rows.Count).End(xlUp))   'bereik = alle cellen in A-kolom, vanaf A2 tot de laatst gebruikte cel
   If Intersect(c, Target) Is Nothing Then       '
      Application.Goto Range("C1")               ' sta je niet in dat bereik, ga dan naar C1
   Else
      Me.Unprotect Paswoord                      'beveiliging eraf
      Application.EnableEvents = False           'events uit
      Cells(Target.Row, 1).Resize(, 2).Delete Shift:=xlUp   'A en B cel verwijderen
   End If
   Algemeen                                      'naar algemeen stuk
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
   Algemeen                                      'verandert er iets in het tabblad, dan algemeen laten lopen
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   Set c = Range(Range("A2"), Range("A" & Rows.Count).End(xlUp).Offset(1)).Resize(, 3)   'bereik = alle cellen in A-kolom, vanaf A2 tot de laatst gebruikte cel + 1, 3 kolommen breed
   If Intersect(c, Target) Is Nothing Then Application.Goto Range("C1")   ' sta je niet in dat bereik, ga dan naar C1
End Sub

Sub Algemeen()
   Me.Unprotect Paswoord                         'beveiliging er af
   Range("a1:Z100").Locked = True                'ruim bereik blokkeren
   Set c = Range(Range("A2"), Range("A" & Rows.Count).End(xlUp))   'A-kolom met namen
   Application.EnableEvents = False              'events uitzetten
   With c.Offset(, 1)                            '1 kolom naar rechts, dus de B-kolom
      .Formula = "=row()-1"                      'formuletje erin zetten
      .Value = .Value                            'formule vervangen door waarde
   End With
   Application.EnableEvents = True               'events aan zetten
   c.Offset(, 2).Locked = False                  'C-kolom vrijgeven
   c.Offset(c.Rows.Count).Resize(1, 3).Locked = False   'eerstvolgende rij vrijgeven
   Me.Protect Paswoord                           'opnieuw beveiligen
End Sub

Sub wissel_namen()
   Dim rij(1 To 3)
   Set c = Range(Range("A2"), Range("A" & Rows.Count).End(xlUp)).Offset(, 2)   'bereik = C-cellen waarvan alle cellen in A-kolom, vanaf A2 tot de laatst gebruikte cel
   x = Application.Transpose(c.Value)            'die C's uitlezen in een array
   For i = LBound(rij) To UBound(rij)            'in een loopje
      rij(i) = Application.Match("x", x, 0)      'zoek een "x"
      If IsNumeric(rij(i)) Then x(rij(i)) = ""   'indien gevonden, wis die "x" in de array
   Next
   If IsNumeric(rij(3)) Or Not (IsNumeric(rij(2))) Then   'niet exact 2
      MsgBox ("Gelieve exact 2 keer 'x' in kolom C te zetten")
   Else
      Me.Unprotect Paswoord                      'beveiliging eraf
      Application.EnableEvents = False           'geen events
      tmp = Cells(rij(1) + 1, 1)                 '1e->tmp
      Cells(rij(1) + 1, 1) = Cells(rij(2) + 1, 1)   '2e->1e
      Cells(rij(2) + 1, 1) = tmp                 'tmp->1e
      Columns(3).ClearContents                   'wissen x
   End If
   Algemeen
End Sub

Sub ev()
   Application.EnableEvents = True
End Sub

Offline Digicafé

  • Excel-Expert
  • Volledig lid
  • *****
  • Berichten: 152
  • Geslacht: Man
  • DigiCafé expert
Re: Beveiliging blad aanpassen
« Reactie #24 Gepost op: 02 april 2020, 08:44:44 »
gooi alle macros weg die nu staan in de module van namen en vervang ze door onderstaande.
Bovenin die macros zie je nu een paswoord "lco" staan, daarmee is dat tabblad vanaf nu beveiligd.
Dus zonder dat paswoord kan je niets doen.
Wil je een ander, zeg het even, dan volgt de uitleg
Volgens mij gaat alles naar wens en kan je niets doms doen.

Const Paswoord = "lco"                           'het paswoord waarmee dit blad beveiligd is

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
   Cancel = True                                 'dubbelklik ongedaan maken
   Set c = Range(Range("A2"), Range("A" & Rows.Count).End(xlUp))   'bereik = alle cellen in A-kolom, vanaf A2 tot de laatst gebruikte cel
   If Intersect(c, Target) Is Nothing Then       '
      Application.Goto Range("C1")               ' sta je niet in dat bereik, ga dan naar C1
   Else
      Me.Unprotect Paswoord                      'beveiliging eraf
      Application.EnableEvents = False           'events uit
      Cells(Target.Row, 1).Resize(, 2).Delete Shift:=xlUp   'A en B cel verwijderen
   End If
   Algemeen                                      'naar algemeen stuk
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
   Algemeen                                      'verandert er iets in het tabblad, dan algemeen laten lopen
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   Set c = Range(Range("A2"), Range("A" & Rows.Count).End(xlUp).Offset(1)).Resize(, 3)   'bereik = alle cellen in A-kolom, vanaf A2 tot de laatst gebruikte cel + 1, 3 kolommen breed
   If Intersect(c, Target) Is Nothing Then Application.Goto Range("C1")   ' sta je niet in dat bereik, ga dan naar C1
End Sub

Sub Algemeen()
   Me.Unprotect Paswoord                         'beveiliging er af
   Range("a1:Z100").Locked = True                'ruim bereik blokkeren
   Set c = Range(Range("A2"), Range("A" & Rows.Count).End(xlUp))   'A-kolom met namen
   Application.EnableEvents = False              'events uitzetten
   With c.Offset(, 1)                            '1 kolom naar rechts, dus de B-kolom
      .Formula = "=row()-1"                      'formuletje erin zetten
      .Value = .Value                            'formule vervangen door waarde
   End With
   Application.EnableEvents = True               'events aan zetten
   c.Offset(, 2).Locked = False                  'C-kolom vrijgeven
   c.Offset(c.Rows.Count).Resize(1, 3).Locked = False   'eerstvolgende rij vrijgeven
   Me.Protect Paswoord                           'opnieuw beveiligen
End Sub

Sub wissel_namen()
   Dim rij(1 To 3)
   Set c = Range(Range("A2"), Range("A" & Rows.Count).End(xlUp)).Offset(, 2)   'bereik = C-cellen waarvan alle cellen in A-kolom, vanaf A2 tot de laatst gebruikte cel
   x = Application.Transpose(c.Value)            'die C's uitlezen in een array
   For i = LBound(rij) To UBound(rij)            'in een loopje
      rij(i) = Application.Match("x", x, 0)      'zoek een "x"
      If IsNumeric(rij(i)) Then x(rij(i)) = ""   'indien gevonden, wis die "x" in de array
   Next
   If IsNumeric(rij(3)) Or Not (IsNumeric(rij(2))) Then   'niet exact 2
      MsgBox ("Gelieve exact 2 keer 'x' in kolom C te zetten")
   Else
      Me.Unprotect Paswoord                      'beveiliging eraf
      Application.EnableEvents = False           'geen events
      tmp = Cells(rij(1) + 1, 1)                 '1e->tmp
      Cells(rij(1) + 1, 1) = Cells(rij(2) + 1, 1)   '2e->1e
      Cells(rij(2) + 1, 1) = tmp                 'tmp->1e
      Columns(3).ClearContents                   'wissen x
   End If
   Algemeen
End Sub

Sub ev()
   Application.EnableEvents = True
End Sub


Wel probleem hé ... na 1x uitvoeren is de sheet niet meer beveiligd, want je hebt het paswoord eraf gehaald in de macro.
en het hoeft niet want je kan een beveiliging zodanig toepassen dat een macro erdoor heen gaat en interactief niet.
vriendelijke groeten,
antwoord niet voldoende ? vraag gerust verder ...

Philip

Offline Digicafé

  • Excel-Expert
  • Volledig lid
  • *****
  • Berichten: 152
  • Geslacht: Man
  • DigiCafé expert
Re: Beveiliging blad aanpassen
« Reactie #25 Gepost op: 02 april 2020, 08:52:08 »

Wel probleem hé ... na 1x uitvoeren is de sheet niet meer beveiligd, want je hebt het paswoord eraf gehaald in de macro.
en het hoeft niet want je kan een beveiliging zodanig toepassen dat een macro erdoor heen gaat en interactief niet.


Gooi die constante maar weg in de eerste zin uit de vorige suggestie.
Wijzig dan de regel :


Me.Unprotect Paswoord


in :


Me.Protect Password:="ICO", UserInterfaceOnly:=True


Dit heeft als gevolg dat je sheet nog altijd beschermd is tegen wijzigingen maar dat elke macro waarin je dit zet erdoor heen kan.
De oorspronkelijke bescherming blijft overigens intact, zodat wijzigen door gebruiker buiten een macro om niet kan ...
vriendelijke groeten,
antwoord niet voldoende ? vraag gerust verder ...

Philip

Offline cow18

  • Excel-Expert
  • Volledig lid
  • *****
  • Berichten: 157
  • Geslacht: Man
  • Oplossing.be
Re: Beveiliging blad aanpassen
« Reactie #26 Gepost op: 02 april 2020, 09:04:27 »
nieuwe versie naar aanleiding van de opmerking van digicafé
voor je start éénmalig de macro "mijnpaswoord" runnen

Let wel : ieder event-macro eindigde in "algemeen" en daar werd de beveiliging er wel weer opgezet, dit in tegenspraak met je opmerking.

Const Paswoord = "lco"                           'het paswoord waarmee dit blad beveiligd is

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
   Cancel = True                                 'dubbelklik ongedaan maken
   Set c = Range(Range("A2"), Range("A" & Rows.Count).End(xlUp))   'bereik = alle cellen in A-kolom, vanaf A2 tot de laatst gebruikte cel
   If Intersect(c, Target) Is Nothing Then       '
      Application.Goto Range("C1")               ' sta je niet in dat bereik, ga dan naar C1
   Else
      Application.EnableEvents = False           'events uit
      Cells(Target.Row, 1).Resize(, 2).Delete Shift:=xlUp   'A en B cel verwijderen
   End If
   Algemeen                                      'naar algemeen stuk
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
   Algemeen                                      'verandert er iets in het tabblad, dan algemeen laten lopen
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   Set c = Range(Range("A2"), Range("A" & Rows.Count).End(xlUp).Offset(1)).Resize(, 3)   'bereik = alle cellen in A-kolom, vanaf A2 tot de laatst gebruikte cel + 1, 3 kolommen breed
   If Intersect(c, Target) Is Nothing Then Application.Goto Range("C1")   ' sta je niet in dat bereik, ga dan naar C1
End Sub

Sub Algemeen()
   Range("a1:Z100").Locked = True                'ruim bereik blokkeren
   Set c = Range(Range("A2"), Range("A" & Rows.Count).End(xlUp))   'A-kolom met namen
   Application.EnableEvents = False              'events uitzetten
   With c.Offset(, 1)                            '1 kolom naar rechts, dus de B-kolom
      .Formula = "=row()-1"                      'formuletje erin zetten
      .Value = .Value                            'formule vervangen door waarde
   End With
   Application.EnableEvents = True               'events aan zetten
   c.Offset(, 2).Locked = False                  'C-kolom vrijgeven
   c.Offset(c.Rows.Count).Resize(1, 3).Locked = False   'eerstvolgende rij vrijgeven
End Sub

Sub wissel_namen()
   Dim rij(1 To 3)
   Set c = Range(Range("A2"), Range("A" & Rows.Count).End(xlUp)).Offset(, 2)   'bereik = C-cellen waarvan alle cellen in A-kolom, vanaf A2 tot de laatst gebruikte cel
   x = Application.Transpose(c.Value)            'die C's uitlezen in een array
   For i = LBound(rij) To UBound(rij)            'in een loopje
      rij(i) = Application.Match("x", x, 0)      'zoek een "x"
      If IsNumeric(rij(i)) Then x(rij(i)) = ""   'indien gevonden, wis die "x" in de array
   Next
   If IsNumeric(rij(3)) Or Not (IsNumeric(rij(2))) Then   'niet exact 2
      MsgBox ("Gelieve exact 2 keer 'x' in kolom C te zetten")
   Else
      Application.EnableEvents = False           'geen events
      tmp = Cells(rij(1) + 1, 1)                 '1e->tmp
      Cells(rij(1) + 1, 1) = Cells(rij(2) + 1, 1)   '2e->1e
      Cells(rij(2) + 1, 1) = tmp                 'tmp->1e
      Columns(3).ClearContents                   'wissen x
   End If
   Algemeen
End Sub

Sub MijnPaswoord()
   Me.Unprotect
   Me.Protect "lco", userinterfaceonly:=True
End Sub


Sub ev()
   Application.EnableEvents = True
End Sub

Offline Digicafé

  • Excel-Expert
  • Volledig lid
  • *****
  • Berichten: 152
  • Geslacht: Man
  • DigiCafé expert
Re: Beveiliging blad aanpassen
« Reactie #27 Gepost op: 02 april 2020, 09:17:50 »
Ziet er nu m.i. erg goed uit !
Slechts één opmerkingske : een unprotect vlak voor een protect met die userinterfaceonly is overbodig ... dat is nl. de eigenaardigheid van die funktie / ze laat de interactieve protect bestaan en is enkel geldig binnen de macro.
Als je dus de macro verlaat, op welke manier dan ook, is de oorspronkelijke bescherming terug (of nog altijd als je wil) aktief...
vriendelijke groeten,
antwoord niet voldoende ? vraag gerust verder ...

Philip

Offline lco

  • Oplosser
  • ****
  • Berichten: 513
  • Geslacht: Man
Re: Beveiliging blad aanpassen
« Reactie #28 Gepost op: 02 april 2020, 09:50:55 »
 Digicafé,cow18,

mijn hoofd slaat op hol,wat is dat allemaal.
Eerst en vooral wil ik jullie er op wijzen dat mijn kennis van vba 0 is hoe meer ik probeer aan jullie uitleg gevolg te geven hoe minder er werkt en hoe minder ik er van begrijp.

heb de volledige code uit de module namen verwijderd en vervangen door jullie code en nu kan ik terug de namen overschrijven,SORRY hoor voor al jullie werk maar ik snap er niks meer van. :-[ :-[ :-[ :-[ :-[

ik moet hier helaas afhaken dat krijg ik niet voor mekaar,kan jullie aanbreng niet plaatsen (mijn hersencellen willen niet mee)
dit is wat ik er van gemaakt in bijlage

ps:voor jullie specialisten :thumbsup: \o/ :thumbsup: \o/ is dit kinderspel maar voor mij ::) ::) ::) ::)


     mvg,lco

Offline Digicafé

  • Excel-Expert
  • Volledig lid
  • *****
  • Berichten: 152
  • Geslacht: Man
  • DigiCafé expert
Re: Beveiliging blad aanpassen
« Reactie #29 Gepost op: 02 april 2020, 10:12:00 »
Digicafé,cow18,

SORRY hoor voor al jullie werk maar ik snap er niks meer van. :-[ :-[ :-[ :-[ :-[

ik moet hier helaas afhaken dat krijg ik niet voor mekaar,kan jullie aanbreng niet plaatsen (mijn hersencellen willen niet mee)


Je wel realiseren dat je een functionaliteit probeert te verkrijgen die inderdaad niet voor beginners te begrijpen valt qua programmatie...
Maar wel doenbaar hoor !
@cow18 Ik laat het aan jou als je nog een mooie, kant-en-klare oplossing wil suggereren - met 2 aan hetzelfde werken is blijkbaar te verwarrend.
vriendelijke groeten,
antwoord niet voldoende ? vraag gerust verder ...

Philip

 


www.combell.com