Jag har ett XLA-fil med ett antal Moduler och Forms. Under rubriken "Microsoft Excel Object" visas fyra blad och "This Workbook". Du får så vitt jag vet ta bort dem innan du gör det till ett add-in. Alldeles innan du bygger om den till ett add-in, dvs. när det fortfarande är en .xls (utan att du bytt namn) så kan du ta bort dem. Du kan inte ta bort ALLA blad från din arbetsbok, däremot kan du dölja det sista kvarvarande så det inte syns. Ta bort blad gör du från XL, inte från VB Editor. >Du kan inte ta bort ALLA blad från din arbetsbok, däremot kan du dölja det sista kvarvarande så det inte syns. Ta bort blad gör du från XL, inte från VB Editor. Jo, du har rätt i att din funktion (efter dina justeringar) stämmer, men den såg ju inte jag när jag skrev mitt svar. ;-)Extra blad???
Min fråga är hur jag kan bort dessa fyra blad som inte visas och inte innehåller något kod. Alternativet "Remove..." är dimmat??
/MichaelSv: Extra blad???
/Niklas JanssonSv: Extra blad???
Jag tror du kan lösa det med ett temporärt makro:
<code>
Public Sub TaBortSheets()
Dim i As Long
For i = ThisWorkbook.Sheets.Count
ThisWorkbook.Sheets(i).Delete
Next
End Sub
</code>
Har inte provat koden (som vanligt).<br><br>
/Niklas JanssonSv: Extra blad???
Om allt syns i VB Editor så beror det på att du inte låst projektet för visning. Välj Egenskaper/Skydd/Lås projekt för visning, och förslagsvis nåt lösenord till det också.
Spara och öppna igen när du är klar, så ska du se att det blir bättre. :-)
Lycka till.
Mvh
/EESv: Extra blad???
Men nu har han gjort ett add-in, och bladen kommer alltså inte synas ändå. Om han vill ta bort bladen kommer han inte åt dem inifrån XL.
Har han inte längre tillgång till originalfilen så behöver han använda ett makro, och min princip fungerar. Makrot i sig är dels fel och dels kommer den (om mna rättar till den) tyvärr ta bort hälften och sen krascha. Riktiga koden bör vara
<code>
Public Sub TaBortSheets()
Dim i As Long
For i = ThisWorkbook.Sheets.Count To 2
'eller ThisWorkbook.Sheets.Count - 1 To 1
ThisWorkbook.Sheets(i).Delete
Next
End Sub
</code>
En av de ovan angivna funktionerna bör fungera.
/Niklas JanssonSv: Extra blad???
Likväl kvarstår att minst ett blad måste finnas kvar och det kommer synas i VB Editor där han reagerade på det. Lås projektet för visning så löser det sig. :-)
Mvh
/EE