Excelfil med VBA der crasher
Hej eksperter !Jeg har en excelfil som brugers dagligt af forskellige brugere.
Sådan opleves det når den crasher...
Hver dag når filen åbnes første gang, så spørger VBA-proceduren allerede under åbning af filen efter 3 bruger-input om råvarebeholdninger, men indimellem så crasher filer allerede her ved åbning. De 3 bruger-input bliver skrevet ind i de tilhørede sheets, men når vba-proceduren 'Workbook_Open' der afvikles ved åbning af filen, så kan den ikke afvikle linjen
AntalSheets = Sheets().Count
fordi der ikke er nogen worksheets at tælle i workbook'en.Jeg kan gå til vba-editor i debug-mode, men det er ikke muligt at skifte til worksheets, for de er forsvundet.
Det har jeg selvkontrolleret og gjort...
Hver dag når filen åbnes første gang, så spørges brugeren efter de 3 forskellige input for at kontrollere nogle råvarebeholdninger. Dette har tidligere været baseret på en UserForm.
Efter filen begyndte at crashe indimellem tog jeg konsekvensen og byggere min vba-procedure om så der i stedet for at bruge en UserForm, nu benytter 3 input-bokse, der er meget mere simple i sin opbygning.
Jeg husker fra år tilbage (måske 10 år) at der var en kendt fejl som knyttede sig til UserForms.
Det var en fejl som var beskrevet af Microsoft, men Microsoft havde ikke løst fejlen (kun beskrevet den).
Derfor fjernede jeg filens UserForm, i håb om at den nu blev mere driftsikker. Men filer crasher stadig (periodisk)
Jeg har selvfølgelig tænkt at det må være noget i min vba-procedur 'Workbook_Open', men jeg kan også konstatere at den sidste procedure der kaldes herfra er en procedure der tager en daglig back-up ved at køre en SaveCopyAs i en separat mappe, og når jeg genskaber min fil ud fra denne daglige kopi, så kan jeg konstatere at alt den indeholder de sheets med brugerens input om råvarebeholdninger.
Herefter har jeg ikke noget kode der kan ødelægge noget: afslufningen på en if-sætning og andet uskyldigt.
MakeBackUp ' kalder procedure der tager den daglige back-up, hvis den ikke allerede er taget
Else
MsgBox "Filen er ikke på sin std-placering - det må være en BackUp-fil" '& Chr(10) & "sammenligner: " & Chr(10) & Right(ThisWorkbook.Path, 75) & Chr(10) & "med: " & Chr(10) & Right(STDMAPPE, 75)
End If
Sheets(3).Select
End Sub
Else
MsgBox "Filen er ikke på sin std-placering - det må være en BackUp-fil" '& Chr(10) & "sammenligner: " & Chr(10) & Right(ThisWorkbook.Path, 75) & Chr(10) & "med: " & Chr(10) & Right(STDMAPPE, 75)
End If
Sheets(3).Select
End Sub
Hvad så...
Er der andre grunde til at en excelfil kan crashe i åbningssituationen?
Hvad her I kendskab til?
Alle svar og spørgsmål er velkomne.
Gætterier og måske'er har jeg selv.
