Protection à la fermeture.

[Moulinois]

Bonjour,

J'ai changé le corps mais le titre est resté le même. J'en suis désolé.

Je voudrais lancer une macro qui, entre autres, protège ma feuille et masque des colonnes (au cas où elles auraient été démasquées) à l'ouverture du fichier.
Elle se lance mais Excel me demande avant si je veux mettre à jour des liaisons.........du coup on peut voir les colonnes....


Merci de m'éclairer.

 

[thomlau]

Re : Protection à la fermeture.

Bonjour Moulinois, le forum...

Qu'entends-tu par protection? Enregistrer le fichier avant la fermeture?

Si tel est le cas, voici le code a mettre dans ThisWorkbook :
Private Sub Workbook_Close()

Application.Save

End Sub

A+

 

[thomlau]

Re : Protection à la fermeture.

Oups, j'ai répondu à la question que tu avais écrit avant de la modifier...

Je reviens

A+

 

[Moulinois]

Re : Protection à la fermeture.

Bonjour Moulinois, le forum...

Qu'entends-tu par protection? Enregistrer le fichier avant la fermeture?

Si tel est le cas, voici le code a mettre dans ThisWorkbook :
Private Sub Workbook_Close()

Application.Save

End Sub

A+

Bonjour.

Désolé, j'ai modifié mon premier message entre temps.

Ce que j'entends par "protection", c'est protéger la feuille (avec un mot de passe), pas la sauver.
@+

 

[thomlau]

Re : Protection à la fermeture.

Re

Dans le module1, ce code :

Sub ProtegeTout()
Dim feuil

For Each feuil In Application.Sheets

feuil.Protect Password:="tonmotdepasse", DrawingObjects:=True, Contents:=True, Scenarios:=True _
        , AllowFormattingCells:=True

Next feuil

End Sub

Toujours dans le module1 :

Sub DeprotegeTout()
Dim feuil

For Each feuil In Application.Sheets

feuil.Unprotect Password:="tonmotdepasse"

Next feuil

End Sub

Aussi dans le module1

Sub MasquerColonne()

    Sheets("Feuil1").Select
    Columns("A:B").Select
    Selection.ColumnWidth = 0
    Sheets("Feuil2").Select

End Sub

Dans ThisWorkbook :

Private Sub Workbook_Open()

Application.DisplayAlerts = False
Application.ScreenUpdating = False

    Module1.MasquerColonne
    Module1.ProtegeTout    
    Sheets("Feuil2").Select

Application.ScreenUpdating = True
Application.DisplayAlerts = true
End Sub
Private Sub Workbook_Close()

Application.ScreenUpdating = False

    Module1.MasquerColonne
    Module1.ProtegeTout    
    Sheets("Feuil2").Select

Application.ScreenUpdating = True

End Sub

Avec cet exemple, les feuilles de ton classeur sont protégées à l'ouverure et à la fermeture de l'application. De même pour les colonnes qui sont masquées.

PS : Change le mot de passe dans le code ci-dessus, renomme aussi Feuil 1 et 2 par celles de ton choix.
Tu peux aussi tout déprotéger en éxécutant la macro DeprotegeTout.

Le code des macros de protection et déprotection ont été trouvé sur ce forum.

A bientôt.

 

[Moulinois]

Re : Protection à la fermeture.

C'est ce que j'ai fait mais ça ne fonctionne pas car Excel me demande AVANT D'EXECUTER la Private Sub Workbook_Open() si je veux mettre à jour mes liaisons.

@+

 

[thomlau]

Re : Protection à la fermeture.

Pas besoin de code VBA pour ça...

menu Edition/Liaisons
bouton invite de démarrage
cocher ne pas afficher l'alerte et mettre à jour les liens

(J'ai juste fais une recherche sur les forums)

++

 

[Dull]

Re : Protection à la fermeture.

Salut Moulinois, thomlau, le Forum

Essaye

Outils/Option/Modifications

et décoche "Confirmation de la mise à jour automatique des liens"

Edition: Aieeeee 😛

Bonne Journée

 

[Moulinois]

Re : Protection à la fermeture.

Re,

Parfait, merci à vous deux.