XL 2019 vba impossible feuille protégée

TooFatBoy à dit:

Voilà, en pièce jointe.

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

Cliquez pour agrandir...

Quicksland à dit:

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

Cliquez pour agrandir...

TooFatBoy à dit:

J'essaierai de regarder ça cette nuit. 😉

Cliquez pour agrandir...

TooFatBoy à dit:

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

Cliquez pour agrandir...

vadelacaisse à dit:

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

Cliquez pour agrandir...