Já pedi ajuda na aba VBA Básico do fórum mas não tive um ajuda.
Escrevi um código VBA para que ao fechar a planilha uma ação ocorra, no caso tornar as abas "invisíveis". Ao escrever o código inseri o seguinte:
Código: Selecionar todos
ThisWorkbook.Sheets.Visible = False
ThisWorkbook.Save
Seguindo isso, tenho o mesmo problema (com o For Each) nesse código:
Código: Selecionar todos
Private Sub CommandButton1_Click()
For Each plans In ThisWorkbook.Sheets
If caixa_senha.Value = "PMOLM2020" Then
plans.Visible = True
Unload AtivaSenha
Worksheets("Menu").Range("Z1").Value = "PMOLM2020"
plans.Activate
Else
MsgBox ("Senha inválida!")
caixa_senha.Value = ""
End If
Next
End Sub
Alguém pode me ajudar com isso?