Workbook.IsInplace (Excel)

True se a pasta de trabalho especificada estiver sendo editada no lugar. False se a pasta de trabalho tiver sido aberta no Microsoft Excel para edição. Boolean somente leitura.

Dim booIsInplace As Boolean
booIsInplace = ActiveWorkbook.IsInplace