Código Fonte do Controle de estoque em excel

 '   laço para rastreamento de todos os arquivos já abertos em memória
     While Not VerBotão
         For Each Arquivo_Aberto In Workbooks
             If UCase(Arquivo_Aberto.Name) <> Info Then
                 PlanAtual = Arquivo_Aberto.Name
                 VerBotão = True
                 Exit For
             End If
         Next
         If VerBotão Then
             Estilo = vbCritical + vbYesNo + vbDefaultButton2
 '           verifica se o arquivo aberto esta salvo
             If Workbooks(PlanAtual).Saved Then
                 Mensagens = "O arquivo " & PlanAtual & " encontra-se aberto" _
                     & Chr(13) & "nesta sessão do Excel." _
                     & Chr(13) & "Fechar o arquivo " & PlanAtual & " ?"