Microsoft 365 Protection de la feuille excel specifique apres fermeture-reouverture

[vby]

Bonjour Cher réseau,

Je viens à peine de m'inscrire et je suis tout nouveau dans le VBA.

Je suis sur un projet où chacune de mes feuilles du classeur est protégée par un mot pour modification. Je voudrais que lorsque j'ôte la protection pour modification et que je ferme le fichier sans besoin de mettre la protection, qu'à la réouverture du classeur à l'emplacement de la feuille il me redemande le mot de passe pour modification.
Je voudrais rendre ce processus automatique.

Merci d'avance !

 

[sylvanu]

Bonsoir Vby, et bienvenu sur XLD,
Une possibilité, à mettre impérativement dans ThisWorkbook :

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    ' Modifier nom de la feuille à protéger et le mot de passe
     Sheets("Feuil1").Protect Password:="1234"
     ThisWorkbook.Save
End Sub

 

[vby]

Merci beaucoup Sylvanu pour la promptitude.

Je teste et je reviens.

 

[vby]

Bonsoir Vby, et bienvenu sur XLD,
Une possibilité, à mettre impérativement dans ThisWorkbook :

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    ' Modifier nom de la feuille à protéger et le mot de passe
     Sheets("Feuil1").Protect Password:="1234"
     ThisWorkbook.Save
End Sub

Génial, ca marche. Merci beaucoup !

 

[vby]

Encore une dernière question svp !
Est ce qu'il possible d'empêcher le filtre automatique de la feuille même si la protection est ôtée ?

 

[GALOUGALOU]

bonsoir le forum, bonsoir sylvanu
re vby
par vba, dans l'événement feuille mettre ce code, il ne sera plus possible de se servir du filtre automatique

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 If ActiveSheet.AutoFilterMode = True Then ActiveSheet.AutoFilterMode = False
End Sub

cdt
galougalou

 

[vby]

bonsoir le forum, bonsoir sylvanu
re vby
par vba, dans l'événement feuille mettre ce code, il ne sera plus possible de se servir du filtre automatique

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 If ActiveSheet.AutoFilterMode = True Then ActiveSheet.AutoFilterMode = False
End Sub

cdt
galougalou

Merci galoukou,

Ca ne marche pas. L'idée que j'avais derrière est d'empêcher le Tri ( PAS LE FILTRE) des cellules même si la protection est ôtée.

Merci encore !

 

[sylvanu]

Bonjour Galougalou, Vby,
Je ne sais pas si cela est possible d'interdire le tri.
La seule solution que je connaisse est de déverrouiller toutes les cellules accessibles puis de protéger la feuille en autorisant le filtrage mais pas le tri.
Voir cet exemple :

Verrouillage Tri sans bloquer la fonction filtre

Bonjour, Je viens vers vous car j'ai un problème qui me tracasse la tête...:mad::mad: j'ai besoin de l'aide de génies expérimenté(e)s. Voici mon problème, j'ai un tableau de 3 colonnes avec 1000 lignes. Colonne 1 : Numéro magasin Colonne 2 : Nom du magasin Colonne 3 : Fermeture...

www.excel-downloads.com

 

[vby]

Merci beaucoup Sylvanu. ton code m'a beaucoup aidé :

Private Sub Workbook_BeforeClose(Cancel As Boolean)
' Modifier nom de la feuille à protéger et le mot de passe
Sheets("Feuil1").Protect Password:="1234"
ThisWorkbook.Save
End Sub

Mon souci et, comme c'est un document partagé avec d'autres collègues, j'ai remarqué que lorsque je leur donne le mot de passe, ils peuvent ôter la protection pour apporter des modifications mais en retour ils peuvent aussi changer le mot de passe et c'est ca exactement que je ne veux pas.

Je veux juste qu'ils puissent, seulement quelques uns, ôter la protection et apporter des modifications à la feuille, mais en retour qu'ils ne puissent pas changer le mot de passe et qu'à la fermeture du fichier que mon mot de passe soit le seul de rigueur.

Merci encore pour vos contributions, je suis bien en Excel mais très novice en vba !

 

[sylvanu]

Bonjour Vby,
Le seul moyen que j'entrevois est d'utiliser un bouton sur la feuille avec une macro.
On gère un mot de passe "invité" par le bouton qui appelle un userform et un mot de passe "admin" par la macro Workbook_BeforeClose. De plus le mot de passe invité n'est pas modifiable. ( sauf à bidouiller le VBA évidemment )
En PJ une maquette avec dans l'userform :

Private Sub CommandButton1_Click()
    If mdp = "invité" Then
        Sheets("Feuil1").Unprotect Password:="admin"
        Unload DemandeMdp
    Else
        mdp = ""
    End If
End Sub

 

[vby]

Bonjour sylvanu

Je vais essayer, je ne suis trop calé. Merci.

 

[vby]

Bonjour Sylvanu,

Depuis j'ai essayé de reproduire ton modèle qui m'arrangerait bien mais je n'arrive pas à faire lier le bouton de commande à l'affichage d'entrée du mot de passe

 

[vby]

Bonjour Sylvanu,

Depuis j'ai essayé de reproduire ton modèle qui m'arrangerait bien mais je n'arrive pas à faire lier le bouton de commande à l'affichage d'entrée du mot de passe

 

[sylvanu]

Bonjour,
Le plus simple est de mettre un dessin ou une forme sur la feuille, vous la cliquez et faites clic droit et "Affecter une macro", et vous sélectionnez PWD.mdp.
ou avec votre fichier, vous vous mettez en onglet Développeur/Mode création. Vous faites double clic sur votre bouton et renseignez la macro avec UserForm1.Show; ( 2eme PJ )

 

[vby]

Mille merci Sylvanu, je viens de le reproduire dans mon projet et ca marche.

Encore merci !