Hej Application.DisplayAlerts=False Jag är inte helt säker på att detta är rätt funktion men det kan vara värt ett försök. Funktionen skall undertrycka alla dialogrutor och altid välja default valet. Undertrycka msgbox
Har en kod som ser ut som följer
Sheets("Sheet2").Select
Application.CutCopyMode = False
ActiveWindow.SelectedSheets.Delete
när denna kod körs kommer det alltid upp en msgbox med frågan om man verkligen vill ta bort denna flik.
I denna kod som ingår i ett större program skulle jag vilja undertrycka denna för mig onödiga fråga. De sheets som skall deletas är alltid tomma.
Någon som vet hur man gör?
//PA
Sv: Undertrycka msgbox
Sen bör du ställa tillbaks det efteråt också.
Själv brukar jag ha två funktioner, BeforeMacro och AfterMacro (eller något liknande), där jag samlar allt sånt. Typ:
With Application
.ScreenUpdating=False
.Calculation=xlManual
.DisplayAlerts=False
End With
Är inte helt säker på exakta namnen och så just nu, men jag tror du hajar.Sv: Undertrycka msgbox
<Code>
'(oExcel = Excel.Application)
oExcel.DisplayAlerts = False
</code>
Jag var för sent ute ser jag. Niklas han före mig, och med ett bättre och mer utförligt svar till råga på allt! ja ja.. det finns ingen rättvisa i denna värld.