Excel: Aktivera makro i en viss fil automatiskt
Vilken version av Excel har du/ni?
Jag skulle nog skapa en xlam fil, det vill säga ett Excel add-in.
På så vis kommer macrot alltid att läsas in oavsett vilken fil som öppnas, sen kan du i macrot specificera vilken fil som macrot verkligen ska köras i.
Du kommer aldrig se några varningar när man har det som xlam fil.
Koden här under är en kod som jag använder och den kan lätt ändras till ditt syfte.
Skapa ett nytt excelark och öppna macroeditorn.
I ThisWorkbook, klistra in följande kod:
Public WithEvents App As Application
Private Sub App_SheetActivate(ByVal Sh As Object)
Dim wkbName As String
Dim wb As Workbook
Dim ws As Worksheet
Set wb = ActiveWorkbook
wkbName = Application.Workbooks(1).Name
extension = Mid(wkbName, InStr(wkbName, "."))
shtName = Left(wkbName, InStr(wkbName, ".") - 1)
If extension = ".CSV" And Range("A1").Value = "time,lat,lon,hMSL,velN,velE,velD,hAcc,vAcc,sAcc,gpsFix,numSV" Then
Response = MsgBox(prompt:="Run Flysight GPS-Script?", Buttons:=vbYesNo)
If Response = vbNo Then
Exit Sub
End If
Else
Exit Sub
End If
__________________________________________________________________________________________
End Sub
Private Sub Workbook_Open()
Set App = Application
End Sub
Koden ovan kollar (som du ser) om filen som öppnats är CSV-fil och om den uppfyller vissa andra kriterier.
Variablen shtName är filnamnet minus ".xls"
Så här kan du lätt korrigera koden till " if shtName <> "Tjejens excelfil" Then Exit Sub "
Tror det kommer funka....
Sen där linjen är är där du kopierar in det makro som du skrivit sen tidigare.
Sen är det bara att spara filen som Excel add-in (5:e nere ifrån i Excel 2007 ;P )
Då borde filen sparas i C:\Users\ <<<USER>>> \AppData\Roaming\Microsoft\AddIns
Nu måste vi aktivera Add-in filen.
"knappen där uppe till vänster" -> Excel options
Add-Ins i vänsterfältet, Längst ner finns det en drop down meny. Manage [Excel add ins] Go
Här kanske ditt add-in finns med i listan, annars får du välja Browse och leta upp det.
Detta borde funka.
Beskrivningen ovan är för Excel 2007, det är möjligt att det skiljer lite till 2010 till det svårare och mer koplicerade, men det är så Microsoft jobbar.
Agonotheta; Stort tack för ditt utförliga svar!
Ska pröva detta så snart jag hinner, uppskattar att du tog dig tid att förklara hur det funkar.
Jag kör Excel 2007, och det gör tjejen också såvitt jag vet, så det bör kunna funka.
- Idag Cooler Master släpper flerfärgad kylpasta 19
- Idag Veckans fråga: Vilken extern datalagring föredrar du? 24
- Idag Microsoft Recall under lupp hos integritetsmyndighet 21
- Idag Testpilot: Komplett-PC Epic Gaming a230 Esport Edition – tryggt för spel 4
- Idag Snabbtest: 3DMark Steel Nomad – visuellt avancerat, förvånansvärt lättdrivet 25
- Idag Se vilka spel som funkar på Windows på ARM 23
- Igår Grafikprestanda i Senua's Saga: Hellblade II – ett av de tyngsta PC-spelen någonsin 76
- 19 / 5 Ghost of Tsushima kan använda DLSS och FSR 3 samtidigt 11
- 17 / 5 27 år senare – Winamp får öppen källkod 45
- 17 / 5 Grafikprestanda i Ghost of Tsushima – en välpolerad PC-version 28
- Idag Open AI drog tillbaka röst efter hot från Scarlett Johansson 34
- Igår Studenter hittar sårbarhet i tvättautomater – företaget ignorerar varningar 20
- Igår Se Windows XP infekteras på minuter utan skydd 54
- 20 / 5 Detta gäller när HBO Max blir Max 93
- 20 / 5 Delning av skadlig kod via PDF-filer ökar 24
- Veckans fråga: Vilken extern datalagring föredrar du?24
- 144Hz för kontorsskärm?12
- Cooler Master släpper flerfärgad kylpasta19
- Datorn kokar när jag spelar Age of empires 4 ??4
- Fråga angående bygge av dator 1440p gaming.16
- Nokia 105 4G3
- Dagens fynd — Diskussionstråden49686
- LLama3 eller "Hur kan en språkmodell stapla saker?"43
- DCS : Digital Combat Simulator82
- Microsoft visar upp Copilot Plus PC39
- Säljes Gamingdator
- Säljes LG C2 42'' OLED 4K
- Köpes köper 2070super eller 2080ti
- Säljes Asus X399 moderkort och några möbler.
- Köpes Köper 4080. Alt byte 4070 ti
- Säljes Garderobsrensning - diverse prylar
- Säljes Surface Pro 7
- Säljes WD My Book 8TB
- Säljes Varmilo VEM88 Moonlight V2 TKL EC Sakura
- Säljes Skrivbord 120x60cm Marmor
- Cooler Master släpper flerfärgad kylpasta19
- Veckans fråga: Vilken extern datalagring föredrar du?25
- Microsoft Recall under lupp hos integritetsmyndighet22
- Testpilot: Komplett-PC Epic Gaming a230 Esport Edition – tryggt för spel4
- Se vilka spel som funkar på Windows på ARM23
- Snabbtest: 3DMark Steel Nomad – visuellt avancerat, förvånansvärt lättdrivet25
- DDR6-minne blir 142 procent snabbare17
- Open AI drog tillbaka röst efter hot från Scarlett Johansson34
- Sonos gör hörlursdebut med Sonos Ace48
- Grafikprestanda i Senua's Saga: Hellblade II – ett av de tyngsta PC-spelen någonsin76