sorteren in beveiligd werkblad
Vincent Schoutsen
Bestaat de mogelijkheid om in een "Auto_Open macro" van een beveiligd
werkblad een code te plaatsen die sorteren wel mogelijk maakt?
Zoja, hoe luidt die code dan ?
vincent
Ingrid Baplue
(werkt in XP, vroegere versies heb ik niet gecontroleerd)
Private Sub Workbook_Open()
Sheets("Blad1").Protect AllowSorting:=True
End Sub
Met volgende code in ThisWorkbook wordt het blad enkel beveiligd voor
manuele invoer, macro's kunnen nog alle bewerkingen uivoeren:
Private Sub Workbook_Open()
Sheets("Blad1").Protect UserInterfaceOnly:=True
End Sub
Ingrid
Vincent Schoutsen schreef in news:b730bt$jlv$1...@news.hccnet.nl
Vincent Schoutsen
Ik werk met Excel2000
De sorteercode werkt helaas niet.
De code die macro's laat uitvoeren in een beveiligd blad werkt vreemd genoeg
gedeeltelijk.
In een werkblad heb ik 3 knoppen, waarmee macro's worden gestart
1 knop werkt wel ; 2 knoppen werken niet; de macro's zijn geschreven in
Macro-4.0
Wat jij beoogde met de code die macro's laat starten, had ik al gerealiseerd
met onderstaande code,
ergens opgedoken en in module-blad geplaatst.
Zowel de filters , als de macro's werken.
Sub Auto_Open()
ActiveSheet.EnableAutoFilter = True
ActiveSheet.Protect contents:=True, UserInterfaceOnly:=True
End Sub
Ik kan het verschil tussen jouw code en deze (nog) niet beoordelen; ik kan
alleen constateren dat de ene het wel doet en de andere niet.
Ik wil je in ieder geval bedanken voor de genomen moeite.
vincent
"Ingrid Baplue" <ingrid_bap...@hotmail.com> schreef in bericht
news:e6#cYc3$CHA....@TK2MSFTNGP10.phx.gbl...
Vincent Schoutsen
Nog even melding van een vreemd verschijnsel:
Na experiment met codes, van Ingrid plaatste ik mijn oorspronkelijke
"Auto-Open macro" terug,
Ook hier bleek toen maar een van de 3 knoppen te werken
De knoppen staan in titelrij, waarin ook de filterknoppen staan.
Bij klikken op Macro-knop kreeg ik pop-up-venster van filter. Zeer vreemd
!!!
Toen ik de knop verplaatste naar andere regel werkte hij wel.
Ik heb de knop weer in de titelrij gezet, dus bij de filters en vervolgens
de knop (via snelmenu; volgorde) naar de voorgrond geplaatst.
Hij werkt nu weer als vanouds.
Ik heb de code van Ingrid niet opnieuw getest, maar ik ga er vanuit dat dit
verschijnsel zich ook heeft voorgedaan bij het testen van de code van
Ingrid.
Dit wilde ik toch even laten weten.
vincent
"Vincent Schoutsen" <vf.sch...@HAALDITWEGhccnet.nl> schreef in bericht
news:b74cst$72u$1...@news.hccnet.nl...
Eric Desart
Ik denk dat je dingen aan het mixen bent.
De code van Ingrid is VBA code.
Jij praat over Macro 4.
Je kan geen VBA code in een Macro4 blad zetten.
Mogelijk werkt de combinatie (niet geprobeerd)
Je kan via jouw Auto_Open macro mogelijk Ingrids code aanroepen als functie
(moet je deze in een module zetten).
Macro4 liet de optie die Ingrid beschreef niet rechtstreeks toe.
Probeer zo eens.
Auto_Open
=AllowMacros()
=........
=RETURN()
en in een module zet je
Private Sub AllowMacros(cName as string)
Sheets(cName).Protect UserInterfaceOnly:=True
End Sub
Zo gebruik je een VBA mogelijkheid in je Macro4.
In Macro 4 kon je alleen
1) unprotecten
2) code uitvoeren
3) weer protecten
Groetjes
Eric
"Vincent Schoutsen" <vf.sch...@HAALDITWEGhccnet.nl> schreef in bericht
news:b74fdn$b0e$1...@news.hccnet.nl...
Eric Desart
| Auto_Open
| =AllowMacros()
| =........
| =RETURN()
moet zijn:
| Auto_Open
| =AllowMacros("naam sheet")
| =........
| =RETURN()
"Eric Desart" <afb...@belgacom.net> schreef in bericht
news:uEmBgH6$CHA....@TK2MSFTNGP12.phx.gbl...
Vincent Schoutsen
Mijn macro's-4 staan in een macroblad (tabblad) in werkmap, dus niet in
"Prsnlk"
In VBA zorg ik er voor dat bij het openen van de werkmap de knoppen met
daaracher macro's-4 te benaderen zijn.
Dat werkte.; zo ook het filteren.
Alleen sorteren met de standaard Excel-knop werkte niet.
Ik ga een sorteerroutine in een macro zetten, en dan moet dat volgens mij
ook werken.
De ellende is dat ik macro's-4 achter elkaar opschrijf, terwijl ik verwacht
dat het maanden duurt voordat ik VBA een beetje beheers. maar ja het moet er
toch maar eens van komen. Uit jouw berichten heb ik begrepen dat jij onlangs
wel die omschakeling hebt gemaakt.
Eric, ik dank je voor je goede raad.
vincent
"Eric Desart" <afb...@belgacom.net> schreef in bericht
news:#v52sX6$CHA....@TK2MSFTNGP11.phx.gbl...
Eric Desart
Bedankt voor sympathiek berichtje.
Ik zit met hetzelfde probleem als jij. Ken Macro4 van buiten en kan 99% zonder
Help files werken.
Probleem is dat een paar opties, onmogelijk zijn via Macro4 (waar Excel geen
rekening hield met compatibiliteit tussen versies).
Vooral daar roep ik VBA functies aan (werkt zoals een UDF, maar werkt ook voor
command functies)
Het is eenvoudiger vanuit Macro4 VBA functies aan te roepen dan omgekeerd.
Ik zit ook een beetje blok op de enorme hoeveelheden code die ik nog heb in
Macro4.
Zuiver wiskundig heeft Macro4 GEEN ENKEL nadeel t.o.v. VBA en werkt veel
flexibeler met array functies.
Wanneer je in VBA worksheet functies gebruikt is Macro4 zelfs sneller dan VBA.
De verbeteringen in VBA zijn meer cosmetisch van aard (interactie met
user-interface en net)
Maar ja, ooit zullen we wel moeten (wij zijn de Opa's hier), en ik maak dankbaar
gebruik van de VBA kennis hier (hier zitten een bende toffe mensen).
Wat grappig is is dat Microsoft zelf nog gebruik maakt van de Macro4 taal
(voorbeeld Funcres.xla en andere invoegtoepassingen.)
Groetjes
Eric
"Vincent Schoutsen" <vf.sch...@HAALDITWEGhccnet.nl> schreef in bericht
news:b74pjk$o9l$1...@news.hccnet.nl...