Soms een foutmelding

[zwinmi]

Beste Forumleden,

Ik heb een excelbestand dat nu, mede dankzij dit forum, perfect doet wat ik wil. Echter nu ik dit bestand op mijn werkpc heb gezet, krijg ik soms foutmeldingen als ik een knop (macro) aanklik of het programma afsluit, waarbij het automatisch wordt opgeslagen.

De volgende fout krijg ik soms, niet altijd, als ik een knop aanklik:
excel fout 75 tijdens uitvoering:
Kan het object niet vinden

De volgende fout krijg ik soms, niet altijd, als ik het workbook afsluit:
Fout 1004 tijdens uitvoering:
Methode Save van object_Workbook is mislukt

Als ik zo'n foutmelding krijg, loopt t bestand vast en moet het opnieuw gestart en hersteld worden.

Het gekke is dat ik dit op mijn prive pc (windows7 ultimate, office '07) nog nooit heb meegemaakt. De werkpc draait op windows7 Starter en alleen office '07 is geinstalleerd voor rest niets, alleen dit excel programma draait erop.

Ik hoop dat iemand weet hoe ik dit kan verhelpen...

 

[lord4163]

op je werkpc office opnieuw installeren

 

[Roncancio]

Het kan zijn dat je werkpc geen VBA ondersteund.
Wellicht verwijst de code naar referenties die niet in de werkpc zijn ingesteld.

Met vriendelijke groet,


Roncancio

 

[zwinmi]

hoi, bedanktvoor jullie reactie. de office versie is dezelfde als mijn privepc, het ondersteund dus ook gewoon vb, want ik kan ook vb scripts bewerken. maar het gekke is dat een macro het soms wel doet en dan ineens een keer niet.

 

[sylvester-ponte]

hoi zwinmi

heb je een tekst van macro (fout 75)

groet sylvester

 

[zwinmi]

Hoi sylvester, bij de volgende macro komt de foutmelding:

Sub NaarMenu()
    Application.ScreenUpdating = False
    ActiveSheet.Protect Password:="1"
    Sheets("InvoerUren").Visible = xlVeryHidden
    Sheets("DataUren").Visible = xlVeryHidden
    Sheets("Medewerkers").Visible = xlVeryHidden
    Sheets("Urenoverzicht").Visible = xlVeryHidden
    Sheets("Kostenoverzicht").Visible = xlVeryHidden
    Sheets("Weekoverzicht").Visible = xlVeryHidden
    Sheets("InvoerPrestaties").Visible = xlVeryHidden
    Sheets("Prestaties").Visible = xlVeryHidden
    Sheets("DataPrestatie").Visible = xlVeryHidden
    Sheets("Uitzendbureaus").Visible = xlVeryHidden
    Sheets("VakantiePlanner").Visible = xlVeryHidden
    Sheets("Logo").Visible = xlVeryHidden
    Application.ScreenUpdating = True
    Menu.Show
End Sub

Deze zorgt er dus voor dat alle tabbladen, op één na, dat ze verborgen zijn. En het huidige tabblad wordt ook de beveiliging aangezet, daarna wordt userform Menu geopend. PS op sommige bladen staat de beveiliging al aan en dan zou deze macro het nog eens doen, zou dat de fout kunnen zijn? of geeft dat niets?

 

[Warme bakkertje]

M.i. mankeert er ofwel een werkblad, komt er een werkbladnaam niet overeen ofwel gaat er iets mis bij het laden van je formulier.
Is er een regel die geel gekleurd is tijdens het vastlopen van de macro ?
Misschien een voorbeeldbestandje met alle werkbladen, macro's en formulieren in ?

 

[zwinmi]

Hoi Rudi,

Er is geen gele regel in het marcro script. Als ik de foutmelding krijg, kan ik alleen op beeindigen klikken niet op foutopsporing. Ik zal vanavond even een voorbeeldbestandje plaatsen.