Notifications
Clear all

SUBSCRITO FORA DO INTERVALO 9

6 Posts
3 Usuários
0 Reactions
1,376 Visualizações
(@lorenzon)
Posts: 355
Honorable Member
Topic starter
 

Prezados (as),

O meu projeto só inicializa perfeitamente caso nenhuma planilha estiver aberta, do contrário surge o erro descrito acima.

No workbook_open eu utilizo o código abaixo:

Dim ws As Worksheet
For Each ws In ThisWorkbook.Worksheets
ws.Visible = True
Next ws

Application.Visible = False

Application.OnKey "{Escape}", ""
ActiveWindow.TabRatio = 0

UserForm7.Show

Outra situação é que, se eu minimizá-la e abrir uma outra planilha, o meu projeto será maximizado e a outra planilha não será aberta.

O que devo fazer?

 
Postado : 31/03/2014 2:33 pm
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa tarde!!

Para a primeira dúvida..
Leia:
http://support.microsoft.com/kb/211604/pt-br
http://support.microsoft.com/kb/210663/pt-br

Att

 
Postado : 01/04/2014 10:40 am
(@lorenzon)
Posts: 355
Honorable Member
Topic starter
 

não vi aplicabilidade a minha necessiidade! =/

 
Postado : 02/04/2014 7:02 pm
(@pr_pxt)
Posts: 2
New Member
 

não vi aplicabilidade a minha necessiidade! =/

É exatamente o problema que tenho hoje, nos mesmos moldes que você.
Quando somente a planilha em que eu estou trabalhando está aberta, o exemplo Sheets("plan1").select funciona perfeitamente, mas se tenho algum outro excel aberto, me reporta esse erro.

Me sugeriram trocar o Sheets("plan1").select por Thisworkbook.Worksheets("plan1").Activate, mas estranhamente, todas as informações que tenho em ComboBox ou ListBox desaparecem. Não consigo entender a relação de alguma coisa com outra. Preciso deixar o aplicativo no modo visible=true para voltar a carregar as informações.
Não quero trabalhar com a planilha visível atras.

Gostaria de resolver essa questão de poder trabalhar com duas ou mais planilhas abertas, pois estou preparando o programa para pessoas que tem uma certa dificuldade com computador, então meu programa tem que ficar bem travado, sem possibilidades de aparecer um popup com erros e abrir automaticamente o VBA, senão os usuários vão endoidar. heheheheheh

Já conseguiste uma solucão, Lorenzon?

 
Postado : 19/05/2014 12:41 pm
(@lorenzon)
Posts: 355
Honorable Member
Topic starter
 

PR_PXT,

Sem analisar o seu projeto, trabalharei com suposições. Vide o código abaixo, veja se atenda.

Private Sub Workbook_Activate()
Sheets("bd").Select ' nome da 1° planilha que deseja abrir

End Sub

Private Sub Workbook_Open()

Dim r As Range
Dim r1 As Range
Set r = Worksheets("bd").Range("A2").CurrentRegion
Set r1 = r.Offset(r.Rows.Count, 0)

Dim ws As Worksheet
For Each ws In ThisWorkbook.Worksheets
ws.Visible = True
Next ws

Application.Visible = False

Application.OnKey "{Escape}", ""
ActiveWindow.TabRatio = 0

UserForm7.Show

end sub

 
Postado : 19/05/2014 1:00 pm
(@lorenzon)
Posts: 355
Honorable Member
Topic starter
 

Vide este tópico também:

viewtopic.php?f=10&t=11697

 
Postado : 19/05/2014 1:29 pm