Salvar planilha do Excel sem viculo de Vba

[Paulo Sev]

Esta é minha primeira vez em foruns, desculpe se eu fizer algo errado.

É o seguinte: sou novo em vba, tenho um sistema de autosave do excel em vba com o codigo:

Public Sub Workbook_Open()
Call Ini
End Sub

Sub Macro2()
ActiveWorkbook.SaveAs "C:\Documents and Settings\projeto\Desktop\Sistema Auto Salvar\Salva Aqui\" & "Hora (" & Format(Time(), "hh-mm") & ")" & ";Data (" & Format(Date, "dd-mm-yy") & ")" & ".xlsm"
Call Ini
End Sub

Sub Ini()
Application.OnTime Now + TimeValue("00:01:00"), "Macro2"
End Sub

Ao abri-la e habilitar os macros ela salva em uma pasta de 1 em 1 minuto o arquivo com nome e data, so que ela acompanha e salva o codigo vba em todas as outras panilhas salvas. Queria que o codigo so fica-se na primeira e as outras ele desabilita-se, como eu faço isso. desde já agradeço

Editado Julho 12, 2010 por kuroi
Adicionar tag CODE

[Paulo Sev]

Algo como um arquivo, tipo leitura. Que só salva-se para abrir não podendo editar ou ativar as macros.

Já vi meu primeiro erro em post, não sabia que tinha que colocar código em um espaço especial, agora sei

[kuroi]

é, é sempre bom usar a tag CODE q fica mais facil pra ler.

e tb movi seu tópico da sala de vb6 pra vba.

quanto a sua duvida, não sei muito bem o q fazer nesses casos... você quer q os arquivos salvos tenham o codigo vba mas q eles não sejam ativados, ou q você não precisa ter o codigo vba??

se você so precisa das planilhas, você pode pesquisar por alguma forma de copiar uma planilha de um arquivo pra outro, deve ter algum jeito.

so o problema é q talvez isso seja meio demorado e precise de bastante processamento. ai ficaria ruim ficar fazendo a cada minuto.

e pra dexar como somente leitura, você poderia bloquear com senha.

[Paulo Sev]

Desculpe novamente ter colocado o tópico na area errada e a tag code, agora vou fazer da maneira correta.

Quanto a planilha ela na verdade deve ser salva de 15 e 15 minutos.

Copiando o conteúdo da planilha e criando uma nova, copiando o dados nelas e salvando consegui. :rolleyes:

Sub Macro2()
    Cells.Select
    Selection.Copy
    Workbooks.Add
    Cells.Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
    ActiveWorkbook.SaveAs "C:\Documents and Settings\projeto\Desktop\Sistema Auto Salvar\Salva Aqui\" & "Hora (" & Format(Time(), "hh-mm") & ")" & ";Data (" & Format(Date, "dd-mm-yy") & ")" & ".xls"
    Range("A1").Select
    ActiveWorkbook.Close
    Range("A1").Select
     Call Ini
End Sub

Mas na verdade queria que ela não executasse o macro da salva, só que assim já ta bom, obrigado.

[Paulo Sev]

Tem como eu gerar um arquivo .cvs( ou outro formato qualquer como .mdb) do conteúdo copiado, e depois dentro da planilha de origem no plan2 abrir por um botao o arquivo em uma área da plan2. Como um sistema onde os dados de plan1 sáo atualizados pelo plc e no plan2 abro a copia que é salva de 15 em 15 minutos, sendo os dados do plc atualizados a cada segundo só que salvo em cada 15 minutos.

Pra vocês isso deve ser fácil, mas eu não conheço muito desse sistema só no próprio soft de supervisorio o FactoryTalk, mas tenho que fazer no excel em especifico.

Agradeço desde já. :rolleyes:

[Paulo Sev]

Poder ser algo como ele gerar um print screen da plan1 do arquivo de trabalho, e colar em um arquivo que depois eu acesso por um botao na area da plan2 (.cvs , .xls , .mdb etc , tem que ter tabulaçao para importar para o excel)

[kuroi]

você pode usar o comando Open pra você mesmo escrever o arquivo, e depois você mesmo ler e preencher a planilha.

aqui explica como se usa o Open: http://en.wikibooks.org/wiki/Visual_Basic/Files

[Paulo Sev]

Demorei responder por que tava sem internet. Mas já consegui resolver o problema,

Obrigado pela ajuda. :rolleyes: :rolleyes: :rolleyes:

[wiwizao]

Pessoal, iniciei um projeto em VBA e coloquei o código que faz com que o excel fique oculto enquanto uso o programa criado, porém, preciso fazer algumas alterações e não sei como fazer o excel voltar a aparecer para poder mexer na formatação!

Agradeço