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 Protection de toutes les feuilles

Protection de toutes les feuilles

4 réponses
Avatar
Crel
Bonjour à toutes et tous.
Je désire créer une proc qui me protége toutes les feuilles d'un classeur en
même temps, avec un mot de passe "toto"
Merci beaucoup
Patrick
Signaler un problème avec ce contenu

4 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
Philippe.R
Bonjour Patrick,

Cette procédure :

Sub Proteg_ttfeuilles()
' MPFE le 11/10/2003 par Philippe Raulet
'
For i = 1 To Sheets.Count
Sheets(i).Protect DrawingObjects:=True, _
Contents:=True, Scenarios:=True, Password:="toto"
Next i
End Sub

devrait pouvoir convenir
--
Amicales Salutations

Retirer A_S_ pour répondre.
XL97 / XL2002

"Crel" a écrit dans le message de
news:e%
Bonjour à toutes et tous.
Je désire créer une proc qui me protége toutes les feuilles d'un classeur en
même temps, avec un mot de passe "toto"
Merci beaucoup
Patrick




Avatar
Crel
Comme d'habitude, rapide et clair.
Merci beaucoup Philippe.
Patrick

"Philippe.R" a écrit dans le message de news:
#
Bonjour Patrick,

Cette procédure :

Sub Proteg_ttfeuilles()
' MPFE le 11/10/2003 par Philippe Raulet
'
For i = 1 To Sheets.Count
Sheets(i).Protect DrawingObjects:=True, _
Contents:=True, Scenarios:=True, Password:="toto"
Next i
End Sub

devrait pouvoir convenir
--
Amicales Salutations

Retirer A_S_ pour répondre.
XL97 / XL2002

"Crel" a écrit dans le
message de

news:e%
Bonjour à toutes et tous.
Je désire créer une proc qui me protége toutes les feuilles d'un
classeur en


même temps, avec un mot de passe "toto"
Merci beaucoup
Patrick








Avatar
Philippe.R
C'était avec plaisir Patrick,
Au cas où, celle ci déprotège toutes les feuilles :

Sub Deproteg_ttfeuilles()
' MPFE le 11/10/2003 par Philippe Raulet
'
For i = 1 To Sheets.Count
Sheets(i).Unprotect Password:="toto"
Next i
End Sub
--
Amicales Salutations

Retirer A_S_ pour répondre.
XL97 / XL2002

"Crel" a écrit dans le message de
news:
Comme d'habitude, rapide et clair.
Merci beaucoup Philippe.
Patrick

"Philippe.R" a écrit dans le message de news:
#
Bonjour Patrick,

Cette procédure :

Sub Proteg_ttfeuilles()
' MPFE le 11/10/2003 par Philippe Raulet
'
For i = 1 To Sheets.Count
Sheets(i).Protect DrawingObjects:=True, _
Contents:=True, Scenarios:=True, Password:="toto"
Next i
End Sub

devrait pouvoir convenir
--
Amicales Salutations

Retirer A_S_ pour répondre.
XL97 / XL2002

"Crel" a écrit dans le
message de

news:e%
Bonjour à toutes et tous.
Je désire créer une proc qui me protége toutes les feuilles d'un
classeur en


même temps, avec un mot de passe "toto"
Merci beaucoup
Patrick












Avatar
Crel
Merci, merci, merci, ,,,,,,,,,,,,,,,...
Patrick

"Philippe.R" a écrit dans le message de news:
OX2pq$
C'était avec plaisir Patrick,
Au cas où, celle ci déprotège toutes les feuilles :

Sub Deproteg_ttfeuilles()
' MPFE le 11/10/2003 par Philippe Raulet
'
For i = 1 To Sheets.Count
Sheets(i).Unprotect Password:="toto"
Next i
End Sub
--
Amicales Salutations

Retirer A_S_ pour répondre.
XL97 / XL2002

"Crel" a écrit dans le
message de

news:
Comme d'habitude, rapide et clair.
Merci beaucoup Philippe.
Patrick

"Philippe.R" a écrit dans le message de news:
#
Bonjour Patrick,

Cette procédure :

Sub Proteg_ttfeuilles()
' MPFE le 11/10/2003 par Philippe Raulet
'
For i = 1 To Sheets.Count
Sheets(i).Protect DrawingObjects:=True, _
Contents:=True, Scenarios:=True, Password:="toto"
Next i
End Sub

devrait pouvoir convenir
--
Amicales Salutations

Retirer A_S_ pour répondre.
XL97 / XL2002

"Crel" a écrit dans le
message de

news:e%
Bonjour à toutes et tous.
Je désire créer une proc qui me protége toutes les feuilles d'un
classeur en


même temps, avec un mot de passe "toto"
Merci beaucoup
Patrick