XL 2019 vba impossible feuille protégée

Quicksland

XLDnaute Occasionnel
Bonjour le forum ;)

Sur mon fichier il est impossible de faire la mise a jour a cause de la protection

Merci pour votre aide 👍

ps si besoin du mot de passe " UPC-LM22"
 

Pièces jointes

  • 1 ASTUCE SIRENE 1.xlsm
    34.5 KB · Affichages: 26

Quicksland

XLDnaute Occasionnel
Voilà, en pièce jointe.

( /!\ ATTENTION, ça change... 😅😂🤣 )
Bonjour TooFatBoy

C'est clair que la ça change tout ... le top !!!

Le seul petit hic c'est au niveau de la remise a zéro du formulaire ...

Avec du recul je préfèrerai qu'il soit dans le fichier de la mise a jour ;)

Si tu as une piste 😜 au cas ou en pj le fichier "mise a jour "

Mais c'est déjà du très bon boulot 👍

je te remercie pour ton aide
 

Pièces jointes

  • MISE A JOUR PIC NIC.xlsm
    65.7 KB · Affichages: 5

TooFatBoy

XLDnaute Barbatruc
Bon, désolé, j'ai pas vraiment pigé quoi tu veux... :(

Tu veux que le bouton "Remise à zéro", qui efface les cellules du premier fichier, soit dans le deuxième fichier ???
T'es vraiment sûr de vouloir ça ?????
 
Dernière édition:

Quicksland

XLDnaute Occasionnel
Bon, désolé, j'ai pas vraiment pigé quoi tu veux... :(

Tu que le bouton "Remise à zéro", qui efface les cellules du premier fichier, soit dans le deuxième fichier ???
T'es vraiment sûr de vouloir ça ?????
C'est exactement ça 👍

Le fichier "mise a jour " incrémente le nom du sandwich et la date du fichier " 1 ASTUCE SIRENE 1"

et le futur bouton dans le fichier " mise a jour " efface les cellules en exemple (juste les cellules modifiable classeur protégées ex ( E11,E12,E13,E15:E16) du fichier
" 1 "ASTUCE SIRENE 1
Merci
 

Quicksland

XLDnaute Occasionnel
Bonjour
Au cas où...
Voici le code que l'on m'avait donné ici (c'est noté :)) pour un fichier qui s'ouvre en supprimant le masquage des données
La macro écrit le MP (totau), fait le travail, puis reprotège le fichier
Si ça peut te servir....

Sub Filter_Removal_But_Keeping_The_AutoFilter()
'
'suppression du fltrage à l'ouverture
'macro de _Thierry sur www.excel-downloads.com
'
Dim WS As Worksheet
Dim MyPassword As String

MyPassword = "totau"

Set WS = ThisWorkbook.Worksheets("Liste")

If WS.AutoFilterMode = True Then
If WS.FilterMode = True Then
WS.Unprotect Password:=MyPassword
WS.ShowAllData
WS.Protect Password:=MyPassword, UserInterfaceOnly:=True, AllowFiltering:=True
End If
End If

End Sub
Bonjour Vadelacaisse

Merci pour ton aide 👍

La solution de TooFatBoy me convient parfaitement ;)
 

Discussions similaires

Statistiques des forums

Discussions
315 098
Messages
2 116 192
Membres
112 679
dernier inscrit
Yupanki