Bom dia Pessoal.
Antes de tudo eu achei a macro para fechar o excel, mas surgiu uma dúvida.
Tenho o código...
Private Sub Workbook_Open()
Dim planAtiva As Worksheet
Application.ScreenUpdating = False
Set planAtiva = ActiveSheet
'
Sheets("Inicio").Visible = True
Sheets("Inicio").Select
'
Range("B30").Select
Range("A30").Select
Dim EncontraString As String
Dim Intervalo As Range
EncontraString = "csantos"
If Trim(EncontraString) <> "" Then
With Sheets("Inicio").Range("A29:A31")
Set Intervalo = .Find(What:=EncontraString, _
After:=.Cells(1), _
LookIn:=xlValues, _
LookAt:=xlWhole, _
SearchOrder:=xlByRows, _
SearchDirection:=xlPrevious, _
MatchCase:=False)
If Not Intervalo Is Nothing Then
Application.Goto Intervalo, False
' Aqui macro se localizar
Range("B1").Select
Sheets("Inicio").Visible = True
Sheets("Inicio").Select
Sheets("Base").Visible = False
Sheets("Base1").Visible = False
Sheets("Validação").Visible = False
Sheets("Temp. Valid.").Visible = False
Sheets("Cadastro").Visible = False
Sheets("Conferidas").Visible = False
Sheets("XML_Pend").Visible = False
Sheets("Desenvolvimento").Visible = False
Sheets("Roteiro").Visible = False
Else
' Aqui macro se não localizar
MsgBox "Você não está logado no Windows como Larissa Lopes!"
ThisWorkbook.Save
ThisWorkbook.Close
End If
End With
End If
End Sub
Com outro código, quando o excel seleciona a célula A30 ele insere o usuário do windows.
Se o usuário não for o determinado no código acima o excel salva e fecha o arquivo.
Com o código
ThisWorkbook.Save
ThisWorkbook.Close
O Excel mantem o "Aplicativo Excel aberto"
Em outro tópico foi dito para usar o "Application.quit"
viewtopic.php?f=10&t=886
Mas quando eu substituo o ThisWorkbook.Close pelo Application.quit o excel pergunta se desejo salva ou não, se clicar em cancelar trava tudo, como essa planilha será usada por outras pessoas, gostaria de saber se tem outra maneira de fechar tudo o Excel sem a confirmação de salvar ou não.
_______________________________________________________________________________________________
Carlos Santos
* Marque o tópico como Resolvido se foi solucionado seu problema.
Postado : 02/10/2015 8:59 am