ik heb een excel bestand waarin ik in volgende code heb voorzien om te checken welke gebruiker ingelogd is en wie dus toegang krijgt; het vervolg van de code is niet van belang. het probleem dat zich stelt is dat soms het bestand onmiddellijk opent en somt duurt het minuten lang voordat vba deze code zelfs maar start. ik heb als test vlak na sub workbook open() een msgbox gezet en die wordt dan zelfs niet getoond (tenzij na enkele minuten). Het lijkt er op dat excel de vba gewoon pas later start. Kent iemand hiervoor een oplossing?
Sub Workbook_Open()
Dim i As Byte
Dim CheckIn As String
Dim People() As String
Dim Login As Boolean: Login = False
People = Split("Jan, Miek", ",")
CheckIn = StrConv(Environ("username"), vbProperCase)
For i = LBound(People) To UBound(People)
If People(i) = CheckIn Then
Login = True
Exit For
End If
Next
Sub Workbook_Open()
Dim i As Byte
Dim CheckIn As String
Dim People() As String
Dim Login As Boolean: Login = False
People = Split("Jan, Miek", ",")
CheckIn = StrConv(Environ("username"), vbProperCase)
For i = LBound(People) To UBound(People)
If People(i) = CheckIn Then
Login = True
Exit For
End If
Next