Password excel

Hai un problema con Excel?

Nuova discussione

Password excel
di Gianluca (utente non iscritto) data: 19/08/2013 12:24:01
Ragazzi aiuto! Ho protetto il mio file con una password mediante il procedimento - Prepara/cittografa documento. sono sicurissimo di aver inserito la password correttamente per due volte anche perchè l'ho segnata su un documento di testo. Ora all'apertura del file mi dice che la password è errata! Aiutoooo
di Vecchio Frac data: 20/08/2013 09:32:30
Password di Excel o password di VBA?
Hai controllato maiuscole/minuscole?
Sono stati inseriti caratteri "invisibili"?
Se vuoi passami il file in privato: staff@excelvba.it
e vedrò cosa riesco a fare :)
di Gianluca (utente non iscritto) data: 21/08/2013 09:37:12
Ciao, ti ho mandato il file via email grazie :)
di Gianluca (utente non iscritto) data: 21/08/2013 18:37:59
Ciao, ho allegato il file... la password che avevo inserito è corazzatagazzella123 se qualcuno riesce ad aprirlo mi serve urgente
di Grograman data: 22/08/2013 09:07:02
Evidentemente la password non è quella, o hai inserito alcune lettere minuszole ed altre maiuscole.

Io anche se sapessi come fare non forzo files altrui

di Grograman data: 22/08/2013 09:19:58
Ho giusto provato se per caso ti era sfuggita una maiuscola con questo codice (e non è così), oltre non mi spingo:

Option Explicit
Sub apro()
On Error Resume Next
    Dim i As Integer
    Dim strPsw As String, strErr As String
    strErr = "corazzatagazzella123"
    For i = 1 To Len(strErr)
        strPsw = Left(strErr, i - 1) & UCase(Mid(strErr, i, 1)) & Right(strErr, Len(strErr) - i)
        Debug.Print strPsw
        Application.Workbooks.Open "C:ProveGIOC.xls", , ReadOnly:=1, Password:=strPsw
    Next
End Sub



Nemmeno la C iniziale maiuscola e il resto con una maiuscola funziona:
Option Explicit
Sub apro()
On Error Resume Next
    Dim i As Integer
    Dim strPsw As String, strErr As String
    strErr = "corazzatagazzella123"
    For i = 1 To Len(strErr)
        strPsw = Left(strErr, i - 1) & UCase(Mid(strErr, i, 1)) & Right(strErr, Len(strErr) - i)
        strPsw = "C" & Right(strPsw, Len(strPsw) - 1)
        Debug.Print strPsw
        Application.Workbooks.Open "C:ProveGIOC.xls", , ReadOnly:=1, Password:=strPsw
    Next
End Sub

di Gianluca (utente non iscritto) data: 22/08/2013 11:46:37
che rabbia :( ti ringrazio tantissimo lo stesso

Vuoi Approfondire?