auto filter op alles zetten bij sluiten bestand

already

unread,

Dec 29, 2006, 3:52:00 PM12/29/06

to

Hallo,

Kan ik bij het afsluiten van een excel sheet de autofilter automatisch op
alles (all) zetten.
Graag had ik ook bij het afsluiten de positie van de cursor op cel A1 gehad
(eerste rij en eerste kolom staan vast)

alvast bedankt

Groeten

Al

Spreadsheet Solutions

unread,

Dec 30, 2006, 4:35:11 AM12/30/06

to

Already;

ActiveSheet.ShowAllData
Range("A1").Select

--
--
Mark Rosenkrantz
--
Spreadsheet Solutions
Witkopeend 24
1423 SN, Uithoorn
Netherlands
--
W: www.rosenkrantz.nl
E: con...@rosenkrantz.nl
--
"already" <alr...@hotmail.com> wrote in message
news:45958007$0$5539$ba62...@news.skynet.be...

already

unread,

Dec 30, 2006, 8:08:33 AM12/30/06

to

Mark bedankt
Maar hoe laat ik excel dit doen bij het sluiten van de sheet?

Groeten

Al

"Spreadsheet Solutions" <con...@rosenkrantz.nl> wrote in message
news:459632cb$0$13606$ba62...@text.nova.planet.nl...

Spreadsheet Solutions

unread,

Dec 30, 2006, 8:11:49 AM12/30/06

to

Juist;

Deze regels moet je in de volgende VBA module plaatsen.
WorkbookBeforeClose

--
--
Mark Rosenkrantz
--
Spreadsheet Solutions
Witkopeend 24
1423 SN, Uithoorn
Netherlands
--
W: www.rosenkrantz.nl
E: con...@rosenkrantz.nl
--
"already" <alr...@hotmail.com> wrote in message

news:459664eb$0$31459$ba62...@news.skynet.be...

already

unread,

Dec 30, 2006, 10:38:25 AM12/30/06

to

Nogmaals bedankt Mark maar ik geraak er niet aan uit.

kan je een voorbeeldje geven

Alvast bedankt

Al
"Spreadsheet Solutions" <con...@rosenkrantz.nl> wrote in message

news:45966591$0$2017$ba62...@text.nova.planet.nl...

Cobbe

unread,

Dec 30, 2006, 11:07:01 AM12/30/06

to

Dit moet je in je Werkboek zetten: via F11 en This Workbook selecteren:

Private Sub Workbook_BeforeClose(Cancel As Boolean)
ActiveSheet.ShowAllData
Range("A1").Select
End Sub

Cobbe

already drukte met precisie uit :

already

unread,

Dec 30, 2006, 11:27:56 AM12/30/06

to

dat is het Cobbe.

Er is wel een klein probleem indien er geen data is gefilterd krijg ik

volgende fout melding 'showalldata method of woksheet class failed'

Is dit te verhelpen?

Groeten

Al

"Cobbe" <cobeske...@vlaanderen.be> wrote in message
news:mn.f4037d6c4...@vlaanderen.be...

Cobbe

unread,

Dec 30, 2006, 11:36:39 AM12/30/06

to

Maak er dan dit van:

Private Sub Workbook_BeforeClose(Cancel As Boolean)

Selection.AutoFilter Field:=1, Criteria1:=A2

ActiveSheet.ShowAllData
Range("A1").Select
End Sub

Waarbij je Criteria:=A2 moet aanpassen aan de eerst gevulde cel waarop
de filter staat.

Niet het meest propere maar het werkt.

Cobbe

already gebruikte zijn klavier om te schrijven :

already

unread,

Dec 30, 2006, 11:40:03 AM12/30/06

to

werkt 100 % - 1000 x bedankt
Al

"Cobbe" <cobeske...@vlaanderen.be> wrote in message

news:mn.f4207d6cf...@vlaanderen.be...

Cobbe

unread,

Dec 30, 2006, 11:43:52 AM12/30/06

to

1000 is te veel.
Want eigenlijk had Mark al de oplossing gegeven.
Maar ik zal die 1000 delen met Mark, oké?

Cobbe

already formuleerde de vraag :

already

unread,

Jan 2, 2007, 2:17:31 PM1/2/07

to

Hallo Cobbe,

ik heb dit na testen proberen over te brengen op een 'protected sheet'
waarop ik volledige toegang hab

Ik krijg de melding dat deze macro niet kan worden toegepast op een
beveiligd blad

Heb je hier ook een oplossing voor?

Groeten

al

"Cobbe" <cobeske...@vlaanderen.be> wrote in message

news:mn.f4277d6c1...@vlaanderen.be...

Cobbe

unread,

Jan 2, 2007, 2:27:33 PM1/2/07

to

1° Oplossing:
Dit in je werkboekcode zetten:
Private Sub Workbook_Open()
Sheets("Blad1").Protect UserInterfaceOnly:=True
End Sub

2° Oplossing:

ActiveSheet.Unprotect Password:="geheim"
'uit te voeren macro
ActiveSheet.Protect Password:="geheim"

Password = optie

Cobbe

already stelde de volgende uitleg voor :

already

unread,

Jan 2, 2007, 3:49:25 PM1/2/07

to

Hi Cobbe,

De eerste oplossing kan ik gebruiken vermits er geen pw op de sheet staat.

Wat dit stukje macro doet is de allow 'use auto filter' bij protection
uitzetten.

Dus zodra ik deze sheet terug open kan er geen auto filter worden toegepast.

enig idee om dit te verhelpen?

Groeten

Al

"Cobbe" <cobeske...@vlaanderen.be> wrote in message

news:mn.14cb7d716...@vlaanderen.be...