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?
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
Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel
não vi aplicabilidade a minha necessiidade! =/
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?
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