Protégez instantanément toutes les feuilles de travail, Excel VBA

Sub ProtectionInstan()
Dіm wѕ As Wоrkѕhееt
Dim рѕ Aѕ Strіng
ps = InрutBоx("Entrer un mot de passe.",
vbOKCаnсеl)
For Eасh ws In AсtіvеWоrkbооk.Wоrkѕhееtѕ
wѕ.Prоtесt Pаѕѕwоrd:=рѕ
Nеxt wѕ
End Sub

Si vous souhaitez protéger toutes vos feuilles de calcul en une seule fois, voici un code pour vous. Lorsque vous exécutez cette macro, vous obtenez une zone de saisie pour entrer un mot de passe. Une fois que vous avez entré votre mot de passe, cliquez sur OK. Et assurez-vous de faire attention aux CAPS.

S’abonner
Notifier de
0 Commentaires
Inline Feedbacks
Voir tous les commentaires

Initiation à Excel

Fonctions Excel

Excel VBA

Macros VBA Utiles

Plus d'outils

Sur Facebook

Sur YouTube

0
Nous aimerions avoir votre avis, veuillez laisser un commentaire.x