Code VBA Protection
Résolu/Fermé
nihcoc
Messages postés
193
Date d'inscription
dimanche 9 mars 2014
Statut
Membre
Dernière intervention
22 mars 2025
-
24 mars 2017 à 07:40
nihcoc Messages postés 193 Date d'inscription dimanche 9 mars 2014 Statut Membre Dernière intervention 22 mars 2025 - 24 mars 2017 à 14:22
nihcoc Messages postés 193 Date d'inscription dimanche 9 mars 2014 Statut Membre Dernière intervention 22 mars 2025 - 24 mars 2017 à 14:22
Bonjour a tous, Je cherche a écrire un code vba qui pourrait protéger les formules et le texte déja écris dans un classeur quelconque tout en déverouillant les filtres automatiques,sans code d'accès (avec excel 2000) .
D'avance Merci
D'avance Merci
A voir également:
- Code VBA Protection
- Le code ascii - Guide
- Code puk bloqué - Guide
- Code activation windows 10 - Guide
- Code telephone oublié - Guide
- Code gta 4 ps4 - Guide
1 réponse
Vaucluse
Messages postés
26496
Date d'inscription
lundi 23 juillet 2007
Statut
Contributeur
Dernière intervention
1 avril 2022
6 430
24 mars 2017 à 09:21
24 mars 2017 à 09:21
Bonjour
petit conseil d'un nul en VBA:
créez une macro par enregistrement en protégeant la feuille et en cochant les options dont vous avez besoin dans la liste proposée.
vous aurez ainsi le libellé que vous cherchez pour le coller dans votre macro
crdlmnt
petit conseil d'un nul en VBA:
créez une macro par enregistrement en protégeant la feuille et en cochant les options dont vous avez besoin dans la liste proposée.
vous aurez ainsi le libellé que vous cherchez pour le coller dans votre macro
crdlmnt
24 mars 2017 à 10:06
A+
Modifié le 24 mars 2017 à 10:32
Sub protege()
Sheets("Feuil1").Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _
, AllowFiltering:=True
ActiveSheet.EnableSelection = xlNoSelection
End Sub
crdlmnt
24 mars 2017 à 13:44
24 mars 2017 à 13:52
si vous pouvez déposer un modèle ici:
https://mon-partage.fr
et revenez coller le lien créé sur les ite
a+
24 mars 2017 à 14:22
formes automatiques,qui déprotège les filtres , par contre il ne protège pas les cellules contenant du texte
Sub Macro1()
ActiveSheet.Protect userInterfaceOnly:=True
ActiveSheet.EnableAutoFilter = True
ActiveWorkbook.Protect Structure:=True, Windows:=True
'Range("H7").Select
End Sub