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

Afficher la suite

1 réponse

Réponse 1 / 1
Vaucluse Messages postés 27336 Date d'inscription Statut Contributeur Dernière intervention 6 453

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
0
1. 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+
  
  0
  1. Vaucluse Messages postés 27336 Date d'inscription Statut Contributeur Dernière intervention 6 453 > 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
    
    0
  2. nihcoc Messages postés 193 Date d'inscription Statut Membre Dernière intervention 5 > Vaucluse Messages postés 27336 Date d'inscription Statut Contributeur Dernière intervention
    
    j'ai installé la macro et ça plante , je ne comprend pas ?
    
    0
2. Vaucluse Messages postés 27336 Date d'inscription Statut Contributeur Dernière intervention 6 453
  
  é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+
  
  0
  1. nihcoc Messages postés 193 Date d'inscription Statut Membre Dernière intervention 5 > Vaucluse Messages postés 27336 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
    
    0

Code VBA Protection

1 réponse

Discussions similaires

Newsletters