Метод Workbook.CheckInWithVersion (Excel)

Статья
04/07/2023

Сохраняет книгу на сервере с локального компьютера и задает локальную книгу только для чтения, чтобы ее нельзя было изменить локально.

Синтаксис

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

Выражение Переменная, возвращающая объект Workbook .

Параметры

Имя	Обязательный или необязательный	Тип данных	Описание
Savechanges	Необязательный	Variant	Значение true , чтобы сохранить книгу на сервере. По умолчанию используется значение True.
Комментарии	Необязательный	Variant	Примечания к редакции книги, в которой выполняется проверка (применяется только в том случае, если параметр SaveChanges имеет значение True).
MakePublic	Необязательный	Variant	Значение true , чтобы разрешить пользователю публиковать книгу после ее возврата.
VersionType	Необязательный	Variant	Указывает сведения об использовании версий для книги.

Возвращаемое значение

Nothing

Замечания

Если для параметра MakePublic задано значение True , книга отправляется в процесс утверждения, что в конечном итоге может привести к публикации версии книги для пользователей с правами только на чтение книги (применяется только в том случае, если для параметра SaveChanges задано значение True).

Чтобы воспользоваться преимуществами функций совместной работы, встроенных в Microsoft Excel, документы должны храниться на сервере Microsoft SharePoint Server.

Пример

В следующем примере метод CanCheckIn используется для определения того, хранится ли книга на сервере Microsoft SharePoint Server. Если книга хранится на сервере, в примере вызывается метод CheckInWithVersion для возврата книги вместе с указанными комментариями и номером версии, сохранения изменений в расположении сервера и отправки книги для процесса утверждения.

Этот пример предназначен для настройки на уровне книги.

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

Поддержка и обратная связь

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.

Поделиться через