Protection de feuilles nouvelles

  • Initiateur de la discussion Initiateur de la discussion cj welch
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

Re : Protection de feuilles nouvelles

Salut,Cj weich

Pour masquer :
Code:
For Each Ws In ActiveWindow.SelectedSheets
With Ws
.Visible = xlSheetHidden
End With
Next Ws

pour démasquer :
Code:
For Each Ws In ActiveWorkbook.Sheets
Ws.Visible = xlSheetVisible
Next Ws

Cordialement
 
Re : Protection de feuilles nouvelles

Bonsoir cj welch, BERRACHED said, le Forum,

Pour ma part, je n'ai pas lu qu'il convenait de masquer ou démasquer les feuilles, mais de les verrouiller... 😉

Pour protéger la Feuil1 :
Code:
Sheets("Feuil1").Protect
Et pour la protéger avec un mot de passe :
Code:
Sheets("Feuil1").Protect Password:="MotDePasse"
Cordialement,
 
Re : Protection de feuilles nouvelles

salut cj welch, myDearFriend,Said

le code de myDearFriend protège la feuille nommée Feuil1

le code de Said masque tous les feuillets sélectionnés (selectedsheets)

Le code ci-dessous protège toutes les feuilles du fichier qu'elles soient visibles ou non

Sub test()
Dim ws As Worksheet
For Each ws In Sheets
ws.Protect Password:="toto"
Next ws
End Sub

pour déprotéger, juste remplacer ws.Protect Password:="toto" par ws.unProtect Password:="toto"
a+
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
3
Affichages
880
M
  • Question Question
Réponses
5
Affichages
935
Y
  • Question Question
Réponses
10
Affichages
7 K
YasinGS
Y
Retour