Igual existe el modo de hacerlo. Espera unos días a ver si alguien lo conoce.
A mí lo único que se me ocurre es:
Código :
Ver originalPrivate Sub DTPicker1_Change()
If DTPicker1.DayOfWeek = 7 Then
MsgBox "No se puede elegir fin de semana. Pasamos al lunes."
DTPicker1.Day = DTPicker1.Day + 2
End If
If DTPicker1.DayOfWeek = 1 Then
MsgBox "No se puede elegir fin de semana. Pasamos al lunes."
DTPicker1.Day = DTPicker1.Day + 1
End If
End Sub
Si tienes activado UpDown y no sale el calendario desplegable puedes quitar el msgbox y saltará los fines de semana sin avisar.
NOTA: Mi semana empieza el domingo.
Que se dé bien.