jooviertsmitch
New Member
- Joined
- Mar 23, 2019
- Messages
- 2
Hi all. I recently made an excel VBA project which then turned out to be a huge application. This application is being saved in a network shared folder where multiple users are able to access the file (only one at a time though).
So, this application runs smoothly thus far on multiple machine. However, a compile error stating "Object library invalid or contains certain references to object definitions that could not be found" showed up when opened by a third user.
The example scenario1: File developed by me, User B opened file, modified and saved, User C tries to open file but encountered the compile error.
On a same scenario as scenario1 but instead of User B, User D opened file, modified and saved, User C has no issues opening and continue modifying the file. All users have the same references as well.
All users have windows 10 and Excel 2013. User B, D and I have VBA 7.1.1056 while user C has VBA 7.1.1049.
The compile error would highlight this particular section: "Private Sub Worksheet_Activate" from the below code in sheet 10
Really appreciate your help and input.
So, this application runs smoothly thus far on multiple machine. However, a compile error stating "Object library invalid or contains certain references to object definitions that could not be found" showed up when opened by a third user.
The example scenario1: File developed by me, User B opened file, modified and saved, User C tries to open file but encountered the compile error.
On a same scenario as scenario1 but instead of User B, User D opened file, modified and saved, User C has no issues opening and continue modifying the file. All users have the same references as well.
All users have windows 10 and Excel 2013. User B, D and I have VBA 7.1.1056 while user C has VBA 7.1.1049.
The compile error would highlight this particular section: "Private Sub Worksheet_Activate" from the below code in sheet 10
Code:
Private Sub Worksheet_Activate()
ThisWorkbook.Sheets("Sheet10").Shapes("ListBox1").Width = 500
ThisWorkbook.Sheets("Sheet10").Shapes("ListBox1").Height = 100
End Sub
Really appreciate your help and input.