Note
Access to this page requires authorization. You can try signing in or changing directories.
Access to this page requires authorization. You can try changing directories.
True if any day in the month is a working day. Read/write Boolean.
Syntax
expression. Working
expression A variable that represents a Month object.
Example
The following example makes June, July, and August nonworking months for resources in the "Student" group of the active project.
Sub GiveStudentsSummerOff()
Dim R As Resource ' Resource object used in For Each loop
Dim Y As Year ' Year object used in For Each loop
' Look for resources in the "Student" group of the active project.
For Each R In ActiveProject.Resources
' Give the summer off to resources in the "Student" group.
If R.Group = "Student" Then
For Each Y In R.Calendar.Years
Y.Months("June").Working = False
Y.Months("July").Working = False
Y.Months("August").Working = False
Next Y
End If
Next R
End Sub
Support and feedback
Have questions or feedback about Office VBA or this documentation? Please see Office VBA support and feedback for guidance about the ways you can receive support and provide feedback.