Code VBA Protection

Résolu

nihcoc Messages postés 193 Date d'inscription Statut Membre Dernière intervention -
nihcoc Messages postés 193 Date d'inscription Statut Membre Dernière intervention - 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 ascii - Guide
Code puk bloqué - Guide
Code deverouillage telephone perdu - Guide
Code activation windows 10 - Guide
Code blocks - Télécharger - Langages

1 réponse

Réponse 1 / 1

Vaucluse Messages postés 26496 Date d'inscription Statut Contributeur Dernière intervention 6 434

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 193 Date d'inscription Statut Membre Dernière intervention 5

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

Vaucluse Messages postés 26496 Date d'inscription Statut Contributeur Dernière intervention 6 434 > nihcoc Messages postés 193 Date d'inscription Statut Membre Dernière intervention

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 193 Date d'inscription Statut Membre Dernière intervention 5 > Vaucluse Messages postés 26496 Date d'inscription Statut Contributeur Dernière intervention

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

Vaucluse Messages postés 26496 Date d'inscription Statut Contributeur Dernière intervention 6 434

é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+

nihcoc Messages postés 193 Date d'inscription Statut Membre Dernière intervention 5 > Vaucluse Messages postés 26496 Date d'inscription Statut Contributeur Dernière intervention

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

sertissage des cables rj45

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

Votre réponse

Discussions similaires