Søg
Avatar billede kasperth Juniormester
18. oktober 2005 - 19:26 Der er 8 kommentarer og
2 løsninger

Automatiske handlinger ved åbning af et regneark

Jeg har et regneark, som indeholder en række funktioner som jeg selv har oprettet i VBA. Regnearket ligger på et netværksdrev og benyttes af mange.

For at lette arbejdet, ville jeg gerne indsætte en automatik i arket, som:

1. Automatisk åbner et andet regneark (på et netværksdrev med stien \\drevnavn89\mappe1\mappe2\ark.xls)

2. Automatisk åbnes som skrivebeskyttet, og automatisk lukkes UDEN at gemme.

Tror at det er rimelig simpelt, men kan ikke lige få det til at virke.

På forhånd tak
Avatar billede brynil Nybegynder
18. oktober 2005 - 20:49 #1
Er ikke helt sikker på hvordan du vil skrue det sammen, men du kan måske bruge dette:

    Workbooks.Open Filename:="\\PC2\C\Mappe1.xls", ReadOnly:=True

    ActiveWorkbook.Close SaveChanges:=False

Enten ReadOnly:=True eller SaveChanges:=False burde være tilstrækkeligt.

Placer koden i hhv Workbook_Open og _Close.
Avatar billede kabbak Professor
18. oktober 2005 - 20:55 #2
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
ActiveWorkbook.Saved = True
Cancel = True
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
ActiveWorkbook.Saved = True
End Sub


jeg ville nok vælge dette
Avatar billede brynil Nybegynder
18. oktober 2005 - 20:55 #3
ActiveWorkbook.Close osv skal nok være:

Windows("Mappe1.xls").Close SaveChanges:=False

så du ikke lukker en tilfældig mappe.
Avatar billede kabbak Professor
18. oktober 2005 - 21:00 #4
brynil > koden kan jo ligge i den mappe der åbnes skrivebeskyttet.
Avatar billede brynil Nybegynder
18. oktober 2005 - 21:02 #5
kabbak > femøren faldt sekunder før din kommentar :)) Mit ex forudsætter jo kode der lukker mappen!
Avatar billede bak Forsker
19. oktober 2005 - 00:13 #6
Hvis det er det første regneark der skal være skrivebeskyttet kan du indsætte nedenstående kode i modulet ThisWorkbook.

Private Sub Workbook_Open()
ThisWorkbook.ChangeFileAccess xlReadOnly
Workbooks.Open Filename:="\\PC2\C\Mappe1.xls", ReadOnly:=True
End Sub
Avatar billede kasperth Juniormester
20. oktober 2005 - 19:12 #7
Kabbak vandt ;-)
Avatar billede kabbak Professor
20. oktober 2005 - 19:18 #8
et svar ;-))
Avatar billede brynil Nybegynder
20. oktober 2005 - 19:21 #9
Ha! Der burde være noget der hed handicap. Så fik vi andre oss' en chance.
;))
Avatar billede kabbak Professor
25. januar 2006 - 23:06 #10
marker mit navn og tryk accepter, hvis det virkede
Avatar billede Ny bruger Nybegynder

Din løsning...

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.

Loading billede Opret Preview
Kategori
Excel kurser
Excel kurser for alle niveauer og behov – find det kursus, der passer til dig
Se alle Excel kurser

Flere spørgsmål fra Excel kategorien

Titel Indlæg Oprettet Seneste aktivitet
Ændre tal i en celle Af xvid i Excel 1 04/09/202616:05 04/09/202616:54
Kan Excel selv beregne alder? Af leahcim i Excel 7 31/08/202610:24 04/09/202602:08
problem med mailbesked Af Pestilensen i Excel 3 24/08/202611:16 28/08/202612:55
Sætte billeder ind i google sheets ark ud fra elev nummer Af lurup i Excel 18 17/08/202615:14 I går 22:04
Gemme største værdi Af Lemming@privat.dk i Excel 2 07/08/202622:13 08/08/202609:03
Se alle spørgsmål i kategorien Opret spørgsmål

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Opret Log ind

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten
Seneste spørgsmål Seneste aktivitet
I dag 21:00 Libre Office Impress Af Frank i Andre styresystemer
I dag 11:47 VB script Af Jenshentze i Word
I dag 11:21 Popup ved opstart Af mort1 i Windows
04/0918:50 Slet lokal konto Af ErikHg i Windows
04/0916:05 Ændre tal i en celle Af xvid i Excel
White papers
Flere white papers »