P
PCarsten
Hi,
I'm trying to prevent users of Microsoft Project 2003 to alter resource
data. So I have enabled events and created the following procedure:
'********
Private Sub App_ProjectBeforeResourceChange(ByVal res As Resource, ByVal
Field As PjField, ByVal NewVal As Variant, Cancel As Boolean)
Select Case Field
Case pjResourceText30
MsgBox "Don't do this!"
Cancel = True
End Select
End Sub
'********
The event fires as expected, however the update is not cancelled.
The same kind of code works perfectly with the ProjectBeforeTaskChange event.
All suggestions for a workaround is much appreciated.
Best regards
______________________________
Carsten Petersen
Senior EPM Application Consultant
eS Enterprise Project Mgt.
I'm trying to prevent users of Microsoft Project 2003 to alter resource
data. So I have enabled events and created the following procedure:
'********
Private Sub App_ProjectBeforeResourceChange(ByVal res As Resource, ByVal
Field As PjField, ByVal NewVal As Variant, Cancel As Boolean)
Select Case Field
Case pjResourceText30
MsgBox "Don't do this!"
Cancel = True
End Select
End Sub
'********
The event fires as expected, however the update is not cancelled.
The same kind of code works perfectly with the ProjectBeforeTaskChange event.
All suggestions for a workaround is much appreciated.
Best regards
______________________________
Carsten Petersen
Senior EPM Application Consultant
eS Enterprise Project Mgt.