protection de la feuille

[sesa]

Re,

existe t il une formule plus rapide, pour ôter et remettre la protection sur un classeur ayant plusieurs feuilles,
sans passer par le menu outils=>protection etc...
Si une macro permet de gérer cette situation, merci de me la transmettre afin que je puisse l'affecter dans mon classeur

aussi, j'aimerais savoir si il est possible de cacher un texte ou une formule dans une cellule

Au plaisir

 

[Staple1600]

Re : protection de la feuille

Bonjour


En cherchant un peu...sur le forum

https://www.excel-downloads.com/threads/protection-de-feuille.66701/

 

[TheLio]

Re : protection de la feuille

Hello,
une solution en poche sur ce lien
https://www.excel-downloads.com/threads/protection-de-feuilles.77327/
A++
Salut Staple 😉 toujours pas rapide moi

 

[Staple1600]

Re : protection de la feuille

Bonsoir TheLIo


Cela fera deux solutions en poche comme ça 😉

 

[sesa]

Re : protection de la feuille

Bonjour Staple1600, TheLio et forum

Tout d'abord merci de vos réponses.

Cela dit, je me suis baladé sur le forum en effet c'est une mine d'or.🙂

Donc voici ce que j'ai trouvé ci desous "macro" et mis en application dans le classeur que vous trouverez ci joint
en revanche le dévérouillage ne fonctionne pas, suis obligé de faire outils oter etc...
pouvez vous me dire ce qui bloque dans la marco ?
aussi, ce fichier est un test à terme je souhaite mettre ces macros, et
il sera partagé en réseau , et je suis le seul à pouvoir apporter les modif.
alors, est ce que les personnes n'auront pas de difficulté à regarder "en mode lecture seule" ,
et pourront ils voir le mot de passe de la macro vérouiller et dévérouiller*
ccomment faire pour protéger ces marcos ?

merci d'avance au plaisir

Sub ProtectionToutesLesFeuillesMDP()
Application.ScreenUpdating = False
Dim Feuil As Worksheet
For Each Feuil In Sheets
Feuil.Protect Password:="chris"
Next Feuil
End Sub


et pour déprotéger :
Sub DeprotectionToutesLesFeuillesMDP()
Dim MyMtPss As String
MyMtPss = Application.InputBox("Mot de passe pour continuer")
If MyMtPss <> "chris" Then Exit Sub
MsgBox "Attention, toutes les feuilles vont être déprotégées"
Application.ScreenUpdating = False
Dim Feuil As Worksheet
For Each Feuil In Sheets
Feuil.Unprotect Password:="chris"
On Error GoTo Sortie
Suite:
Next Feuil
Exit Sub
Sortie:
MsgBox "La Feuille : " & Feuil.Name & " Est Protégée par UN AUTRE Mot de Passe"
GoTo Suite
End Sub

 

[sesa]

Re : protection de la feuille

décidément,

oublié le fichier

 

[Cousinhub]

Re : protection de la feuille

Bonjour,
chez moi, cela fonctionne......😕

 

[Staple1600]

Re : protection de la feuille

Bonjour à tous

alors, est ce que les personnes n'auront pas de difficulté à regarder "en mode lecture seule" ,
et pourront ils voir le mot de passe de la macro vérouiller et dévérouiller*
ccomment faire pour protéger ces marcos ?

Il n'y a pas de moyen sur à 100% (en tout cas sur Excel 2000)

Déjà si l'utilisateur ouvre sans activer les macros
Plus de protection


Si tu veux protéger tes macros, tu mets un mot de passe sur ton Projet VBA
(Dans VBE clic-droit sur VBAProject
et Propriétés VBAProject --> Protection

et tu mets un mot de passe
(en sachant que cette protection se "déprotége" facilement )

 

[Lynk Zel]

Re : protection de la feuille

très instructif, je viens de vérrouiller mon code et ma base de donnée en quelques clics, merci 🙂