Data la natura del lavoro di alcune persone che richiedono un'elevata sicurezza, è essenziale impostare una password per il file di dati, come in Excel. Il seguente articolo ti guiderà in dettaglio su come impostare una password per un file Excel nel modo più semplice sulla base di Microsoft Excel 2013.

1.Apri i file Excel che devono essere protetti

2. Vai al file, seleziona Info, quindi Crittografa con password in Proteggi cartella di lavoro

3. Viene visualizzata la finestra di dialogo Crittografa documento

Si prega di inserire la password che si desidera

E conferma di nuovo la password

4. Verifica il successo

Chiudi la finestra del foglio che stai utilizzando e riapri, in questo momento viene visualizzata la finestra Password e devi inserire la password per accedere.

Quindi, dopo aver impostato correttamente la password, forse non ricordi la password che hai impostato, cosa fare?

Come altre applicazioni, abbiamo bisogno anche di alcuni software di supporto. Tuttavia, c'è ancora un modo per rompere la password per un set sheet senza alcun altro supporto

• 1. Aprire il file Excel bloccato

• 2. Aprire l'editor di Visual Basic premendo Alt+F11 con excel: 2003,2007,2010. Con Excel 2013 e versioni successive, seleziona Sviluppatore sulla barra degli strumenti, quindi seleziona Editor visual basic

• 3. Seleziona il foglio da sbloccare

• 4. Copia il codice in

Sub PasswordBreaker()

Se ActiveSheet.ProtectContents = False allora

MsgBox "Sheet '" & ActiveSheet.Name & "' non è protetto!", vbInformation

Altro

Se MsgBox("Sheet '" & ActiveSheet.Name & "' è protetto, vuoi annullare la protezione?", _

vbYesNo + vbQuestion, "Unprotect Active Sheet") = vbNo Quindi esci dal sub

Dim i As Integer, j As Integer, k As Integer

Dim l come intero, m come intero, n come intero

Dim i1 As Integer, i2 As Integer, i3 As Integer

Dim i4 come intero, i5 come intero, i6 come intero

In caso di errore Riprendi Avanti

Per i = 65 A 66: Per j = 65 A 66: Per k = 65 A 66

Per l = da 65 a 66: per m = da 65 a 66: per i1 = da 65 a 66

Per i2 = da 65 a 66: per i3 = da 65 a 66: per i4 = da 65 a 66

Per i5 = 65 A 66: Per i6 = 65 A 66: Per n = 32 A 126

ActiveSheet.Unprotect Chr(i) & Chr(j) & Chr(k) & _

Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & Chr(i3) & _

Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)

Avanti: Avanti: Avanti: Avanti: Avanti: Avanti

Avanti: Avanti: Avanti: Avanti: Avanti: Avanti

Se ActiveSheet.ProtectContents = False, MsgBox "Sheet '" & ActiveSheet.Name & "' non è protetto!", vbInformation

Finisci se

Fine Sub

• 5. Eseguire il programma con il collegamento F5
• 6. Conferma l'eliminazione della password

Buona fortuna !