abrir userform sem aparecer excel

[rachelgdias]

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.

[Tov Elen Shau]

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

[rachelgdias]

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

Bom dia, vou enviar minha planilha, continua dando erro.........

[Tov Elen Shau]

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.

[rachelgdias]

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,
tem como vc mandar a planilha atualizada pra mim,
Agradeço desde ja.....

[Tov Elen Shau]

Rachel

Me desculpe, achei que tinha anexado.

[rachelgdias]

Rachel

Me desculpe, achei que tinha anexado.

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.;¶5ONïÞÌ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þdtJV£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

[Tov Elen Shau]

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

[Tov Elen Shau]

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

[rachelgdias]

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

Continua com erro..... vou te mandar a plan novamente.......