Bonjour à tous et évidement à toutes
J’ai fait un fichier assez complexe (du moins pour moi…) qui contient plein de données, de tableaux, de macros de formules etc. Tout cela se trouve logé dans la même feuille intitulée « ACCEUIL », dans un fichier appelé « SV518A » Ce fichier nous permet de trouver parmi 2850 lignes laquelle correspond aux critères choisis soit la ville, la rue et le no civique. On obtient la section de vote correspondante à cette tranche d’adresse
Tout fonctionne très bien, sauf que je voudrai ajouter un autre élément afin de protéger mon fichier contre toutes modifications. J’aimerai donc pouvoir installer une protection sur cette feuille, mais pour que les macros fonctionnent, soit celle ChercheSV et Nouvelle_recherche, il faut qu’au début de ces macros on puisse enlever la protection en utilisant le mot de passe « mdp518 », exécuter les diverses étapes de cette macro et à la fin remettre la protection avec le même mot de passe.
J’ai bien vu dans les archives une question semblable, mais je n’arrive pas à adapter le tout dans ma macro.
https://www.excel-downloads.com/threads/vba-macros-et-protection-de-la-feuille.175219/
Mon fichier est trop volumineux pour le transmettre via le forum, donc voici la macro ChercheSV.
Sub ChercheSV()
'
' ChercheSV Macro
'
'
Application.ScreenUpdating = False
Range("AM101").Select
Selection.Copy
ActiveSheet.Paste
ActiveSheet.Range("$AA$100:$AM$2950").AutoFilter Field:=13, Criteria1:="1"
Range("AF100").Select
Selection.End(xlDown).Select
Selection.Copy
Range("AF2953").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveSheet.Paste
Application.Goto Reference:="Debut"
Range("D5").Select
Application.ScreenUpdating = True
End Sub
===============
Un peu d’aide SVP et merci
J’ai fait un fichier assez complexe (du moins pour moi…) qui contient plein de données, de tableaux, de macros de formules etc. Tout cela se trouve logé dans la même feuille intitulée « ACCEUIL », dans un fichier appelé « SV518A » Ce fichier nous permet de trouver parmi 2850 lignes laquelle correspond aux critères choisis soit la ville, la rue et le no civique. On obtient la section de vote correspondante à cette tranche d’adresse
Tout fonctionne très bien, sauf que je voudrai ajouter un autre élément afin de protéger mon fichier contre toutes modifications. J’aimerai donc pouvoir installer une protection sur cette feuille, mais pour que les macros fonctionnent, soit celle ChercheSV et Nouvelle_recherche, il faut qu’au début de ces macros on puisse enlever la protection en utilisant le mot de passe « mdp518 », exécuter les diverses étapes de cette macro et à la fin remettre la protection avec le même mot de passe.
J’ai bien vu dans les archives une question semblable, mais je n’arrive pas à adapter le tout dans ma macro.
https://www.excel-downloads.com/threads/vba-macros-et-protection-de-la-feuille.175219/
Mon fichier est trop volumineux pour le transmettre via le forum, donc voici la macro ChercheSV.
Sub ChercheSV()
'
' ChercheSV Macro
'
'
Application.ScreenUpdating = False
Range("AM101").Select
Selection.Copy
ActiveSheet.Paste
ActiveSheet.Range("$AA$100:$AM$2950").AutoFilter Field:=13, Criteria1:="1"
Range("AF100").Select
Selection.End(xlDown).Select
Selection.Copy
Range("AF2953").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveSheet.Paste
Application.Goto Reference:="Debut"
Range("D5").Select
Application.ScreenUpdating = True
End Sub
===============
Un peu d’aide SVP et merci