Sujet Précédent Sujet Suivant

Excel VBA : Protection et Deprotection d'une feuille

Fermé
Jovial - 27 mars 2021 à 19:41
PHILOU10120 Messages postés 6393 Date d'inscription lundi 16 avril 2012 Statut Contributeur Dernière intervention 9 octobre 2024 - 29 mars 2021 à 14:03
Bonjour les meilleurs,

Je cherche, au début de l'exécution de mon code, enlever la protection de ma feuille et, à la fin de l'exécution de celui-ci, remettre la protection.

Le bout de code "activesheet.unprotect" et "activesheet.protect" m'offre une possibilité très limitée puisque je souhaiterais aussi, à la protection :
1. Affecter un password
2. Autoriser le Tri et Filtre.

Merci d'avance
A voir également:

3 réponses

Réponse 1 / 3
eriiic Messages postés 24600 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 21 octobre 2024 7 239
27 mars 2021 à 22:16
Bonjour,

met-toi en enregistrement de macro, fais les opérations, et tu auras 99% du code.
eric
0
Réponse 2 / 3
Jovial
28 mars 2021 à 14:57
Bonjour et merci les précieuses orientations. J'en prends bonne note.
0
Réponse 3 / 3
PHILOU10120 Messages postés 6393 Date d'inscription lundi 16 avril 2012 Statut Contributeur Dernière intervention 9 octobre 2024 810
29 mars 2021 à 14:03
Bonjour Jovial

Une idée avec le droit à trois essais :
______________________________________________________________________________________
Public varMotDePasse As String
Public varNumTentatives As Byte
__________________________________________
Sub ControleMotDePasse(MotDePasse As String, NumTentatives As Byte)
varMotDePasse = MotDePasse
varNumTentatives = NumTentatives
fmMotDePasse.Show
End Sub
_______________________________________________________________________________________
Sub TestControleMotDePasse()
Dim mavar As String
Call ControleMotDePasse("PhC123", 1)
mavar = Application.UserName
MsgBox "Mot de passe correct." & vbCr & "Poursuite de l'exécution.", vbOKOnly + vbInformation
End Sub
__________________________________________________________________________________________

Sub nom de la macro()


Sheets("NOM FEUILLE").Select
'Oter la protection
ActiveSheet.Unprotect Password:="PhC123"
'fige l'écran
Application.ScreenUpdating = False
'affiche un message dans la barre de statut
Application.StatusBar = "patience S.V.P. traitement en cours ... "

VOTRE MACRO



'Mettre la protection
ActiveSheet.Protect "PhC123"
'libère l'écran
Application.ScreenUpdating = True
'efface le message dans la barre de staut
Application.StatusBar = False

End Sub

0