Oter protection de la feuille

Résolu/Fermé
josi98710 Messages postés 141 Date d'inscription lundi 16 novembre 2009 Statut Membre Dernière intervention 3 août 2017 - 23 mai 2013 à 12:10
Mike-31 Messages postés 18341 Date d'inscription dimanche 17 février 2008 Statut Contributeur Dernière intervention 14 octobre 2024 - 23 mai 2013 à 15:01
Bonjour,
J ai un problème j ai fait un fichier exel et j ai protéger certaine cellule.
Quand j enlève la protection de la feuille et que j enregistre puis je ferme mon fichier.
Mais chaque fois que je l ouvre la protection est chaque fois mise, je n arrive pas a l enlever cette protection.
quel qu un aurais t il une idée.
merci pour votre aide
Josiane



13 réponses

hubertaaz Messages postés 8194 Date d'inscription vendredi 12 mai 2006 Statut Contributeur sécurité Dernière intervention 22 janvier 2014 1 599
23 mai 2013 à 12:16
Bonjour,

Ouvre ton fichier => sélectionne "Enregistrer sous", tu le nommes différemment.
Ensuite essaye la manoeuvre avec le nouveau fichier.

Cordialement
0
Mike-31 Messages postés 18341 Date d'inscription dimanche 17 février 2008 Statut Contributeur Dernière intervention 14 octobre 2024 5 102
23 mai 2013 à 12:21
Salut,

es ce que tu dois donner un mot de passe à l'ouverture ?

as tu des macros sur ce fichier ?
0
josi98710 Messages postés 141 Date d'inscription lundi 16 novembre 2009 Statut Membre Dernière intervention 3 août 2017
23 mai 2013 à 13:06
bonjour,j ai ouvert mon fichier et je l ai renommé différemment, sa fonctionne mais quand j active les macros sa ne va plus.
le mot de passe est open
merci
Josiane
0
Mike-31 Messages postés 18341 Date d'inscription dimanche 17 février 2008 Statut Contributeur Dernière intervention 14 octobre 2024 5 102
23 mai 2013 à 13:11
Re,

Garde ton fichier d'origine, et c'est bien ce qui me semblais, il doit y avoir un code à l'ouverture ou à la fermeture voire pendant l'exécution d'un code qui rétabli la protection.

Il faudrait voir l'ensemble de tes codes ou mieux ton fichier sans note confidentielle que tu peux joindre à partir de ce lien

https://www.cjoint.com/
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
josi98710 Messages postés 141 Date d'inscription lundi 16 novembre 2009 Statut Membre Dernière intervention 3 août 2017
23 mai 2013 à 13:29
OK je te l envoie, mais mon fichier est très important.
Je n arrive pas a l envoyer
0
Mike-31 Messages postés 18341 Date d'inscription dimanche 17 février 2008 Statut Contributeur Dernière intervention 14 octobre 2024 5 102
Modifié par Mike-31 le 23/05/2013 à 13:42
Re,



tu copies (pour en avoir deux) ton fichier dans un autre répertoire et tu supprimes des lignes de chaque onglet afin de l'alléger au max
et tu essayes de l'envoyer sinon
quel est ton fournisseur d'accès

A+
Mike-31

Une période d'échec est un moment rêvé pour semer les graines du savoir.
0
josi98710 Messages postés 141 Date d'inscription lundi 16 novembre 2009 Statut Membre Dernière intervention 3 août 2017
23 mai 2013 à 13:47
OK je supprime des lignes
et j essaie

https://www.cjoint.com/?3ExnUrLinQF

ouf je te l envoie

et encore merci

josiane
0
Mike-31 Messages postés 18341 Date d'inscription dimanche 17 février 2008 Statut Contributeur Dernière intervention 14 octobre 2024 5 102
23 mai 2013 à 13:54
Re,

C'est bien ça à l'ouverture tu as un code qui protège toutes tes feuilles, que veux tu faire supprimer cette protection ?
0
josi98710 Messages postés 141 Date d'inscription lundi 16 novembre 2009 Statut Membre Dernière intervention 3 août 2017
23 mai 2013 à 14:10
oui j aimerai supprimer la protection
0
Mike-31 Messages postés 18341 Date d'inscription dimanche 17 février 2008 Statut Contributeur Dernière intervention 14 octobre 2024 5 102
23 mai 2013 à 14:17
Re,

Alors clic droit sur un onglet de feuille ou clic sur Alt et touche F11

tu remarqueras dans la marge de gauche l'explorateur de projet et dans la liste Thisworkbook
double clic dessus
tu auras accès au code qu'il contient place simplement une apostrophe devant les quatre lignes comme ci dessous

Option Explicit
Private Sub Workbook_Open()
Dim i As Variant
Dim nombre As Integer
nombre = ActiveWorkbook.Sheets.Count
Application.ScreenUpdating = False

' For i = 1 To nombre
' Worksheets(i).EnableOutlining = True
' Worksheets(i).Protect Password:="open", userInterfaceOnly:=True
' Next i

Application.ScreenUpdating = True
End Sub


ensuite soit tu déprotèges chaque feuille manuellement ou on t'écrit un code pour le faire en un clic
0
Bonjour

deja dans la macro Private Sub Workbook_Open changer une ligne

Private Sub Workbook_Open()
Dim i As Variant
Dim nombre As Integer
nombre = ActiveWorkbook.Sheets.Count
Application.ScreenUpdating = False
For i = 1 To nombre
Worksheets(i).EnableOutlining = True
Worksheets(i).Unprotect Password:="open"
Next i
Application.ScreenUpdating = True
End Sub

A+
Maurice
0
josi98710 Messages postés 141 Date d'inscription lundi 16 novembre 2009 Statut Membre Dernière intervention 3 août 2017
23 mai 2013 à 14:37
OK sa fonctionne
tu es génial
un très grand Merci
A+
Josiane
0
Mike-31 Messages postés 18341 Date d'inscription dimanche 17 février 2008 Statut Contributeur Dernière intervention 14 octobre 2024 5 102
23 mai 2013 à 15:01
Re,

D'ailleurs cette macro, tu peux la virer tout simplement ou mettre une apostrophe devant chaque ligne ce qui à pour but de la neutraliser
0