Cor-Assa

13 uren geleden, emielDS zei:

Je weet toch dat de beveiliging op excel een lachertje is. Je hebt maar naar een macro te kijken en het paswoord staat er te lezen.

Database objecten overzicht - 2021-02-23 - 14.38 uur.xlsm 137 kB · 3 downloads

En wat beveiliging betreft nog een belangrijk ding, volgens mij ooit van Dotchiejack geleerd.

Zet je wachtwoord altijd als variabele in een verborgen cel op een werkblad.

Dan kan je m nooit in VBA uitlezen en altijd wijzigen zonder veel programmering aan te moeten passen.

11 uren geleden, emielDS zei:

Je weet toch dat de beveiliging op excel een lachertje is. Je hebt maar naar een macro te kijken en het paswoord staat er te lezen.

Database objecten overzicht - 2021-02-23 - 14.38 uur.xlsm 137 kB · 3 downloads

Beste emielDS,

Als dusdanig gebruik ik paswoorden ook niet in excel.

De paswoorden zijn bedoeld om onbedoelde wijzigingen e.d. in cellen te voorkomen.

Daarbij zijn er ook vele gebruikers die totaal geen benul van VBA hebben en niet eens weten dat dat in excel gebruikt kan worden.😉

Ik kom er even niet meer uit, loop vast op een paar zaken, zal mijn bestand bijvoegen.

Voor het gemak heb ik wachtwoord als wachtwoord gelaten.

O.a. sorteren op "Drip Lokatie" sorteert verkeerd om.

Zou graag per scherm, de scherm breedte van het bestand aanhouden, hoogte is niet zo belangrijk, de rechter scroll balk heb ik laten staan.

Bij de beveiliging krijg ik het niet voor elkaar om de cellen in kolom A aan te klikken, 1x klik moet voldoende zijn.

Alvast bedankt.

Gr. Cor & Meista

Database objecten overzicht - 2021-02-23 - 14.38 uur.xlsm

Helaas ben ik er dan nog niet.

Wat ik ook probeer, als ik het blad "Drip's RWS" beveiligd dan kan ik de knoppen in kolom A niet meer aanklikken.

Ik probeer al opties in de "Blad beveiligen" maar dat maakt niets uit.

Welke optie moet ik daarvoor aanvinken?

2 minuten geleden, dotchiejack zei:

Is ook van toepassing op het sorteren.

 

☺️

12 minuten geleden, dotchiejack zei:

in de macro waar je filtert
 

Sub filtermacro
Sheets("Storings overzicht").Unprotect Password:="wachtwoord"
	'uw filtercode
Sheets("Storings overzicht").Protect Password:="wachtwoord"
end sub

Het woordje wachtwoord veranderen door je echte wachtwoord.

Oké die is duidelijk gaan we invoeren.

Nog n probleem, als ik het werkblad "Drip's RWS" beveiligd kan ik niet meer sorteren dan blijft hij hangen bij het commando  '.Sort [*5]

Wat is daar de oorzaak van?

Even nog een ander probleem waar ik tegenaan loop.

Het 1e blad "Storings overzicht" is alleen een presentatie pagina, daar mogen dus geen gegevens in gewijzigd worden.

Als ik deze pagina beveiligd kunnen er geen gegevens d.m.v. filter meer ingevuld worden vanwege de beveiliging.

Is hier een oplossing voor?

1 minuut geleden, emielDS zei:

misschien is het raadzaam te melden wat er in de mail moet staan.

Inderdaad emielDS, niet verwacht dat er zo snel gereageerd zou worden.

Moet het nog even precies op en rijtje zetten maar in ieder geval de naam van het object aangezien dat uniek is.

Is goed rustig aan.

Heb morgen genoeg te doen, alles ombouwen naar jouw methode.

Alvast bedankt en werkse .

Ik ben nu klaar met werken, vanmorgen om 05:30 uur begonnen tot 13:00 uur.

11 minuten geleden, dotchiejack zei:

Is geen enkel probleem, spreken we hier over 2 email adressen? (storingskamer en groep collega's)

Inderdaad.

De groep collega's zitten samengevoegd onder 1 account naam.

Bedankt dotchiejack, kan nooit kwaad een stukje extra attentie.

Als je toch aan het verder denken ben ......😁

Mijn volgende stap zou zijn dat er aansluiten op het in storing melden een mailtje naar de storingskamer gestuurd wordt, en een mailtje naar de groep collega's.

Bij het afmelden van de storing alleen een mailtje naar de groep collega's.

Gr. Cor Assa

8 minuten geleden, dotchiejack zei:

U vraagt, wij draaien.😉

Database objecten overzicht.xlsm 57 kB · 3 downloads

Perfect, dit gaat m worden.

Toch betrouwbaarder dan die knoppen, die er eigenlijk wel cosmetisch mooier uit zagen.

Sorry, nog n vraagje, kan er een "Annuleer" knop onder?

13 minuten geleden, dotchiejack zei:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Not Intersect(Target, Range("A1:A200")) Is Nothing Then Cancel = True
End Sub

 

In de code van het blad en in de userform.

Sorry, mijn fout, had beide werkbladen nog open staan, keek daardoor in het verkeerde blad code.

Trouwens jouw eerste advies, verplaatsen gerelateerd aan cellen stond al actief dus dat maakt niet uit.

De grote van de knoppen is inderdaad kleiner dan de cellen, die ervaring had ik al.

Denk dat het toch jouw laatste advies gaat worden, is betrouwbaarder dan die knoppen.

Bedankt,

Cor Assa

Dotchiejack,

Dubbel klikken in de cel had een paar keer tot gevolg dat de cursor er actief in bleef staan.

Ernaast klikken loste ket op en plaatste de storings tekst maar liet de cel groen.

Is dubbel klikken te onderdrukken, 1 klik is voldoende.

Als je 1x in een cel geklikt heb en dit wil annuleren kan je op het kruisje klikken.

Alsnog in de bewuste cel klikken heeft dan geen effect.

Werkt verder goed, maar waar kan ik de programmering vinden?

Ik heb wel gevonden in de cel eigenschappen dat het een Aangepast "Knop"& Standaard instelling is, maar die ken ik nog niet.

Gr. Cor assa

Jouw oplossing ziet er ook wel acceptabel uit.

Ik heb het helaas in deze niet alleen voor het zeggen maar is een goed alternatief.

Ik ga eerst jouw eerste advies uitproberen.

Alvast bedankt weer.

Cor Assa

Het was inderdaad even wat werk maar ik vind het er goed en vooral duidelijk uitzien, ook mijn collega's.

Is echter nog een probleempje, de knoppen sorteren niet goed mee, doe ik daar nog iets fout?

Als ik op het blad drips verschillende sorteer knoppen heb gebruikt dan staan veel knoppen niet meer boven de cel waar ze thuis horen.

Gevolg een rode knop boven een niet storing cel en een groene knop boven een storing cel.

zie bijlage.

B.v.d.

Cor Assa

Database objecten overzicht - 2021-02-22 - T.b.v. forum.xlsm

17 minuten geleden, dotchiejack zei:

Beste Cor, volgens mij zoek je het nu wat te ver.

Is volgende niet voldoende?

Voorbeeld met voorwaardelijke opmaak.

Cor PChelp.xlsx 9 kB · 2 downloads

Dit keer zit jij ver van mijn idëeen dotchiejack.

Het moet voor mij en mijn collega's met 1 muisklik gedaan zijn en niet een waarde intikken met kans op fouten.

Soms moeten handelingen bij ons snel doorgevoerd worden en dan mogen er geen fouten gemaakt worden.

De laatste oplossing van emielDS was voor mij perfect.

Fantastisch emielDS, ondanks dat het niet jouw voorkeur was, precies wat ik wilde.

Eigenlijk is het alleen maar kopieeren en kleine details aanpassen.

Loop alleen nog tegen een paar kleine probleempjes aan (o.a. zie bijlage).

1. De bovenste knop verslikte zich en kreeg in groen de tekst "In storing" dat mag natuurlijk niet.

2. De knop en de programmering van mijn prive laptop naar mijn werk pc gekopieerd.

Daar werkt alle ook op 1 ding na, er verschijnt geen tekst in de knop?

Knoppen test (1).xlsm

Bedankt emielDS dit lijkt er al een beetje op.

Alleen komt er in de cel geen tekst te staan en dat heb ik weer nodig voor het filter zoals in het oude bestand.

Komt voor mij verder de vraag, waar is de programmering, ik zie geen vba?

Alvast bedankt.

13 minuten geleden, emielDS zei:

VO= voorwaardelijke opmaak

Database objecten overzicht - 2021-02-19 tbv forum (1).xlsm 61 kB · 2 downloads

Zoiets bedoel ik inderdaad, maar geef de voorkeur aan knoppen.

Dat dubbel klikken vind ik niet zo prettig.

P.s.

Heb hierover een nieuw topic gestart om het sorteren en knoppen gescheiden te houden.

Zo wordt het begin van dit topic niet vervuild.

In een ander topic was ik van mijn sorteer probleem afgedwaald naar knoppen.

Om het netjes te houden start ik daarvoor een nieuw topic.

In mijn bijlage heb ik een voorbeeld gemaakt van wat ik wil.

Hierin staat maar 1 knop maar dit moeten er veel meer worden.

De routine zal overal dezelfde zijn alleen de gekoppelde cellen zullen anders zijn.

Mijn vraag;

.     Zijn knoppen aan specifieke cellen te koppelen?

.     Kan je van knoppen ook de kleuren aan passen zoals in mijn voorbeeld?

B.v.d.

Cor AssaKnoppen test.xlsm

56 minuten geleden, emielDS zei:

je wil dus 200 knoppen op uw blad en 200 codes, en dan zal je willen dat het een beetje sneller gaat?

doe het dan zo en denk dat er een knop staat.

 

en bekijk ook eens de manier van vo zodat je leert dat er niet voor elke cel een aparte vo moet ingesteld worden.

Bedankt voor je reactie.

Vraagje, misschien heb ik iets gemist maar wat bedoel jij met vo?

Nee emielDS, dat bedoel ik niet.

De cel waar nu in storing in verschijnt zou een knop bovenop moeten staan.

Als het betreffende object in orde is is deze knop groen en de cel er onder leeg.

Als je nu op de knop klikt geef je aan dat het object in storing is.

Dan moet de knop rood worden n in de cel er onder de tekst In storing moeten verschijnen.

Aan de rest van de regel hoeft niets te veranderen.

Wederom bedankt voor je mee denken.