SendKeys geeft Fout 70: Toegang geweigerd

[BjornMengerink]

Hallo Allemaal,

Ik heb een vraag over bijgaande code:

Private Sub Worksheet_Change(ByVal Target As Range)
    
    If Target.Cells.Count = 1 Then
        If (Target.Column = 3) And (InStr(Target.Value, ".") > 0) Then
            MsgBox "gebruik geen afk. als adres.", vbExclamation, "Let op!"
            Target.Activate
        End If
        If Target.Column = 7 And Not (InStr(Target.Value, "-") > 0) Then
            MsgBox "aub netnummer invoeren", vbExclamation, "Let Op!!"
            Target.Activate
            SendKeys "{F2}"
        End If
    End If
End Sub

Als ik deze code uitvoer krijg ik de melding Fout 70: Toegang geweigerd en de foutopsporing geeft de fout weer bij de SendKeys.

Weet iemand hoe dit kan?

Alvast bedankt
Bjørn


PS: ik gebruik Windows 7 64-bits met Office 2003

 

[Tardis]

http://www.addictivetips.com/windows-tips/windows-7-access-denied-permission-ownership/

Tardis