Jag har ett XLA-fil med ett antal Moduler och Forms. Under rubriken "Microsoft Excel Object" visas fyra blad och "This Workbook".

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??

/Michael

Du får så vitt jag vet ta bort dem innan du gör det till ett add-in.

/Niklas Jansson

Har provat att döpa om den till XLS, men ingen skillnad!?!?

/Michael

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.

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 Jansson

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.
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
/EE

>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.

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 Jansson

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. ;-)
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