Pedro Queiroz

Nesse codigo a planilha sempre abre em modo de edição e so executa o código após habilitar. Como as planilhas ficam em um servidor e não na área de trabalho não achei um modo de desabilitar. Mas na área de trabalho não da esse mensagem. Tem um código ou configuração para habilitar automático ?, Private Sub Workbook_Open() Application.Visible = False UserForm1.show End Sub

Atualizando código Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer) If CloseMode = vbFormControlMenu Then 'SALVAR ARQUIVO ThisWorkbook.Save 'SAIR DO EXCEL 'fechar formulario Unload UserForm1 'fechar planilha Application.Quit End If End Sub