Oter protection de la feuille

Bonjour,

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

Cordialement

Salut,

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

as tu des macros sur ce fichier ?

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

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/

OK je te l envoie, mais mon fichier est très important.
Je n arrive pas a l envoyer

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.

OK je supprime des lignes
et j essaie

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

ouf je te l envoie

et encore merci

josiane

Re,

C'est bien ça à l'ouverture tu as un code qui protège toutes tes feuilles, que veux tu faire supprimer cette protection ?

oui j aimerai supprimer la protection

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

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

OK sa fonctionne
tu es génial
un très grand Merci
A+
Josiane

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