Condição para fechar planilha

2024 - VBA & Macros

Post Recente por pires 6 anos atrás

3 Posts

2 Usuários

0 Reactions

1,003 Visualizações

RSS

pires

(@pires)

Posts: 17

Active 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: 732

Honorable 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

___________________________________________________________________________________________
Se a resposta atendeu sua dúvida, por favor, clique no Gostei e marque o Tópico como [Resolvido].

Att.

André Arruda

Postado : 27/06/2018 7:30 am