Thanks,

BUT no change

Finally the problem was soved by changing my code ActiveSheet WS

WS.Unprotect (varPassWord)
WS.Cells(2, 2) = "Basisofferte" & "=" & strBasisNaam
WS.Protect (varPassWord)

Thanks

"DM Unseen" wrote in message
oups.com...
Pls check if excel is running in the background invisibly.

Use MyXL.UserControl = false before you quit

BTW read up on the GetObject, since with excel allows the following:

Dim wb as Object

Set wb = Getobject("c:\Myfile.xls")

you could directly test if a quotation is open by connect to that
quotation.

Dm Unseen