XL 2019 vba impossible feuille protégée

[Quicksland]

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"

 

[TooFatBoy]

si tu peux me le mettre dans le code et me refiler le fichier 😉

Voilà, en pièce jointe.

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

 

[Quicksland]

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

 

[TooFatBoy]

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

J'essaierai de regarder ça cette nuit. 😉

 

[Quicksland]

J'essaierai de regarder ça cette nuit. 😉

Ok pas de soucis 😉
juste les cellules modifiable classeur protégées ex ( E11,E12,E13,E15:E16)

bonne soirée

Merci

 

[TooFatBoy]

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 ?????

 

[Quicksland]

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]

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 😉