A voir également:
- Clôturer une base de données
- Formules excel de base - Guide
- La base de données de sécurité du serveur n'a pas de compte d'ordinateur pour la relation ✓ - Forum Réseau
- Désolé l'utilisation de la base de données a expiré epic games - Forum Jeux vidéo
- Supprimer une base de données phpmyadmin ✓ - Forum Logiciels
- Afficher les tables d'une base de données sql ✓ - Forum Programmation
4 réponses
Raymond PENTIER
Messages postés
58669
Date d'inscription
lundi 13 août 2007
Statut
Contributeur
Dernière intervention
27 septembre 2024
17 203
14 août 2019 à 16:46
14 août 2019 à 16:46
Bonjour.
Pourquoi un bouton VBA ?
Il suffit de protéger ou de chiffrer le classeur ...
cs_Le Pivert
Messages postés
7904
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
14 août 2024
729
14 août 2019 à 17:35
14 août 2019 à 17:35
Bonjour,
a mettre dans ThisWorkbook:
a mettre dans ThisWorkbook:
Option Explicit Private Sub Workbook_BeforeClose(Cancel As Boolean) chiffrer End Sub Sub chiffrer() 'adapter le mot de passe ActiveWorkbook.SaveAs ThisWorkbook.Path & "\" & ThisWorkbook.Name, FileFormat:=xlOpenXMLWorkbookMacroEnabled, _ Password:="azerty", WriteResPassword:="azerty", ReadOnlyRecommended:=False, _ CreateBackup:=False End Sub
cs_Le Pivert
Messages postés
7904
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
14 août 2024
729
Modifié le 14 août 2019 à 18:44
Modifié le 14 août 2019 à 18:44
en protégeant les feuilles:
il n'est pas demandé de mot de passe, il suffit de cliquer dans le ruban: Ôter la protection de la feuille pour y avoir accès!
Sinon mettre un mot de passe
@+
Option Explicit Private Sub Workbook_BeforeClose(Cancel As Boolean) proteger End Sub Sub proteger() 'Déclare la variable objet Worksheet Dim Ws As Worksheet 'Boucle sur toutes les feuille de calcul du classeur. Les onglets graphiques ne sont pas pris 'en compte. 'ThisWorkbook correspond à l'objet classeur contenant la macro For Each Ws In ThisWorkbook.Worksheets 'protege toutes les feuilles Ws.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True Next Ws End Sub
il n'est pas demandé de mot de passe, il suffit de cliquer dans le ruban: Ôter la protection de la feuille pour y avoir accès!
Sinon mettre un mot de passe
Ws.Protect Password:="azerty", AllowFiltering:=True
@+