Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Condição para fecha...
 
Notifications
Clear all

Condição para fechar planilha

 
2024 - VBA & Macros
Post Recente por pires 6 anos atrás
3 Posts
2 Usuários
0 Reactions
981 Visualizações
RSS
 pires
(@pires)
Posts: 0
New Member
Topic starter
 

Bom dia Senhores,

O problema a ser solucionado é: a macro identifica o número de abas de uma planilha, se houver abas a mais ou a menos, ao fechar fechar a planilha, aparecer uma mensagem de inconformidade, além da mensagem, o usuário não consegue fechar a planilha até que o número de abas seja igual ao estabelecido na condição.

Desde já agradeço a ajuda!

 
Postado : 27/06/2018 7:03 am
 xlarruda
(@xlarruda)
Posts: 0
New Member
 

Tente esse código:

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim totalplans, totalcorreto As Integer
totalcorreto = 5 'no exemplo é 5, mas mude para a quantidade desejada
totalplans = Sheets.Count
Debug.Print totalplans
If totalplans <> totalcorreto Then
MsgBox "O total de Planilhas é diferente de " & totalcorreto & ". Favor verificar..."
Cancel = True
End If
End Sub
 
Postado : 27/06/2018 7:30 am
 pires
(@pires)
Posts: 0
New Member
Topic starter
 

Bom dia xlarruda,

Muito obrigado pela atenção, testado e funcionando 100%.

 
Postado : 27/06/2018 7:49 am
Forum Jump:
  Tópico Anterior
Próximo Tópico