Ôter la protection de la feuille avec un mot de passe, sans exposer le mot de passe dans la macro

J'ai récemment commencé à écrire des Macros dans Excel.
J'ai une feuille de calcul protégée, et quelques boutons qui permettent à l'utilisateur d'ajouter/supprimer des colonnes/lignes à un certain point dans la feuille de calcul.

Je suis actuellement déprotéger la feuille de calcul, les fonctions et puis protéger la feuille de calcul.

Le problème, c'est que la feuille protégée mot de passe en texte brut dans la macro pour tout curieux des yeux pour voir.

Comment puis-je avoir un mot de passe sur la feuille pour la protéger, mais en même temps, permettre à mon Macro pour ôter la protection de la feuille de calcul, alors qu'il s'acquitte de ses fonctions, puis réappliquez, sans avoir à taper le mot de passe en clair dans la macro?

OriginalL'auteur Lock | 2012-08-16

  1. 14

    Deux options:

    1. Protéger le mot de passe VBA. (Tout en VBA protection est loin d'être sécurisé à l'encontre de l'intention de nuire, il n'est pas pire que la sécurité de la protection de la feuille)

    2. Si vous définissez la protection de feuille de calcul à l'aide de VBA vous pouvez spécifier UserInterfaceOnly:=True.

      sh.Protect Password:="Password", UserInterfaceOnly:=True

      Une fois réglé de cette façon, le code VBA peut modifier la feuille sans fournir de mot de passe. Depuis le mot de passe doit être fourni à la fois pour la demande de protection, en premier lieu, exécutez ce code à partir d'un autre classeur ou addin vous garder pour vous-même.

    + 1 j'ai aussi d'éviter les mots de passe en Texte. Non pas qu'il fait trop de différence. On peut utiliser certaines unique générateur de mot de passe. Voici un exemple de base ActiveSheet.Protect Application.WorksheetFunction.Pi Et parfois j'utilise un mot de passe aléatoire générateur uniquement code vba peut déprotéger.
    +1, je ne savais pas #2 a été une option sera l'aide que moi-même.

    OriginalL'auteur chris neilsen

  2. 0

    J'ai trouvé un code un temps, qui peut être d'une certaine aide. Cela permettra de déverrouiller n'importe quel mot de passe de feuille de calcul protégée. Il faut un peu de temps en fonction de la longueur du mot de passe, mais pour l'essentiel il vient sledgehammers son chemin à travers, et déverrouille la feuille de calcul. Peut-être pas la plus efficace de répondre à votre question, mais c'est utile à peu de code pour avoir tout de même. 

    Sub PasswordBreaker()
'Breaks worksheet password protection.
Dim i As Integer, j As Integer, k As Integer
Dim l As Integer, m As Integer, n As Integer
Dim i1 As Integer, i2 As Integer, i3 As Integer
Dim i4 As Integer, i5 As Integer, i6 As Integer
On Error Resume Next
For i = 65 To 66: For j = 65 To 66: For k = 65 To 66
For l = 65 To 66: For m = 65 To 66: For i1 = 65 To 66
For i2 = 65 To 66: For i3 = 65 To 66: For i4 = 65 To 66
For i5 = 65 To 66: For i6 = 65 To 66: For n = 32 To 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)
If ActiveSheet.ProtectContents = False Then
MsgBox "One usable password is " & Chr(i) & Chr(j) & _
Chr(k) & Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & _
Chr(i3) & Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)
Exit Sub
End If
Next: Next: Next: Next: Next: Next
Next: Next: Next: Next: Next: Next
End Sub
    Pas pertinente pour la question.

    OriginalL'auteur Oliver Lockett

  3. 0

    Vous pouvez appeler un UserForm pour gérer l'invite de mot de passe, mais masque les caractères à l'aide de PasswordChar comme une zone de texte de la propriété.

    Ôter la protection de la feuille avec un mot de passe, sans exposer le mot de passe dans la macro

    OriginalL'auteur brettdj