Luk Excel 2007 helt ned efter lidt VB kode
HejJeg har et Excel 2007 regneark, som er udviklet af et andet firma, og bruges til at lave nogle rapporter.
Når regnearket åbnes, åbner det automatisk endnu et regneark i baggrunden.
Når brugerne ønsker at lukke regnearket klikker de på X i øverste hjørne. Det resulterede tidligere i at det andet regneark kom frem, til stor forvirring for brugeren for han/hun havde jo kun åbnet et regneark.
Jeg har derfor tilføjet lidt VB kode:
Private Sub Workbook_BeforeClose(Cancel As Boolean)
'Autoclose report.xls when closing books.xls
Dim wbk As Workbook
For Each wbk In Workbooks
If wbk.Name = "Report.xls" Or wbk.Name = "Report" Then
wbk.Close False
End If
Next wbk
Application.Quit
End Sub
Koden lukker det andet ark (report.xls), men jeg ender nu med en tom excel, som skal lukkes ned. Hvis report.xls ikke er åben lukkes excel helt ned. Det er kun når report.xls er åben, at excel ikke lukkes helt ned.
Hvad gør jeg galt?