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
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
A voir également:
- Oter protection de la feuille
- Feuille de pointage excel - Télécharger - Tableur
- Comment supprimer une feuille sur word - Guide
- Excel reporter des données sur une autre feuille avec conditions - Forum Excel
- Feuille de style word - Guide
- Verrouiller cellule excel sans verrouiller la feuille - Guide
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
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
Ouvre ton fichier => sélectionne "Enregistrer sous", tu le nommes différemment.
Ensuite essaye la manoeuvre avec le nouveau fichier.
Cordialement
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
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 ?
es ce que tu dois donner un mot de passe à l'ouverture ?
as tu des macros sur ce fichier ?
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
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
le mot de passe est open
merci
Josiane
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
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/
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/
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
23 mai 2013 à 13:29
OK je te l envoie, mais mon fichier est très important.
Je n arrive pas a l envoyer
Je n arrive pas a l envoyer
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
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.
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.
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
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
et j essaie
https://www.cjoint.com/?3ExnUrLinQF
ouf je te l envoie
et encore merci
josiane
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
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 ?
C'est bien ça à l'ouverture tu as un code qui protège toutes tes feuilles, que veux tu faire supprimer cette protection ?
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
23 mai 2013 à 14:10
oui j aimerai supprimer la protection
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
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
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
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
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
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
23 mai 2013 à 14:37
OK sa fonctionne
tu es génial
un très grand Merci
A+
Josiane
tu es génial
un très grand Merci
A+
Josiane
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
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
D'ailleurs cette macro, tu peux la virer tout simplement ou mettre une apostrophe devant chaque ligne ce qui à pour but de la neutraliser