Start » Excelmakron | Effektivisera och Automatisera med Makron » Makroexempel i Excel » Excelmakro som tar bort aktivt kalkylblad

Excelmakro som tar bort aktivt kalkylblad





Ett mycket enkelt litet makro som tar bort valt/valda arbetsblad.

Sub RaderaAktivtKalkylblad()
  ActiveWindow.SelectedSheets.Delete
End Sub

delete-sheetKörningen av detta makro kommer att ge att en varningsruta kommer att visas som kräver att användaren konfirmerar raderingen innan den utförs. Detta är givetvis en säkerhetsspärr som skaparna av Excel har lagt in i programmet och som i vissa fall fyller sin funktion att förhindra oönskade raderingar.

Men om vi känner oss säkra på vår sak så kan vi ta bort spärren och förhindra att varningsfönstret visas. Det är en så kallade egenskap i Excelboken som heter DisplayAlerts som vi genom makrot kan stänga av.

Viktigt i sammanhanget är att vi efter att raderingen är utförd aktiverar funktionen igen. I annat fall fortsätter varningsfunktionen att vara avstängd vilket kan vara riskfyllt.

Nedanstående makrokod raderar markerade Excelblad utan att fråga användaren om lov.

Sub RaderaAktivtKalkylblad()
 Application.DisplayAlerts = False
  ActiveWindow.SelectedSheets.Delete
 Application.DisplayAlerts = True
End Sub

Som du kan se i koden ovan så ställer vi tillbaka DisplayAlerts i aktivt läge så fort kalkylbladet är raderat.





Lämna en kommentar