Hvordan tjekker jeg om der er flere projektmapper åbnet?

Denne kode lukker alle andre projektmapper end netop den koden er i:

Sub wb()
For Each wkb In Workbooks
    If wkb.Name <> ThisWorkbook.Name Then
        wkb.Close savechanges:=True
    End If
Next wkb
End Sub

Hvis den skal spørghe om ændringer skal gemmes i stedet for bare at gøre det, skal du slette:

savechanges:=True

Perfekt - nu bliver det mere kompliceret: Hvad nu hvis bruger annullerer at gemme, så bliver aktuelle wkb ikke lukket. Så skal min kode bremses. Kan jeg kontrollere det?

Annuller betyder jo netop, at der hver skal gemmes eller ej, altså at mappen skal forblive åben. Hvad ønsker du at der skal ske, hvis brugeren klikker annuller?

Jeg har sådan set løst det ved at min kode kører i ring indtil bruger har lukket alle andre projektmapper - ikke så elegant kode, men det virker efter hensigten: Bruger SKAL lukke øvrige projektmapper, hvis ikke skal koden stoppe.

Noget i retning ville se bedre ud...
  if AndreProjektmapperÅbne = True then

Måske kan du teste på noget i stil med

If Workbooks.Count > 1 then...

Hvis du har makroer i den personlige makroprojektmappe er den altid åben omend skjult, og du skal så teste på om antallet er større end 2.