Help!

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

Hulp bij posten

Recente topics

Auteur Topic: Beveiliging blad aanpassen  (gelezen 3465 keer)

0 leden en 1 gast bekijken dit topic.

Offline lco

  • Oplosser
  • ****
  • Berichten: 513
  • Geslacht: Man
Beveiliging blad aanpassen
« Gepost op: 28 maart 2020, 11:09:02 »
Hallo,

Ik heb een exel file die door meerdere personen word gebruikt.
Nu is het zo dat sommige deze verkeerd invullen en dan willen aanpassen met de nodige problemen tot gevolg.

Op sheet prijskamp worden de namen ingevuld via een userform,tot daar alles ok maar wanneer er een verkeerde naam word ingevuld proberen sommige leden om deze aan te passen in kolom C (sheet prijskamp)met de nodige problemen tot gevolg.
1)de vraag is om deze kolom tegen overschrijven te beveiligen zodat deze niet meer kan aangepast worden als de namen zijn ingevuld.
Ik heb geprobeerd via celeigenschappen maar dat lukt niet ,als ik de file terug open is de blokkering terug weg?

2)bestaat er een mogelijk om bij verkeerde invoer de naam op een of andere manier te wisselen met de juiste naam in de userform door deze op te roepen en aan te passen?


3)In de sheets namen (kolom A+B) en in sheet 7 weken (bereik B/I) en sheet 10 weken (bereik B:L) zouden de kolommen moeten beveiligd worden tegen overschrijven

ps:dit alles om de file te beveiligen (steeds een heel gedoe om dit terug in orde te krijgen) heeft iemand hier een oplossing voor.


    mvg,luc
« Laatst bewerkt op: 31 maart 2020, 09:52:41 door lco »

Offline Dotchiejack

  • Excel-Expert
  • Oplosser
  • *****
  • Berichten: 627
  • Geslacht: Man
  • Oplossing.be
Re: Beveiliging blad (gedeeltelijk)aanpassen
« Reactie #1 Gepost op: 28 maart 2020, 13:30:00 »
Citaat
2)bestaat er een mogelijk om bij verkeerde invoer de naam op een of andere manier te wisselen met de juiste naam in de userform door deze op te roepen en aan te passen?
Alvast een oplossing voor deze vraag.

Groet, Philiep

Offline lco

  • Oplosser
  • ****
  • Berichten: 513
  • Geslacht: Man
Re: Beveiliging blad (gedeeltelijk)aanpassen
« Reactie #2 Gepost op: 28 maart 2020, 14:01:29 »
Dotchiejack,

Bedankt voor deze oplossing,dit is wat ik voor ogen had :thumbsup: :thumbsup:

ps:nu nog de beveiliging van de cellen en we zijn er door "weeral" :-[ :-[

 
                     mvg,lco

Offline lco

  • Oplosser
  • ****
  • Berichten: 513
  • Geslacht: Man
Re: Beveiliging blad (gedeeltelijk)aanpassen
« Reactie #3 Gepost op: 29 maart 2020, 10:21:07 »
Hallo,

moet dit misschien opgenomen worden in de vba codes.
Via celeigenschappen krijg ik het niet klaar,telkens ik de file terug open is de blokkade terug weg ::) ::)
Iemand een andere oplossing :-\



   mvg,lco

« Laatst bewerkt op: 31 maart 2020, 09:01:10 door lco »

Offline lco

  • Oplosser
  • ****
  • Berichten: 513
  • Geslacht: Man
Re: Beveiliging blad (gedeeltelijk)aanpassen
« Reactie #4 Gepost op: 30 maart 2020, 09:37:54 »
hallo,

Na lang proberen heb ik het in orde gekregen,probleem beveiliging opgelost ;) ;)
Nu is er een ander probleem opgedoken.

nl:als je in sheet namen dubbelklikt op een naam verdwijnt deze uit de lijst en sluiten de volgende rijen netjes aan.
met het nieuwe stukje code er bij te plaatsen werkt dit niet meer,waarschijnlijk moet de code aangepast worden om dit terug te laten werken :-\ :-\
kan iemand er eens naar kijken aub  :-[ :-[

    mvg,lco
« Laatst bewerkt op: 01 april 2020, 08:17:27 door lco »

Offline lco

  • Oplosser
  • ****
  • Berichten: 513
  • Geslacht: Man
Re: Beveiliging blad (gedeeltelijk)aanpassen
« Reactie #5 Gepost op: 31 maart 2020, 09:03:15 »
hallo iedereen,

Blijkbaar niet uit te voeren,ga vraag afsluiten.
ps;in ieder geval bedankt voor de hulp :thumbsup:


    mvg,lco

Offline cow18

  • Excel-Expert
  • Volledig lid
  • *****
  • Berichten: 157
  • Geslacht: Man
  • Oplossing.be
Re: Beveiliging blad aanpassen
« Reactie #6 Gepost op: 01 april 2020, 14:44:01 »
Je weet ondertussen zelf ook al, dat dit bestand de evolutie van een paar jaar is en dat zo ongeveer iedereen er al iets aan gedaan heeft.
Dan kan je soms heel gekke dingen krijgen.
Ik begrijp ze zelf ook niet.
Op je tabblad "namen" is er geen scrollarea actief, dus zou je in principe overal in je tabblad kunnen gaan.
Als je iets wijzigt dan springt hij naar I11, waarom ???
Het is een niet-geblokkeerde cel in een niet beveiligd tabblad, al de andere cellen lijken wel geblokkeerd.
Als ik de events uitschakel, dan zou ik denken dat er niet meer kan gebeuren en toch ...

Er zit hier één of andere truc achter die ik niet begrijp.
Wat is de voorgeschiedenis van dit blad ?
Misschien moeten we gewoon een kopie maken van dat blad en dan het blad weggooien en de kopie hernoemen.

Kan je 1 en ander verduidelijken van de voorgeschiedenis ?

Offline lco

  • Oplosser
  • ****
  • Berichten: 513
  • Geslacht: Man
Re: Beveiliging blad aanpassen
« Reactie #7 Gepost op: 01 april 2020, 17:28:26 »
Cow18,

Ik heb uw code uit de vraag van joske1234 gebruik om het blad tegen  overschrijven te beveiligen ;)

deze code heb ik ook op andere tabbladen gebruikt,tot daar geen probleem.
In het tabblad namen heb ik deze ook gebruikt. maar dan werkt het dubbelklikken om een naam te verwijderen niet meer,ik heb de code zo aangepast dat wanneer je op een ingevulde wil gaan staan hij autm. naar cel C1 springt zodat je de ingevulde cellen niet kunt aanpassen,maar ik moet nog steeds de leden die afvallen kunnen verwijderen :-\ :-\
als ik nu een naam wil verwijderen (door dubbelklikken) gaat dit niet meer omdat de andere code dit tegengaat.

ps:op uw vraag van de voorgeschiedenis , er is al meerdere malen een aanpassing gebeurd om een en ander te verbeteren/beveiligen maar omdat allemaal terug te vinden is onbegonnen werk SORRY daarvoor :-[ :-[



      mvg,lco

Offline cow18

  • Excel-Expert
  • Volledig lid
  • *****
  • Berichten: 157
  • Geslacht: Man
  • Oplossing.be
Re: Beveiliging blad aanpassen
« Reactie #8 Gepost op: 01 april 2020, 19:10:04 »
meer dan dit moet het niet zijnPrivate 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


Offline lco

  • Oplosser
  • ****
  • Berichten: 513
  • Geslacht: Man
Re: Beveiliging blad aanpassen
« Reactie #9 Gepost op: 01 april 2020, 19:27:03 »
cow18,

Ik heb uw code geplaatst maar deze doet niet wat hij zo moeten doen.

Als ik op een ingevulde cel ga staan kan ik gewoon de cel aanpassen en dat is nu juist wat er zou mogen gebeuren.

ps:misschien is mijn uitleg niet voldoende,als ik dubbelklik op een ingevulde cell verdwijnt deze uit de lijst,zo hoort het ook.
maar ik kan de ingevulde cellen aanpassen / veranderen en dat is wat ik juist wil voorkomen.

     mvg,lco

Offline cow18

  • Excel-Expert
  • Volledig lid
  • *****
  • Berichten: 157
  • Geslacht: Man
  • Oplossing.be
Re: Beveiliging blad aanpassen
« Reactie #10 Gepost op: 01 april 2020, 20:09:04 »
zo danPrivate 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
vervolgens, de C-kolom of een bereik C1:C100 selecteren, rechtermuisknop klikken >celeigenschappen>bescherming>vinkje weg bij geblokkeerd

Offline cow18

  • Excel-Expert
  • Volledig lid
  • *****
  • Berichten: 157
  • Geslacht: Man
  • Oplossing.be
Re: Beveiliging blad aanpassen
« Reactie #11 Gepost op: 01 april 2020, 20:18:23 »
en de dubbel klik in de C-kolomPrivate Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

   If Intersect(Target, Range("c2:c250")) Is Nothing Then Exit Sub   'je klikt niet in de C-kolom = einde verhaal
   Cancel = True                                 'dubbelklik ongedaan maken
   Cells(Target.Row, 1).Resize(, 2).Delete Shift:=xlUp   'A en B cel verwijderen
   Set c = Range(Range("A2"), Range("A" & Rows.Count).End(xlUp))   'gevulde A-cellen vanaf rij 2
   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

End Sub

Offline lco

  • Oplosser
  • ****
  • Berichten: 513
  • Geslacht: Man
Re: Beveiliging blad aanpassen
« Reactie #12 Gepost op: 01 april 2020, 20:22:13 »
cow18, 

Nu begrijp ik er niets meer van,dit gaat mijn petje te boven :-[ :-[ :-[


     mvg,lco

Offline cow18

  • Excel-Expert
  • Volledig lid
  • *****
  • Berichten: 157
  • Geslacht: Man
  • Oplossing.be
Re: Beveiliging blad aanpassen
« Reactie #13 Gepost op: 01 april 2020, 20:31:10 »
vervang beide macros en werk enkel nog in de C-kolom, dus daarin X-tjes zetten of dubbelklikken

Offline lco

  • Oplosser
  • ****
  • Berichten: 513
  • Geslacht: Man
Re: Beveiliging blad aanpassen
« Reactie #14 Gepost op: 01 april 2020, 20:55:05 »
cow18,

als ik in de c kolom dubbelklik verdwijnt de naam,maar ik kan nog steeds de namen veranderen die al ingevoerd zijn.

ps:ik leg het waarschijnlijk niet goed uit.
in de file werkt het verwijderen met dubblklikken in kolom A zoals het moet ;het enige dat niet mag is dat ik de namen kan aanpassen als ik in kolom A sta ,bij verkeerde ingave of eender wat verwijder je gewoon de lijn en begin opnieuw.

in bijlage een vroegere versie waarin geen beveiliging zit en waarin het dubbelklikken werkt,nu zou enkel de gegevens in kolom A (van de reeds ingevulde cellen) niet overschrijfbaar mogen zijn.
Hopelijk nu beter uitgelegd.


    mvg;lco

 


www.combell.com