VBA: Ignorer at Sub/Function evt. ikke findes

prøv med noget i denne stil
Private Sub Workbook_BeforeClose(Cancel As Boolean)
If ThisWorkbook.Saved = False Then
    ret = MsgBox("Du har ikke gemt. Ønsker du at gemme nu ?", vbYesNo)
    If ret = vbYes Then ThisWorkbook.Save
    'din kode
End If
    ThisWorkbook.Saved = True
End Sub

Det hjælper jo ikke på at lige så snart jeg indsætter navnet på en Sub fra min xla fil i 'din kode, at Compiler fejlen så kommer !? Fordi Excel er jo så "smart" lavet så den compiler hele Sub'en inden den udfører den, og når den så når ned til 'din kode hvor jeg har indsat min Sub fra xla filen, så finder den jo ud af at den Sub ikke findes fordi xla filen ikke længere er åben. Det er jo det jeg gerne vil undgå :)

aha, så har jeg nok misforstået spm.
Jeg troede at du først ville lukke xla-filen ned på det punkt (din kode)

Private Sub Workbook_BeforeClose(Cancel As Boolean)

'her køres din sub fra xla filen

If ThisWorkbook.Saved = False Then
    ret = MsgBox("Du har ikke gemt. Ønsker du at gemme nu ?", vbYesNo)
    If ret = vbYes Then ThisWorkbook.Save
    'her lukkes xla-filen ned
End If
    ThisWorkbook.Saved = True
End Sub

Det tips du fandt på hans side var præcis det jeg tænkte på.

Men jeg kan se (som bak) at du mente noget andet end jeg havde forstået, og bak's løsning virker jo fint :-)

Konkret eksempel:

Hent http://exp.geertsen.dk/537888.zip - filen indeholder en xla og en xls fil. xla filen skal ligge i roden c:\ (med mindre man lige ændrer stien i xls filen).

Opgaven er så som følger:

Ved lukning af xls filen skal Sub'en RemoveMacroReference udføres. Det er der i sig selv ikke nogen problemer i. Problemet er hvis der er sket ændringer i dokumentet og man så lukker dokumentet. Så vil den jo naturligt nok spørge om man vil gemme ændringerne. Svarer man ja til det, så skal Sub'en Test i Workbook_BeforeSave udføres, men eftersom Workbook_BeforeClose bliver kaldt før Workbook_BeforeSave så er referencen til xla filen allerede blevet fjernet, og dermed kan den ikke finde Test Sub'en som jo ligger i xla filen. Under alle omstændigheder så skal RemoveMacroReference udføres sådan så xla filens reference bliver fjernet og xla filen bliver lukket.

Håber I forstår hvad jeg mener.

Forstået! Løser dette ikke dit problem ?
Kode placeres i ThisWorkbook


Private mbClose As Boolean 'Modul variable som bruges til check af Close

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    mbClose = True
    If ThisWorkbook.Saved Then
        RemoveMacroReference
    End If
End Sub

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
    Test
    If mbClose Then
        RemoveMacroReference
    End If
End Sub

Private Sub Workbook_Open()
    AddMacroReference "c:\Macro.xla"
    mbClose = False
End Sub

Synes ikke det virker helt ordentlig.

Hvis du lukker xls dokumentet, men ikke selve Excel, bliver xla filen så lukket hos dig?

Selvom jeg synes dit eksempel teoretisk set burde virke som jeg gerne vil have det til at virke :)

ja - der var dog en lille fejl....... ib BeforeClose skal der stå
If Not ThisWorkbook.Saved Then

Det kan godt være du skal ændre til dette.... prøv ad

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    mbClose = True
    RemoveMacroReference
End Sub

Det bør vel ikke være "If Not" !? For hvis xls dokumentet ER gemt, så skal den jo netop fjerne referencen når den lukker eftersom Workbook_BeforeSave jo så ikke burde blive kaldt.

Tror min Excel er lidt mærkelig, for hvis jeg step'er mig igennem f.eks. RemoveMacroReference macroen, så bliver xla filen som regel lukket, men ellers gør den ikke.

Så er jeg tilbage. Prøv dette her:

Private mbClose As Boolean 'Modul variable som bruges til check af Close

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    If Not ThisWorkbook.Saved Then
        Test
    End If
    mbClose = True
    RemoveMacroReference
End Sub

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
    If ThisWorkbook.Saved = False And mbClose = False Then
        Test
    End If
End Sub

Private Sub Workbook_Open()
    AddMacroReference "c:\Macro.xla"
    mbClose = False
End Sub


Her skulle BeforeClose klare kaldet til Test, hvis ikke den er gemt, og når så BeforeSave køres, så så bliver Test ikke kørt igen.
Hvis der bare gemmes, så bliver Test kørt

Synes stadig ikke det virker helt perfekt. Har dog efterhånden ikke lyst til at bruge mere tid på det, da jeg så bare må ligge den ene (heldigvis simple) Sub ind i xls dokumentet.

I skal have mange tak for at I ville bruge tid på at hjælpe, og hvis I ligger et svar, så deler jeg pointene imellem jer :)

hmm

points goes to flemming :-)

Ok :)