A voir également:
- Macro envahissante feuille excel à déprotéger
- Liste déroulante excel - Guide
- Feuille de pointage excel - Télécharger - Tableur
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Aller à la ligne excel - Guide
- Formule excel - Guide
3 réponses
Mike-31
Messages postés
18310
Date d'inscription
dimanche 17 février 2008
Statut
Contributeur
Dernière intervention
29 mars 2024
5 073
31 mai 2010 à 13:42
31 mai 2010 à 13:42
Salut,
Plusieurs raisons, voyons par élimination
Tes deux fichiers ont il le même nom !
Dans le fichier A as tu des codes macro, (Module, propriété feuille et Thiswokbook)
Si dans la Thisworbook tu n'as rien il est possible d'écrire un code qui enléve le mot de passe à l'ouverture du fichier si tu connais ce mot de passe. Sinon par respect de l'auteur je te conseille de te rapprocher de lui pour l'obtenir.
Plusieurs raisons, voyons par élimination
Tes deux fichiers ont il le même nom !
Dans le fichier A as tu des codes macro, (Module, propriété feuille et Thiswokbook)
Si dans la Thisworbook tu n'as rien il est possible d'écrire un code qui enléve le mot de passe à l'ouverture du fichier si tu connais ce mot de passe. Sinon par respect de l'auteur je te conseille de te rapprocher de lui pour l'obtenir.
Mike-31
Messages postés
18310
Date d'inscription
dimanche 17 février 2008
Statut
Contributeur
Dernière intervention
29 mars 2024
5 073
31 mai 2010 à 18:12
31 mai 2010 à 18:12
Re,
Ouvre le Visual Basic d'Excel, puis la Thisworkbook et colle ce code après avoir saisie le mot de passe à la place des deux ** de même entre parenthèse le numéro de la feuille concernée dans mon exemple pour la feuille1 (1)
Le fichier se déprotégera à l'ouverture
Private Sub Workbook_Open()
Worksheets(1).Unprotect Password:="**"
End Sub
Ouvre le Visual Basic d'Excel, puis la Thisworkbook et colle ce code après avoir saisie le mot de passe à la place des deux ** de même entre parenthèse le numéro de la feuille concernée dans mon exemple pour la feuille1 (1)
Le fichier se déprotégera à l'ouverture
Private Sub Workbook_Open()
Worksheets(1).Unprotect Password:="**"
End Sub
31 mai 2010 à 13:53
Merci d'avoir pris le temps de me répondre.
Les deux fichiers n'ont pas le même nom.
ThisWorkbook du fichier A n'a aucune code.
Je vais suivre ton conseil et copier le code du fichier B qui enlève le mot de passe (il y a le code de protection/déprotection dans le fichier B).
Mais comment éviter ça à l'avenir ? Les fichiers ne partagent pourtant pas le même module. C'est là que se trouve le code du fichier B (Modules>Module1)
D.
Modifié par Doraemon le 31/05/2010 à 13:59
Je crains que la partie qui protège le fichier ne s'exécute quand même aussi.
Le code ressemble à ça:
Sub Proteger()
Cells.Select
'Déproteger la feuille
Dim Feuil As Worksheet
For Each Feuil In Sheets
Feuil.Unprotect PassWord:="**"
Next Feuil
'Protéger la feuille
Application.ScreenUpdating = False
For Each Feuil In Sheets
'Verrouille toute les cellules
Feuil.Cells.Locked = True
'Déverrouille les cellules vides
Feuil.Cells.SpecialCells(xlCellTypeBlanks).Locked = False
'Protège toutes les feuilles
Feuil.Protect PassWord:="**", UserInterfaceOnly:=True, AllowSorting:=True, AllowFiltering:=True
Next Feuil
Range("A1").Select
End Sub()
Et la sub pour déprotéger est identique au code sous le commentaire 'Déproteger la feuille
Une idée ?
D.