Ir para conteúdo
belann

Gravar macros no excel

Recommended Posts

Olá!

 

Estou criando macros em vba no excel mas quando tento gravar não grava eu perco o trabalho, quando entro novamente na planilha e procuro pelas macros criadas elas não existem.

Dá a seguinte mensagem que segue abaixo:

 

Os recursos a seguir não podem ser salvos em pastas de trabalho sem macro:

.Projeto do VB

Para salvar um arquivo com esses recursos, clique em Não e escolha um tipo de arquivo habilitado para macro na lista Tipo de Arquivo.

Para continuar salvando como pasta de trabalho sem macro, clique em Sim.

 

Já tentei Não e Sim e o resultado é o mesmo.

Compartilhar este post


Link para o post
Compartilhar em outros sites

Boas, 

 

quando fazes salvar o arquivo (salvar como) tens que seleccionar o modo de permissão de macros.

 

image.png.c1fff3654fc0ee2940216cbd6a0a33ea.png

 

Espero ter ajudado.

Compartilhar este post


Link para o post
Compartilhar em outros sites

Crie uma conta ou entre para comentar

Você precisar ser um membro para fazer um comentário

Criar uma conta

Crie uma nova conta em nossa comunidade. É fácil!

Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.

Entrar Agora

  • Conteúdo Similar

    • Por ZecaLoteiro
      Bom dia senhores.
      Estou com um problema. Estou abrindo uma planilha, editando, salvando-a, e exportando um PDF.
      Na última etapa, no comando
      ExportAsFixedFormat  está dando um erro:
      System.ArgumentException: 'O valor não recai no intervalo esperado.'  
      Segue o código:
      Private Sub GeraExcel() Dim template As xL.Workbook = New xL.Application().Workbooks.Open(ModeloPath) Dim sh As xL.Worksheet = template.Sheets("PDF") sh.Cells(1, 1).value = "PDF" If IO.File.Exists(Destino) Then Try IO.File.Delete(Destino) Catch ex As Exception End Try End If template.SaveAs(Destino) sh.ExportAsFixedFormat(XlFixedFormatType.xlTypePDF, "C:\Temp\pdf.pdf") template.Close(False) Process.Start("EXCEL.EXE", Destino) RaiseEvent ThreadCompleted() End Sub Este erro é muito genérico, não sei nem por onde começar a tentar analisar...
      Alguém já passou por isso? 
       
      Obrigado.
    • Por capcsar
      Bom dia pessoal. 

      Não sei muito sobre VBA, por isso estou tendo problemas com alguns códigos.

      Preciso copiar a cada linha da PLAN 1 para a PLAN 2, se repetindo conforme a quantidade descrita do lado de cada linha.

      Alguém sabe e pode me ajudar nisso.

      Desde já agradeço.

      Abraços
       
       


    • Por raffrenan
      E ae galera, seguinte, estou desenvolvendo um sistema em vba no excel para a empresa que trabalho, porém estou utilizando um sistema de consulta com listview, onde ele busca do banco de dados, porém preciso que esses dados sejam mostrados em uma textbox específica, porém não estou conseguindo, segue o código:
      Private Sub Btn_Consulta_Click()     Dim strSql As String          ID = Me.TxtConsulta          Set rs = New ADODB.Recordset          strSql = "SELECT ID_Monitor AS [Código], Nome AS [Nome do Operador],"     strSql = strSql & " * FROM Monitores WHERE ID_Monitor LIKE '" & ID & "'"          rs.Open strSql, MiConexao          On Error Resume Next          Me.Lista.ListItems.Clear          With Me.Lista              .View = lvwReport         .Gridlines = True         .FullRowSelect = True         .ColumnHeaders.Clear              For i = 0 To rs.Fields.Count - 1              .ColumnHeaders.Add i + 1, , VBA.UCase(rs(i).Name)              Next i          End With          While Not rs.EOF          Set Lrst = Me.Lista.ListItems.Add(Text:=rs(0))              Lrst.SubItems(1) = rs(1)         Lrst.SubItems(2) = rs(2)         Lrst.SubItems(3) = rs(3)         Lrst.SubItems(4) = rs(4)         Lrst.SubItems(5) = rs(5)         Lrst.SubItems(6) = rs(6)              rs.MoveNext          Wend          Me.TxtConsulta = ""     Me.TxtConsulta.SetFocus      End Sub Private Sub Lista_ItemClick(ByVal Item As MSComctlLib.ListItem) Dim Linha As Variant       Linha = Me.Lista.List.Index    Me.TxtNomeView = Me.Lista.List(Linha, 3)   End Sub Private Sub UserForm_Initialize() Call Conecta End Sub  
      Lembrando que ele consulta normalmente e mostra na listview, porém quando eu clico em uma opção da lista ele retorna erro.
    • Por fabianebalz
      Tenho um relatório em php que estou exportando para excel
      Sempre que tenho um "<br>" no meio da string o excel gera uma nova linha na planilha
      Gostaria de saber se alguém conhece alguma forma de substituir esse "<br>" e fazer essa quebra de linha na mesma célula do excel
      Já tentei "\r", "\n" e muitos outros sem sucesso
      Se alguém tiver alguma solução por favor me ajudem!! 
×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.