Bloquer la sauvegarde dans MS Project (VBA)

janvier 29, 2010 par
Categories: Divers 

La problématique est de pouvoir annuler l’action de sauvegarde d’un planning Ms Project sous condition.

Dans le VBA de MS Project dans le Global entreprise:
- Création d’une classe qui permet de stocker les fonctions avancées à partir des évènements de l’ « Application »
- Appeler dans « This project » la fonction permettant d’activer les fonctions de l’application et plus uniquement celles de Project
- Déclarer dans un module la fonction d’activation des fonctions avancées d’ « Application »

Création d’une classe « ClsApp »

Public WithEvents ProjApp As MSProject.Application
‘**********
Private Sub ProjApp_ProjectBeforeSave(ByVal pj As Project, ByVal SaveAsUi As Boolean, Cancel As Boolean)
Dim VbResult As VbMsgBoxResult
If Not pj Is Nothing Then
If pj.ProjectSummaryTask.Start, pj.ProjectSummaryTask.Duration=0 Then
Cancel = True
MsgBox « the save action has been canceled! », vbInformation
End If
End If
End Sub

Ajout dans le module « ThisProject »

Private Sub Project_Open(ByVal pj As Project)
EnableEvents
End Sub

Création d’un module “AppCode”

Public App As New ClsApp
‘**********
Sub EnableEvents()
Set App.ProjApp = MSProject.Application
End Sub

Commentaires

Dites nous ce que vous pensez...
vous pouvez aussi integrer un avatar!





*

  • Sondage

    Utilisez vous les livrables (EPM) dans votre processus de projet ?

    View Results

    Loading ... Loading ...
  • Tags