Problem med Excel

Jeg løste problemet med at låse valgte celler MEN jeg kan SGU ikke få DisplayAlerts til at fungere.
Der kommer meddelselse når jeg åbne Regnearket og når jeg forsøger at overskrive. Her er koden:


With xlApp
.DisplayAlerts = False
.Workbooks.Open(oPath & owb).ExclusiveAccess()

Dim ws As Excel.Worksheet = CType(xlApp.ActiveSheet, Excel.Worksheet)
.ActiveWorkbook.Sheets("Ordination").unprotect(Password:="XX")
CType(ws.Range("D12:D16; D19; D21; D29; J18:J31"), Excel.Range).Select()
CType(xlApp.Selection, Excel.Range).Locked = False
CType(ws.Range("D12"), Excel.Range).Select()

.ActiveWorkbook.Sheets("Ordination").protect(Password:="XX")
.ActiveWorkbook.SaveAs(Filename:=.ActiveWorkbook.FullName, AccessMode:=Excel.XlSaveAsAccessMode.xlShared)

.DisplayAlerts = True

.Visible = True

End With

Hmmm med denne kode slap jeg af med meddelelsen om overskrivningen men får forsat den første besked om deling!

With xlApp
.DisplayAlerts = False
.Workbooks.Open(oPath & owb).ExclusiveAccess()
.DisplayAlerts = True

Dim ws As Excel.Worksheet = CType(xlApp.ActiveSheet, Excel.Worksheet)
.ActiveWorkbook.Sheets("Ordination").unprotect(Password:="varde")
CType(ws.Range("D12:D16; D19; D21; D29; J18:J31"), Excel.Range).Select()
CType(xlApp.Selection, Excel.Range).Locked = False
CType(ws.Range("D12"), Excel.Range).Select()

.ActiveWorkbook.Sheets("Ordination").protect(Password:="varde")

.DisplayAlerts = False
.ActiveWorkbook.SaveAs(Filename:=.ActiveWorkbook.FullName, AccessMode:=Excel.XlSaveAsAccessMode.xlShared)
.DisplayAlerts = True

.Visible = True

                                End With

Svar