Méthode Workbook.CheckInWithVersion (Excel)

Article
04/07/2023

Enregistre un classeur sur un serveur à partir d’un ordinateur local, et définit le classeur local en lecture seule pour éviter qu’il ne soit modifié localement.

Syntaxe

expression. CheckInWithVersion (SaveChanges, Comments, MakePublic, VersionType)

Expression Variable qui renvoie un objet Workbook .

Parameters

Nom	Requis/Facultatif	Type de données	Description
SaveChanges	Facultatif	Variant	True pour enregistrer le classeur sur l’emplacement sur le serveur. La valeur par défaut est True.
Comments	Facultatif	Variant	Commentaires relatifs à la révision du classeur en cours d’archivage (ne s’applique que si SaveChanges est défini sur True).
MakePublic	Facultatif	Variant	True pour permettre à l’utilisateur de publier le classeur après son archivage.
VersionType	Facultatif	Variant	Fournit les informations de version se rapportant au classeur.

Valeur renvoyée

Nothing

Remarques

La définition du paramètre MakePublic sur True soumet le classeur à un processus d’approbation qui peut produire une version du classeur publiée pour les utilisateurs ayant des droits en lecture seule sur le classeur (s’applique uniquement si SaveChanges est défini sur True).

Pour bénéficier des fonctionnalités de collaboration intégrées à Microsoft Excel, les documents doivent être stockés sur un serveur Microsoft SharePoint.

Exemple

L’exemple suivant utilise la méthode CanCheckIn pour déterminer si le classeur a été stocké sur un serveur Microsoft SharePoint Server. Si c’est le cas, l’exemple appelle la méthode CheckInWithVersion pour archiver le classeur avec les commentaires indiqués et le numéro de version, enregistrer les modifications sur l’emplacement du serveur et soumettre le classeur au processus d’approbation.

Cet exemple est destiné à une personnalisation au niveau du classeur.

Private Sub WorkbookCheckIn() 
  If ThisWorkbook.CanCheckIn Then 
    ThisWorkbook.CheckInWithVersion True, "Changed sheet 1 and 2 etc...", True, XlCheckInVersionType.xlCheckInMinorVersion 
  Else 
    Msgbox "This workbook cannot be checked in"
  End If 
End Sub

Assistance et commentaires

Avez-vous des questions ou des commentaires sur Office VBA ou sur cette documentation ? Consultez la rubrique concernant l’assistance pour Office VBA et l’envoi de commentaires afin d’obtenir des instructions pour recevoir une assistance et envoyer vos commentaires.

Share via