Code VBA Protection
Résolu
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
1 réponse
-
ContributeurBonjour
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-
-
Contributeur@nihcocVoila 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 -
@Vauclusej'ai installé la macro et ça plante , je ne comprend pas ?
-
Contributeuré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+ -
@VaucluseJ'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
-
