Método Workbook.CheckInWithVersion (Excel)

Salva uma pasta de trabalho em um servidor de um computador local e define a pasta de trabalho local como somente leitura para que não possa ser editada localmente.

Sintaxe

expressão. CheckInWithVersion (SaveChanges, Comments, MakePublic, VersionType)

Expressão Uma variável que retorna um objeto Workbook .

Parâmetros

Nome	Obrigatório/Opcional	Tipo de dados	Descrição
SaveChanges	Opcional	Variantes	True para salvar a pasta de trabalho no local do servidor. O padrão é True.
Comments	Opcional	Variantes	Comentários para a revisão da pasta de trabalho cujo check-in está sendo feito (aplicável somente se SaveChanges estiver definido como True).
MakePublic	Opcional	Variantes	True para permitir que o usuário publique a pasta de trabalho após o check-in.
VersionType	Opcional	Variantes	Especifica as informações de controle de versão referentes à pasta de trabalho.

Valor de retorno

Nothing

Comentários

A definição do parâmetro MakePublic como True envia a pasta de trabalho para o processo de aprovação, o que pode vir a resultar na publicação de uma versão da pasta de trabalho para usuários com direitos somente de leitura (aplicável somente se SaveChanges estiver definido como True).

Para aproveitar os recursos de colaboração internos do Microsoft Excel, os documentos devem ser armazenados em um Microsoft SharePoint Server.

Exemplo

O exemplo a seguir usa o método CanCheckIn para determinar se a pasta de trabalho foi armazenada em um Microsoft SharePoint Server. Nesse caso, o exemplo chama o método CheckInWithVersion para fazer check-in da pasta de trabalho junto com o número da versão e os comentários especificados, salva as alterações no local do servidor e envia a pasta de trabalho para o processo de aprovação.

Este exemplo é para uma personalização em nível de pasta de trabalho.

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

Suporte e comentários

Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.