Bedankt, Luc voor je uitgebreide uitleg.
Ik heb echter zelf een klein omweggetje bewandeld waardoor het gewenste
resultaat toch wordt verkregen:
Ik heb links van de database een extra kolom toegevoegd en daarin de
records genummerd (bv. 1 t.m. 100)
Deze kolom geselecteerd en het autofilter er op losgelaten.
Vervolgens heb ik alle cellen van het blad in "Bescherming" gedeblokkeerd.
De "extra" kolom verborgen en vervolgens het blad beveiligd.
Resultaat: sorteer- en rij-invoeg of -verwijdermogelijkheden zijn
gedeactiveerd in het menu.
De inhoud van de database kan door derden nu gewoon worden gevuld etc.
zonder dat gesorteerd, rijen ingevoegd
of verwijderd kunnen worden.
Deze methode werkt dan ook in elke Excel-versie én er is geen Vba nodig....
Ik meende er goed aan te doen deze methode nog even hier uiteen te zetten.
m.vr.gr.
Post by Luc.HeyndrickxIndien je je bestand gaat doorgeven aan anderen, dan geeft deze mogelijkheid
lang geen garantie dat ie ook werkt.
1- Nederlandstalig is
2- De sorteermogelijkheden onder de menu 'Data' zitten.
3- De werkbalk 'Standaard' 2 buttons heeft voor het sorteren (Oplopend en
aflopend)
4- Er voor de rest geen buttons meer voorkomen om de lijst te sorteren.
Dit zou volgens mij moeten werken met de standaard instellingen voor de
Nederlandstalige Excel.
Helaas (Of gelukkig... hangt er van af hoe je het bekijkt), kan iedereen
zijn werkbalken en menuopdrachten naar eigen goeddunken wijzigen. En zelfs
indien dit zou werken, kan de gebruiker nog steeds rechts klikken op zijn
werkbalken ... kiezen voor aanpassen, en een nieuwe knop voor het sorteren
naar een werkbalk slepen.
Met andere woorden: dit werkt enkel op uw eigen computer (Macro moet je nog
aanpassen naar uw omstandigheden), en voor niet te slimme gebruikers (Of zij
die geen zin hebben om de zaak te saboteren)
Luc
Post by Luc.HeyndrickxRob,
Ik hoop dat uw Excel-versie nederlandstalig is?
Rechtsklikken op je bladtab, en kiezen voor 'programmacode weergeven'.
Private Sub Worksheet_Activate()
Application.CommandBars(1).FindControl(, 30011) _
.Controls("So&rteren...").Enabled = False
With Application.CommandBars(3)
.Controls("&Oplopend sorteren").Enabled = False
.Controls("&Aflopend sorteren").Enabled = False
End With
End Sub
Private Sub Worksheet_Deactivate()
Application.CommandBars(1).FindControl(, 30011) _
.Controls("So&rteren...").Enabled = True
With Application.CommandBars(3)
.Controls("&Oplopend sorteren").Enabled = True
.Controls("&Aflopend sorteren").Enabled = True
End With
End Sub
Luc
Post by Rob van ValkenburgIk wil weten of het mogelijk is de sorteermogelijkheid in het menu uit
te
Post by Luc.HeyndrickxPost by Rob van Valkenburgschakelen (grijs maken...) bij het selecteren van een bepaalde sheet,
dus ik bedoel hier nadrukkelijk een bepaalde sheet; als ik weer navigeer
naar een andere sheet moet de sorteermogelijkheid weer worden
geactiveerd.
Post by Luc.HeyndrickxPost by Rob van ValkenburgIk wil in dit verband geen gebruik maken van Bladbeveiliging.
Heeft iemand een suggestie? Gebruikmaking van Vba mag ook.....
---
Verzonden mail is gegarandeerd Virusvrij!
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.672 / Virus Database: 434 - Release Date: 28-4-2004
---
Verzonden mail is gegarandeerd Virusvrij!
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.672 / Virus Database: 434 - Release Date: 28-4-2004