Aparentemente está abrindo em modo leitura pois o arquivo está aberto previamente; o comando SaveAs (SalvarComo) não fecha o arquivo apenas o salva e renomeia.
Assim apenas se referencie ao novo arquivo, sem necessidade de abri-lo, ou efetue primeiramente o "fechamento" do mesmo Algo +/- como ActiveWorkbook.Close

Boa Tarde

Tente Assim

Sub Abrir()



 Workbooks.Open ("P:LABORATÓRIOAnálise técnica C.QControle_Análise_Técnica.xlsm")
  

  
 Application.DisplayAlerts = False


end sub

Boa Tarde

Tente Assim

Sub Abrir()



 Workbooks.Open ("P:LABORATÓRIOAnálise técnica C.QControle_Análise_Técnica.xlsm")
  

  
 Application.DisplayAlerts = False


end sub

boa tarde mano,

continuou na mesma....

mas alterei minha planilha para não ter a necessidade de executar esta macro.
alterei para salvar com a seguinte macro "ActiveWorkbook.SaveCopyAs"

com este comando, nao consigo executar a macro de exclusão de macro que utilizava (ActiveWorkbook.VBProject.VBComponents.Remove _
ActiveWorkbook.VBProject.VBComponents("Módulo6"))

esse comando so estava funcionando, se apos executar este codigo eu salvasse utilizando ActiveWorkbook.SaveAs Filename.
era uma sequencia de macro...

mas vlw...

obrigado pela ajuda....