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.