Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Usando declaração W...
 
Notifications
Clear all

Usando declaração Workbook_Open

 
2024 - VBA & Macros
Post Recente por MPrudencio 9 anos atrás
3 Posts
3 Usuários
0 Reactions
472 Visualizações
RSS
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Pessoal, boa tarde!

Estou precisando da ajuda de vocês.

Criei um Sistema aqui na empresa para que obriga o usuário a salvar o arquivo com outro nome.

Estou utilizando a seguinte programação para rodar o Userform que faz isso:

Sub Workbook_Open()
'
    Set wb = Workbooks(1)
    
    a = wb.Name
    
    If wb.Name = "MODELO GRADE.xlsm" Then
    
    Cabeçalho.Show
    
    End If

End Sub

Até ai beleza, o VBA funciona perfeitamente.

Realizando um teste, percebi que essa macro tem um problema e não sei como resolver. Se eu estou com algum outro workbook aberto quando eu abro este meu arquivo a Macro vai considerar como wb.name este outro arquivo e com isso o Userform não aparece.

Como posso resolver isso?

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 23/10/2015 11:25 am
Wagner Morel
 Wagner Morel
(@wagner-morel-vidal-nobre)
Posts: 0
Illustrious Member
 

Pontinhus

Boa Tarde!

Use assim:

Private Sub Workbook_Open()
    Dim MeuArquivo As String
    Dim wb As Workbook
    For Each wb In Workbooks
        If Left(wb.Name, 12) = "MODELO GRADE" Then
            MeuArquivo = wb.Name
            Cabeçalho.Show
            Exit For
        End If
    Next
End Sub

Desenvolvo pequenas soluções em VBA Excel a valores que variam entre R$ 50,00 a R$ 200,00. Se te interessar, entre no meu instagran (vba_excel_desenvolvimento)

Atenciosamente
Wagner Morel

 
Postado : 23/10/2015 12:56 pm
 MPrudencio
(@mprudencio)
Posts: 2749
Famed Member
 

Uma segunda sugestão seria trocar

Set wb = Workbooks(1)

por

Set wb = Workbooks("Modelo Grade")

Marcelo Prudencio
Microsoft Excel Brasil no Facebook

"Começar já é a metade do caminho."
Autor Desconhecido

Simplifica que simples fica.
Nicole Tomazella.

"O Simples é Sempre Melhor Que o Complicado"
Jorge Paulo Lemann.

 
Postado : 23/10/2015 8:03 pm
Forum Jump:
  Tópico Anterior
Próximo Tópico