Freigeben über


Workbook.CheckInWithVersion-Methode (Excel)

Speichert eine Arbeitsmappe von einem lokalen Computer auf einem Server und legt für die lokale Arbeitsmappe einen Schreibschutz fest, sodass sie nicht lokal bearbeitet werden kann.

Syntax

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

Ausdruck Eine Variable, die ein Workbook-Objekt zurückgibt.

Parameter

Name Erforderlich/Optional Datentyp Beschreibung
SaveChanges Optional Variant True, um die Arbeitsmappe am Serverspeicherort zu speichern. Der Standardwert ist True.
Kommentare Optional Variant Kommentare für die Überarbeitung der Arbeitsmappe, die eingecheckt wird (gilt nur, wenn SaveChanges gleich True ist).
MakePublic Optional Variant True, wenn der Benutzer die Arbeitsmappe nach dem Einchecken veröffentlichen darf.
VersionType Optional Variant Gibt Versionsinformationen für die Arbeitsmappe an.

Rückgabewert

Nothing

Hinweise

Wenn Sie den MakePublic-Parameter auf True festlegen, wird die Arbeitsmappe zur Genehmigung eingereicht. Dies kann dazu führen, dass eine Version der Arbeitsmappe für Benutzer mit schreibgeschütztem Zugriff auf die Arbeitsmappe veröffentlicht wird (trifft nur zu, wenn SaveChanges auf True festgelegt ist).

Damit die in Microsoft Excel integrierten Features für die Zusammenarbeit genutzt werden können, müssen Dokumente auf einem Computer mit Microsoft SharePoint Server gespeichert werden.

Beispiel

Im folgenden Beispiel wird die CanCheckIn-Methode verwendet, um zu bestimmen, ob die Arbeitsmappe auf einem Microsoft SharePoint Server gespeichert wurde. Wenn die Arbeitsmappe auf einem Server gespeichert wurde, ruft das Beispiel die CheckInWithVersion-Methode auf, um die Arbeitsmappe zusammen mit den angegebenen Kommentaren und der Versionsnummer einzuchecken, die Änderungen am Serverspeicherort zu speichern und die Arbeitsmappe an den Genehmigungsprozess zu übermitteln.

Dieses Beispiel bezieht sich auf die Anpassung auf Arbeitsmappenebene.

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

Support und Feedback

Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.