Valutazione 4.87/ 5 (100.00%) 5838 voti

Condividi:        

vb2012: modificare password a file xls,doc,pdf

Vuoi potenziare i tuoi documenti Word? Non sai come si fa una macro in Excel? Devi creare una presentazione in PowerPoint?
Oppure sei passato a OpenOffice e non sei sicuro di come lavorare al meglio?

Moderatori: Anthony47, Flash30005

vb2012: modificare password a file xls,doc,pdf

Postdi karug64 » 15/12/12 22:45

Salve a tutti.
Sapreste dirmi come fare ( se si puo') a sostituire da codice visual basic 2012 una password su un file excel, word e pdf ?
Quindi conoscendo la password (pippo) del file test.xls / test.doc 7 test.pdf dovrei -da codice 2012- sostituirla con "pippo99"
E' possibile ?

Grazie
Office 2010
karug64
Utente Senior
 
Post: 580
Iscritto il: 20/11/11 21:22

Sponsor
 

Re: vb2012: modificare password a file xls,doc,pdf

Postdi Anthony47 » 17/12/12 01:22

Dovresti chiarire di quale password parli.

Ciao
Anthony
Win7 + Office 2010 Ita; Win 7 + Office 2013 Ita
Xp + Office 2003 Ita
E voi cosa usate? (per istruzioni vedere viewtopic.php?f=26&t=97449)
Avatar utente
Anthony47
Moderatore
 
Post: 13891
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: vb2012: modificare password a file xls,doc,pdf

Postdi karug64 » 17/12/12 07:45

Salve. La password di cui parlo é quella del documento. Quella che si inserisce da salva col nome -> protezione. Quella insomma che viene richiesta all'apertura del documento. Grazie
Office 2010
karug64
Utente Senior
 
Post: 580
Iscritto il: 20/11/11 21:22

Re: vb2012: modificare password a file xls,doc,pdf

Postdi ricky53 » 17/12/12 13:37

Ciao,
utilizza il registratore per macro per:
1. sproteggere il file con la vecchia PSW
2. proteggere il file con la nuova PSW

Fermato il registratore, aperto l'editor del VB, vedrai il codice ottenuto e lo potrai adattare alle tue esigenze.

Prova e ... siamo QUI.
Dice il vecchio saggio provare e riprovare è l'unica strada per imparare

Più chiara è la vostra spiegazione
Più immediata sarà la nostra soluzione


. . . . . . . . . .
S.O. W7; Office 2003-10-13-16
Avatar utente
ricky53
Utente Senior
 
Post: 4223
Iscritto il: 11/04/09 19:29
Località: Italia

Re: vb2012: modificare password a file xls,doc,pdf

Postdi karug64 » 17/12/12 18:50

Salve. Ho fatto come dici, ma questo codice generato per proteggere il foglio

Codice: Seleziona tutto
ActiveWorkbook.SaveAs Filename:="C:\Users\karug\Desktop\C1.xls", FileFormat:= _
        xlExcel8, Password:="xxx", WriteResPassword:="", ReadOnlyRecommended:= _
        False, CreateBackup:=False


in visual basic (NO vba dentro excel, ma visual studio 2012) non va.

Errori del tipo :
'ActiveWorkbook' non dichiarato. Non è accessibile a causa del livello di protezione.
'xlExcel8' non dichiarato. Non è accessibile a causa del livello di protezione.

Ed inoltre non saprei come aprire il file passandogli la password (che conosco ....)

Grazie
Office 2010
karug64
Utente Senior
 
Post: 580
Iscritto il: 20/11/11 21:22

Re: vb2012: modificare password a file xls,doc,pdf

Postdi PcBase » 17/12/12 20:01

Ciao

Avevo già provato a rimuovere la password con vbs ma non riuscivo poi a salvare il file con quella nuova.
Oggi ho trovato una soluzione nel seguente link:
http://microsoft.public.it.office.excel ... e-vbscript
Windows xp + Office 2003 Ita
Windows8 Office 2013
PcBase
Utente Senior
 
Post: 129
Iscritto il: 24/02/11 23:26

Re: vb2012: modificare password a file xls,doc,pdf

Postdi karug64 » 17/12/12 21:07

Grazie.
Un'informazione: questo codice e' scritto in vbs (vbscript).
Per eseguirlo come faccio ?

Cioe', se lo scrivo all'interno del progetto visualbasic pare andare, mi apre il file excel ma mi chiede la password, e quando lo salva non modifica la password.

Devo lanciare lo script in qualche altro modo ?

Grazie
Office 2010
karug64
Utente Senior
 
Post: 580
Iscritto il: 20/11/11 21:22

Re: vb2012: modificare password a file xls,doc,pdf

Postdi PcBase » 17/12/12 21:24

Ciao

Con la seguente istruzione:
Shell ("WScript.exe C:\DATI\Test.VBS")
Esegue il comando Vbs

questo codice inserito nel file vbs opera l'apertura e il salvataggio con la nuova password.
--------------------------
Dim objExcel
Dim objWorkbook
Dim objWorksheet

Set objExcel = CreateObject("Excel.Application")
Set objWorkbook = objExcel.Workbooks.Open("C:\Prove\mioFile.xlsx")
Set objWorksheet = objWorkbook.Worksheets("Foglio1")

'objExcel.Visible = True

With objWorksheet
.Unprotect "psw"
.Cells(1, 1).Value = "DatoA"
.Cells(1, 2).Value = "DatoB"
.Protect "psw"
End With

objWorkbook.Save
objExcel.Quit


Set objWorksheet = Nothing
Set objWorkbook = Nothing
Set objExcel = Nothing
--------------------------

l'esempio modifica un solo file, nota (devi creare il file vbs prima di eseguire il ciclo di modifica file).
Il file vbs è un normalissimo file testo lo puoi creare da visual basic
Windows xp + Office 2003 Ita
Windows8 Office 2013
PcBase
Utente Senior
 
Post: 129
Iscritto il: 24/02/11 23:26

Re: vb2012: modificare password a file xls,doc,pdf

Postdi karug64 » 17/12/12 21:43

Ok. FAtto.

Questo e' il codice di visual basic :

Codice: Seleziona tutto
Public Class Form1
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Shell("WScript.exe C:\test\psw.VBS")
    End Sub
End Class


il file vbs viene lanciato ma nonostante questa istruzione sia remmata

'objExcel.Visible = True

mi viene aperto excel che mi chiede la password di apertura del file .... e dopo averla inserita mi apre il foglio e mi da errore alla riga 12 del vbs (.Unprotect "xxx") dicendomi che la password e' errata (ma in effetti e' esatta perche' mi fa aprire il file con quella password).

Grazie
Office 2010
karug64
Utente Senior
 
Post: 580
Iscritto il: 20/11/11 21:22

Re: vb2012: modificare password a file xls,doc,pdf

Postdi PcBase » 17/12/12 22:15

Ciao

Un passo alla volta, prova a lanciare il file vbs che hai creato con: Esplora risorse o Norton Commander.
Ho provato prima con successo!
Ricordati di impostare correttamente i percorsi e i nomi del file, i nomi del foglio della scheda Excel..

Excel viene aperto senza essere visualizzato, modifica la password e lo salva.

Ora se per qualche motivo il ciclo si blocca prova a chiudere Excel in esecuzione..
Ctrl Alt Canc e visualizzi i processi attivi..
Io la password che utilizzi la inserisco nel sindgolo foglio.
Se devi utilizzare una password riferita alla cartella devi modificare il codice!
Windows xp + Office 2003 Ita
Windows8 Office 2013
PcBase
Utente Senior
 
Post: 129
Iscritto il: 24/02/11 23:26

Re: vb2012: modificare password a file xls,doc,pdf

Postdi karug64 » 17/12/12 22:39

PcBase ha scritto:Ciao

Io la password che utilizzi la inserisco nel sindgolo foglio.
Se devi utilizzare una password riferita alla cartella devi modificare il codice!


Il problema sta proprio li, secondo me.
La password è sulla cartella e non sul singolo foglio.
Ovviamente non basta sostituire

Codice: Seleziona tutto
Set objWorksheet = objWorkbook.Worksheets("Foglio1")
'objExcel.Visible = True
With objWorksheet
.Unprotect "xxx"


con

Codice: Seleziona tutto
With objWorkbook
.Unprotect "xxx"


perche', già provato, non va.

Sapresti dirmi come modificare il codice ?

Grazie
Office 2010
karug64
Utente Senior
 
Post: 580
Iscritto il: 20/11/11 21:22

Re: vb2012: modificare password a file xls,doc,pdf

Postdi PcBase » 18/12/12 00:23

Ciao, ora finalmente funzionano i Tag!

Ho fatto alcune prove, non ho trovato come salvare la password con .Save ora sto utilizzando il metodo: objWorkbook.Saveas

Segue il codice da inserire nel file Vbs
Codice: Seleziona tutto
Dim objExcel
Dim objWorkbook
Dim objWorksheet

Set objExcel = CreateObject("Excel.Application")

Set objWorkbook = objExcel.Workbooks.Open("C:\test.xls",,,,"YYY")

objWorkbook.Saveas "C:\test_Due.xls",,"YYY"
objExcel.Quit


Set objWorksheet = Nothing
Set objWorkbook = Nothing
Set objExcel = Nothing


Notte!
Windows xp + Office 2003 Ita
Windows8 Office 2013
PcBase
Utente Senior
 
Post: 129
Iscritto il: 24/02/11 23:26

Re: vb2012: modificare password a file xls,doc,pdf

Postdi karug64 » 18/12/12 12:36

Il problema sembra risolto inserendo dopo l'istruzione SET OBJEXCEL = ... questa riga OBJEXCEL.DISPLAYALERTS = FALSE.

ma c'é modo di fare la stessa cosa per i file di word *.DOC ?
Office 2010
karug64
Utente Senior
 
Post: 580
Iscritto il: 20/11/11 21:22

Re: vb2012: modificare password a file xls,doc,pdf

Postdi karug64 » 18/12/12 22:39

Aggiorno.
Per i file Doc di word sono riuscito ad aprirli con password così:

Codice: Seleziona tutto
Dim Word, Doc
Set Word = CreateObject("Word.Application")
'word.visible = true
Word.Documents.Open "c:\test\testdoc.doc",,,,"k1"
msgbox("Finito")
Word.Quit


Il problema e' che non riesco a salvarli con password. Infatti un'istruzione del genere:

Codice: Seleziona tutto
word.documents.save ("c:\test\testdoc.doc",,,,"k2")


non va, perche' non sono previste le parentesi nel metodo save.

Pensavo che allora forse bisogna prima impostare la password e poi salvare con

Codice: Seleziona tutto
word.documents.save "c:\test\testdoc.doc"


che va. Ma non riesco a trovare riferimenti su internet.

Suggerimenti ? Grazie
Office 2010
karug64
Utente Senior
 
Post: 580
Iscritto il: 20/11/11 21:22

Re: vb2012: modificare password a file xls,doc,pdf

Postdi Anthony47 » 18/12/12 23:18

Ma non dovresti usare SaveAs anche per Word?

Ciao
Anthony
Win7 + Office 2010 Ita; Win 7 + Office 2013 Ita
Xp + Office 2003 Ita
E voi cosa usate? (per istruzioni vedere viewtopic.php?f=26&t=97449)
Avatar utente
Anthony47
Moderatore
 
Post: 13891
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: vb2012: modificare password a file xls,doc,pdf

Postdi PcBase » 18/12/12 23:22

Ciao

Ho trovato la soluzione, ecco il file Vbs per modificare la password su Word!

Codice: Seleziona tutto
Set objWord = CreateObject("Word.Application")

objWord.Visible = False

objWord.DISPLAYALERTS = FALSE

Set objDoc = objWord.Documents.Open("C:\Test.doc",,,,"QQQ")

objWord.ActiveDocument.Password = "KKK"

objDoc.SaveAs("C:\Test.doc")

objWord.Quit

Set objWord = Nothing
Windows xp + Office 2003 Ita
Windows8 Office 2013
PcBase
Utente Senior
 
Post: 129
Iscritto il: 24/02/11 23:26

Re: vb2012: modificare password a file xls,doc,pdf

Postdi karug64 » 19/12/12 11:06

Ottimo. Grande !!! Beh ... ora per chiudere il post dovremmo cercare di fare le stesse operazioni sui file pdf ..... lo so lo so che chiedo tanto , ma non riesco a trovare nulla in rete. Grazie in anticipo
Office 2010
karug64
Utente Senior
 
Post: 580
Iscritto il: 20/11/11 21:22

Re: vb2012: modificare password a file xls,doc,pdf

Postdi PcBase » 19/12/12 12:58

Ciao

ora per chiudere il post dovremmo cercare di fare le stesse operazioni sui file pdf


Intanto dai un'occhiata qui: http://www.asppdf.com/manual_09.html
Windows xp + Office 2003 Ita
Windows8 Office 2013
PcBase
Utente Senior
 
Post: 129
Iscritto il: 24/02/11 23:26

Re: vb2012: modificare password a file xls,doc,pdf

Postdi karug64 » 19/12/12 22:43

Ok. Scaricato, richiesto il codice, installato, controllato che sul registro la chiave sia registrata, riavviato la macchina ..... ma l'istruzione

Codice: Seleziona tutto
Set Pdf = Server.CreateObject("Persits.Pdf")


risponde con un "miserevole" : Necessario oggetto: 'Server'
Office 2010
karug64
Utente Senior
 
Post: 580
Iscritto il: 20/11/11 21:22

Re: vb2012: modificare password a file xls,doc,pdf

Postdi PcBase » 20/12/12 00:17

Ciao

Io non ho la seguente applicazione installata...
'Required Abode Reader to install on the machine

Qui trovi ulteriori informazioni
https://sites.google.com/site/isudhindr ... t-examples
Windows xp + Office 2003 Ita
Windows8 Office 2013
PcBase
Utente Senior
 
Post: 129
Iscritto il: 24/02/11 23:26

Prossimo

Torna a Applicazioni Office Windows


Topic correlati a "vb2012: modificare password a file xls,doc,pdf":


Chi c’è in linea

Visitano il forum: Anthony47 e 7 ospiti

cron