Vídeo recomendado
https://youtu.be/diWPPPhW-9E
https://youtu.be/diWPPPhW-9E
abrir userform sem aparecer excel
-
- Colaborador
- Mensagens: 43
- Registrado em: Sex Jan 31, 2020 9:53 am
abrir userform sem aparecer excel
Bom dia a todos
gostaria de saber como faço para que ao clicar no ATALHO DO EXCEL, para abrir meu USERFORM, ele nao aparecer o excel. Ja coloquei essa opçao e continua aparecendo
Private Sub Workbook_Open()
Application.Visible = False
userform1.show
end sub
o que posso fazer a mais para que isso nao ocorra.
gostaria de saber como faço para que ao clicar no ATALHO DO EXCEL, para abrir meu USERFORM, ele nao aparecer o excel. Ja coloquei essa opçao e continua aparecendo
Private Sub Workbook_Open()
Application.Visible = False
userform1.show
end sub
o que posso fazer a mais para que isso nao ocorra.
-
- Manda bem
- Mensagens: 173
- Registrado em: Qua Mai 17, 2017 2:27 pm
Re: abrir userform sem aparecer excel
Bom dia colega
A abertura o Userform tem que anteceder ao ocultamento.
userform1.show
Application.Visible = False
Tente algo como;
Private Sub Workbook_Open()
userform1.Show 'Abrir o Formulario
End Sub
Private Sub UserForm_Initialize()
Application.Visible = False 'Tornar o Excel invisivel
End Sub
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
ThisWorkbook.Save 'Salva antes de fechar o Excel
Application.Visible = True 'Tonar o Excel Visivel novamente. Isso é muito importante, ou o seu Excel vai ficar invisível em outras planilhas.
Application.Quit 'Fechar o Excel.
End Sub
Atenciosamente
Tov Elen Shau
A abertura o Userform tem que anteceder ao ocultamento.
userform1.show
Application.Visible = False
Tente algo como;
Private Sub Workbook_Open()
userform1.Show 'Abrir o Formulario
End Sub
Private Sub UserForm_Initialize()
Application.Visible = False 'Tornar o Excel invisivel
End Sub
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
ThisWorkbook.Save 'Salva antes de fechar o Excel
Application.Visible = True 'Tonar o Excel Visivel novamente. Isso é muito importante, ou o seu Excel vai ficar invisível em outras planilhas.
Application.Quit 'Fechar o Excel.
End Sub
Atenciosamente
Tov Elen Shau
-
- Colaborador
- Mensagens: 43
- Registrado em: Sex Jan 31, 2020 9:53 am
Re: abrir userform sem aparecer excel
Bom dia, vou enviar minha planilha, continua dando erro.........Tov Elen Shau escreveu: ↑Sex Jul 10, 2020 11:15 am Bom dia colega
A abertura o Userform tem que anteceder ao ocultamento.
userform1.show
Application.Visible = False
Tente algo como;
Private Sub Workbook_Open()
userform1.Show 'Abrir o Formulario
End Sub
Private Sub UserForm_Initialize()
Application.Visible = False 'Tornar o Excel invisivel
End Sub
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
ThisWorkbook.Save 'Salva antes de fechar o Excel
Application.Visible = True 'Tonar o Excel Visivel novamente. Isso é muito importante, ou o seu Excel vai ficar invisível em outras planilhas.
Application.Quit 'Fechar o Excel.
End Sub
Atenciosamente
Tov Elen Shau
- Anexos
-
- Pasta1_20200711.zip
- (105.5 KiB) Baixado 223 vezes
-
- Manda bem
- Mensagens: 173
- Registrado em: Qua Mai 17, 2017 2:27 pm
Re: abrir userform sem aparecer excel
Colega
Bom dia
Adicionei a opção de fechar o Userform, unload me, e converti o arquivo para o formato xlsm 'Pasta Habilitada para Macro', verificar, por favor, se ainda ocorre o erro.
Atenciosamente
Tov Elen Shau.
Bom dia
Adicionei a opção de fechar o Userform, unload me, e converti o arquivo para o formato xlsm 'Pasta Habilitada para Macro', verificar, por favor, se ainda ocorre o erro.
Atenciosamente
Tov Elen Shau.
-
- Colaborador
- Mensagens: 43
- Registrado em: Sex Jan 31, 2020 9:53 am
Re: abrir userform sem aparecer excel
Bom dia,Tov Elen Shau escreveu: ↑Seg Jul 13, 2020 8:06 am Colega
Bom dia
Adicionei a opção de fechar o Userform, unload me, e converti o arquivo para o formato xlsm 'Pasta Habilitada para Macro', verificar, por favor, se ainda ocorre o erro.
Atenciosamente
Tov Elen Shau.
tem como vc mandar a planilha atualizada pra mim,
Agradeço desde ja.....
-
- Manda bem
- Mensagens: 173
- Registrado em: Qua Mai 17, 2017 2:27 pm
Re: abrir userform sem aparecer excel
Rachel
Me desculpe, achei que tinha anexado.
Me desculpe, achei que tinha anexado.
- Anexos
-
- Planilha.rar
- (37.78 KiB) Baixado 233 vezes
-
- Colaborador
- Mensagens: 43
- Registrado em: Sex Jan 31, 2020 9:53 am
Re: abrir userform sem aparecer excel
Me desculpe, a burrice minha,
baixei a planilha e ao abrir, o excel ficou cheio daqueles caracteres que ninguem(eu) lê..........
o que posso fazer.... o excel ficou assim e sem userform.
Rar!Ïs
§yt 0Ñ–:®«"óˆ(@íP3 Pasta1.xlsm°‡#!ÍÕ”fâ¹´Ï›8æÁ¹²NlžÆ³[ÝUg-åëý
ð^þ:%ŒuÄRÁPŒ"’€ ‘÷ÈB/J ``‚€Àä!½ú%/ì€ÿ²ÿû¨Où0%¤6æ×6Oó/)¼7²9.;¶5ONïÞÌi,vÝSÌ€>ðè:¯¥
x×6÷PvȘy6SJ°$Š\™¸ÿQ:¶¬éÖHVýxËËÒ<Ñ=¸ÚÃB2°*äAYĈˤ›K¼/«»©KÝu#Qk›ç„ÖËÝOŸlÊ×Íö%ùzÎ
K 4Ä™"tÛÖ„Rè_Y4RÏÜ:ÊÛ©;'œšŸ_5¼……ûn”[jôî'aÛõ‘zi\hÎN±9Èåß!gêjì<+–›JQË.%Ä×߉?´“±SJJ?ý@Ðç?7»9‹È±âªŒI*_Ž<‡Î¬qEÓl¶¾g6œ
µ¿Kö™àìz^w'HÁr®“ùÔ5'Ujwf4^%+iå4ã01]á›}ët ŽêøÓUŸfþdtJV£P½ÒçK¼äÑÚP§U_cß¡Û}à¹ãÙ%é<Œ³€ @îûLçth{ª$õ÷Ãw½{`O½ç³—®.λÑ@ÖpqÖÉä3Ú‹Ñ$#þw:u&øÓÔ
ž g/ ÐÌ=«KùÕ\1öWËc(ºåÈÔ/žn«üÐb×ãK¡]™í±|쯷([^¹þ5ÈÇÇú?ÿ Ý‚¡oîTÏÙòÿʼâÈÖä^]ÿqÿßý¢95>ôÀ2¡#ÖÃ?^0A -Ù"Ø…Mõý'X>Â&|o^èœpALkèŽýpû뉫®yÇ„C߶iQ$(vGbíS'æàèTLã$ŒáQµ|"ëŸÝŸß*Ž”ðPëqUOgI:—‡²F›Ô‰öÉ.V
Editado pela última vez por rachelgdias em Seg Jul 13, 2020 9:50 am, em um total de 1 vez.
-
- Manda bem
- Mensagens: 173
- Registrado em: Qua Mai 17, 2017 2:27 pm
Re: abrir userform sem aparecer excel
Rachel
Conheci poucas pessoas burras e você não se encaixa nesse perfil . Abri novamente a planilha aqui e não localizei erros em caracteres, seria possível enviar um print?
Atenciosamente
Tov Elen shau
Conheci poucas pessoas burras e você não se encaixa nesse perfil . Abri novamente a planilha aqui e não localizei erros em caracteres, seria possível enviar um print?
Atenciosamente
Tov Elen shau
-
- Manda bem
- Mensagens: 173
- Registrado em: Qua Mai 17, 2017 2:27 pm
Re: abrir userform sem aparecer excel
Caso você queira manter a antiga planilha, as alterações no código que realizei foram;
‘EstaPasta_de_trabalho
Option Explicit
Private Sub Workbook_Open()
Application.Visible = False
UserForm2.Show
End Sub
‘UserForm2
Option Explicit
Private Sub CommandButton1_Click()
Application.Visible = True 'Visualizar Excel
Unload Me 'Fechar Userform
End Sub
Private Sub CommandButton2_Click()
Application.Visible = False
Unload Me
End Sub
Atenciosamente
Tov Elen Shau
‘EstaPasta_de_trabalho
Option Explicit
Private Sub Workbook_Open()
Application.Visible = False
UserForm2.Show
End Sub
‘UserForm2
Option Explicit
Private Sub CommandButton1_Click()
Application.Visible = True 'Visualizar Excel
Unload Me 'Fechar Userform
End Sub
Private Sub CommandButton2_Click()
Application.Visible = False
Unload Me
End Sub
Atenciosamente
Tov Elen Shau
-
- Colaborador
- Mensagens: 43
- Registrado em: Sex Jan 31, 2020 9:53 am
Re: abrir userform sem aparecer excel
Continua com erro..... vou te mandar a plan novamente.......Tov Elen Shau escreveu: ↑Seg Jul 13, 2020 9:41 am Caso você queira manter a antiga planilha, as alterações no código que realizei foram;
‘EstaPasta_de_trabalho
Option Explicit
Private Sub Workbook_Open()
Application.Visible = False
UserForm2.Show
End Sub
‘UserForm2
Option Explicit
Private Sub CommandButton1_Click()
Application.Visible = True 'Visualizar Excel
Unload Me 'Fechar Userform
End Sub
Private Sub CommandButton2_Click()
Application.Visible = False
Unload Me
End Sub
Atenciosamente
Tov Elen Shau
- Anexos
-
- Pasta1_20200713.zip
- (106.41 KiB) Baixado 215 vezes