05. juni 2005 - 20:01Der er
15 kommentarer og 1 løsning
åbning af de sidste 4 brugte sider.
Hej allesammen. Jeg har et lille problem jeg håber nogen kan hjælpe mig med. Før når jeg åbnede excel kunne jeg se de sidste 4 regneark jeg havde brugt,nu er det hele tiden de samme 4 der står der. Hvad har jeg trykket på jeg ikke skulle have trykket på. M.V.H. Torben
I men egen har jeg opdaget, at det kun virker når jeg åbner programmet Excel først, og derefter åbner en Excel-fil. Så kommer de benyttede filer på listen.
Hvis jeg derimod bare dobbelt-klikker på en Excel-fil, kommer den ikke på listen. Ved desværre ikke hvorfor, eller om det altid har været sådan.
Når man dobbelklikker på filerne (åbner dem) i stifinder, vil xl97 og xl2000 ikke registrere dem i sidst åbnet-listen. Dette startde først i xlXP . Dette kan dog fixes med en lille makro man lægger i personlig.xls. Hvis du er interesseret vil jeg gerne smide den her.
Ok, at makroen er små betyder ikke at det er nemt :-)
Hop til VBA-editoren (Alt-F11) Find Person.xls I menuen Insert vælg at indsætte et Class Module Indsæt denne kode i Class Modulet
Option Explicit Public WithEvents App As Application Private bOnList As Boolean
Property Get addtolist() As Boolean addtolist = bOnList End Property
Property Let addtolist(MyBool As Boolean) bOnList = MyBool End Property
Private Sub App_WorkbookOpen(ByVal Wb As Workbook) On Error Resume Next If bOnList = True Then Application.RecentFiles.Add Name:=ActiveWorkbook.FullName End Sub
Opret så et alm. modul og indsæt dette:
Public MyClass As New Class1
Sub InitializeApp() Set MyClass.App = Application MyClass.addtolist = True End Sub
For at aktivere progemmet skal man køre makroen InitializeApp. Dette har jeg valgt at gøre automatisk ved at indsætte en kode mere der starter programmet når excel starter op
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.