VBA executar ação e...
 
Compartilhar:
Notifications
Clear all

VBA executar ação em planilhas "abas" definidas.


refernande
Posts: 35
Registered
Topic starter
(@refernande)
Eminent Member
Entrou: 6 anos atrás

Boa Tarde,

Tenho uma macro, planilha anexo que executa a ação se as planilhas forem diferentes a das definida no If.

Gostaria adaptar esse código para que executar a ação somente nas planilhas informadas no código.

Poderia me ajudar....

Sub MACRO()

Application.ScreenUpdating = False

    Dim senha As String
    senha = InputBox("Digite a Senha:", "Senha de Proteção")
    If senha <> "" Then
    MsgBox "Acesso Negado", vbCritical, "Você Não Tem Permissão"
    Exit Sub
    Else

    For Each aba In ThisWorkbook.Sheets
            
                If aba.Name <> "1" Then
                If aba.Name <> "10" Then
                If aba.Name <> "20" Then
                If aba.Name <> "30" Then
                If aba.Name <> "40" Then
                If aba.Name <> "50" Then
                If aba.Name <> "60" Then
                If aba.Name <> "70" Then
                If aba.Name <> "80" Then
                If aba.Name <> "90" Then
                If aba.Name <> "100" Then
            
            
        aba.Select
        Range("A1").FormulaR1C1 = "OK"


        
    End If
    End If
    End If
    End If
    End If
    End If
    End If
    End If
    End If
    End If
    End If


            
    Next
 End If
    
Application.ScreenUpdating = True


End Sub

Responder
Tags do Tópico
Compartilhar: