Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Sécuriser des feuilles excel

Sécuriser des feuilles excel

5 réponses
Avatar
dpo
Bonjour,

je voudrais s=E9curiser (mettre un mot de passe)18 feuilles=20
Excel d'un meme fichier en meme temps, sans devoir le=20
faire 18 fois !=20

Comment faire merci par avance !

dpo
Signaler un problème avec ce contenu

5 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
ChrisV
Bonjour dpo,

Sub proTect()
Dim wS As Worksheet
Application.ScreenUpdating = False
For Each wS In ThisWorkbook.Worksheets
wS.proTect Password:="mdp"
Next
End Sub

Sub deproTect()
Dim wS As Worksheet
Application.ScreenUpdating = False
For Each wS In ThisWorkbook.Worksheets
wS.Unprotect Password:="mdp"
Next
End Sub


ChrisV


"dpo" a écrit dans le message de news:
09f201c3db45$1d327be0$
Bonjour,

je voudrais sécuriser (mettre un mot de passe)18 feuilles
Excel d'un meme fichier en meme temps, sans devoir le
faire 18 fois !

Comment faire merci par avance !

dpo
Avatar
zrd
bonjour,

"ChrisV" a écrit dans le message news:
#
Bonjour dpo,

Sub proTect()
Dim wS As Worksheet
Application.ScreenUpdating = False
For Each wS In ThisWorkbook.Worksheets
wS.proTect Password:="mdp"
Next
End Sub

Sub deproTect()
Dim wS As Worksheet
Application.ScreenUpdating = False
For Each wS In ThisWorkbook.Worksheets
wS.Unprotect Password:="mdp"
Next
End Sub

ChrisV



Super interessant,
mais n'y a t il pas un risque a indique le MDP dans la routine,
n'importe quel utilsateur peut aller voir ca, non ??

Merci
@+

Avatar
ChrisV
Bonjour zrd,

Il faut bien sûr protéger l'accès au code...
Outils/Propriétés de VBAProject.../Protection


ChrisV


"zrd" a écrit dans le message de news:

bonjour,

"ChrisV" a écrit dans le message news:
#
Bonjour dpo,

Sub proTect()
Dim wS As Worksheet
Application.ScreenUpdating = False
For Each wS In ThisWorkbook.Worksheets
wS.proTect Password:="mdp"
Next
End Sub

Sub deproTect()
Dim wS As Worksheet
Application.ScreenUpdating = False
For Each wS In ThisWorkbook.Worksheets
wS.Unprotect Password:="mdp"
Next
End Sub

ChrisV



Super interessant,
mais n'y a t il pas un risque a indique le MDP dans la routine,
n'importe quel utilsateur peut aller voir ca, non ??

Merci
@+





Avatar
zrd
merci ChrisV,
comme je ne suis pas (encore) un gros utilisateur de VBA,je ne connaissait
pas cette possibilité.
Comme ca, ca me va bcp mieux ;-)
@+

"ChrisV" a écrit dans le message news:

Bonjour zrd,

Il faut bien sûr protéger l'accès au code...
Outils/Propriétés de VBAProject.../Protection


ChrisV



Avatar
FxM
Bonsoir,

Sub proTect()
mdp1 = InputBox("Entrez votre mdp")
mdp2 = InputBox("Re-Entrez votre mdp ;o)")
If mdp1 <> mdp2 Then Exit Sub
Dim wS As Worksheet
Application.ScreenUpdating = False
For Each wS In ThisWorkbook.Worksheets
wS.proTect Password:=mdp1
Next
End Sub

Sub unproTect()
mdp1 = InputBox("Entrez votre mdp")
mdp2 = InputBox("Re-Entrez votre mdp ;o)")
If mdp1 <> mdp2 Then Exit Sub
Dim wS As Worksheet
Application.ScreenUpdating = False
For Each wS In ThisWorkbook.Worksheets
wS.unproTect Password:=mdp1
Next
End Sub

@+
FxM




zrd wrote:
bonjour,

"ChrisV" a écrit dans le message news:
#

Bonjour dpo,

Sub proTect()
Dim wS As Worksheet
Application.ScreenUpdating = False
For Each wS In ThisWorkbook.Worksheets
wS.proTect Password:="mdp"
Next
End Sub

Sub deproTect()
Dim wS As Worksheet
Application.ScreenUpdating = False
For Each wS In ThisWorkbook.Worksheets
wS.Unprotect Password:="mdp"
Next
End Sub

ChrisV




Super interessant,
mais n'y a t il pas un risque a indique le MDP dans la routine,
n'importe quel utilsateur peut aller voir ca, non ??

Merci
@+