password VBA e Metodo SaveAs

Question

Ciao,

vi volevo chiedere un aiuto. Da scritto un codice (banale) per fare delle operazioni su foglio excel e salvare alla fine il tutto come cvs. E fin qui tutto bene. Poi, visto che il file sarebbe stato usato da altre persone, ho protetto il progetto VBA con una password, ma solo per evitare che magari qualcuno inavvertitamente potesse modificare il codice. Il problema è (e qui mi servirebbe, se volete, il vostro aiuto..) che al momento del salvataggio in csv mi da l'errore di run-time '1004' " Metodo 'SaveAs' dell'oggetto '_Workbook' non riuscito".

il codice che utilizzo è il seguente

ChDir "C:"

ActiveWorkbook.SaveAs Filename:="C:\Tracciato.csv", FileFormat:=xlCSVMSDOS, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _

, CreateBackup:=False, Local:=True

Sapete aiutarmi?

grazie

Dario

Answer 1

Ciao,

vi volevo chiedere un aiuto. Da scritto un codice (banale) per fare delle operazioni su foglio excel e salvare alla fine il tutto come cvs. E fin qui tutto bene. Poi, visto che il file sarebbe stato usato da altre persone, ho protetto il progetto VBA con una password, ma solo per evitare che magari qualcuno inavvertitamente potesse modificare il codice. Il problema è (e qui mi servirebbe, se volete, il vostro aiuto..) che al momento del salvataggio in csv mi da l'errore di run-time '1004' " Metodo 'SaveAs' dell'oggetto '_Workbook' non riuscito".

il codice che utilizzo è il seguente

ChDir "C:"

ActiveWorkbook.SaveAs Filename:="C:\Tracciato.csv", FileFormat:=xlCSVMSDOS, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _

, CreateBackup:=False, Local:=True

Sapete aiutarmi?

grazie

Dario

Ciao Dario,

Penso che il tuo problema sia che stai provando di salvare il file nel 'root directory, C:.

Solitamente, l'impostazione predefinita per i computer è di sola lettura per il directory root (cartella principale).

Prova, quindi, di salvare il file altrove, ad esempio:

'=============>>

Public Sub TestIt()

ActiveWorkbook.SaveAs _

Filename:=Application.DefaultFilePath _

& Application.PathSeparator _

& "Tracciato.csv", _

FileFormat:=xlCSV

End Sub

'=============>>

Oppure qualcosa del genere:

'=============>>

Public Sub TestIt2()

Const SIndirizzo As String = "C:\Users\NDJ"     '<<==== Cambia

ActiveWorkbook.SaveAs _

Filename:=SIndirizzo _

& "Tracciato.csv", _

FileFormat:=xlCSV

End Sub

'=============>>

Sostituisci un indirizzo valido per il valore di sIndirizzo.

===

Regards,

Norman

Answer 2

Grazie Norman, col tuo suggerimento ora funziona.

Saluti

Dario