Code VBA Protection

Résolu/Fermé

nihcoc Messages postés 192 Date d'inscription dimanche 9 mars 2014 Statut Membre Dernière intervention 28 février 2023 - 24 mars 2017 à 07:40
nihcoc Messages postés 192 Date d'inscription dimanche 9 mars 2014 Statut Membre Dernière intervention 28 février 2023 - 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

A voir également:

Code VBA Protection
Code asci - Guide
Code puk bloqué - Guide
Code telephone oublié - Guide
Code activation windows 10 - Guide
Code gta 4 ps4 - Guide

1 réponse

Réponse 1 / 1

Vaucluse Messages postés 26496 Date d'inscription lundi 23 juillet 2007 Statut Contributeur Dernière intervention 1 avril 2022 6 421
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

nihcoc Messages postés 192 Date d'inscription dimanche 9 mars 2014 Statut Membre Dernière intervention 28 février 2023 5
24 mars 2017 à 10:06

j'ai fait une macro en automatique ,mais le filtre reste verouillé
A+

Vaucluse Messages postés 26496 Date d'inscription lundi 23 juillet 2007 Statut Contributeur Dernière intervention 1 avril 2022 6 421 > nihcoc Messages postés 192 Date d'inscription dimanche 9 mars 2014 Statut Membre Dernière intervention 28 février 2023
Modifié le 24 mars 2017 à 10:32

Voila ce que ça donne chez moi, et le filtre reste ouvert

Sub protege()

Sheets("Feuil1").Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _
, AllowFiltering:=True
ActiveSheet.EnableSelection = xlNoSelection
End Sub

crdlmnt

nihcoc Messages postés 192 Date d'inscription dimanche 9 mars 2014 Statut Membre Dernière intervention 28 février 2023 5 > Vaucluse Messages postés 26496 Date d'inscription lundi 23 juillet 2007 Statut Contributeur Dernière intervention 1 avril 2022
24 mars 2017 à 13:44

j'ai installé la macro et ça plante , je ne comprend pas ?

Vaucluse Messages postés 26496 Date d'inscription lundi 23 juillet 2007 Statut Contributeur Dernière intervention 1 avril 2022 6 421
24 mars 2017 à 13:52

éh bé moi non plus vu que chez moi ça fonctionne
si vous pouvez déposer un modèle ici:
https://mon-partage.fr
et revenez coller le lien créé sur les ite
a+

J'ai réussi a bidouiller un code qui protège les cellules avec des formules,qui protège les
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

Discussions similaires

Code de renvoi d'appel : Ooredo, Mobilis...

sertissage des cables rj45

Méthode find dans VBA - Recherche de données sous Excel

Réinitialisation d'un téléphone mobile chinois avec touche