Sauvegarde feuille vers nouveau classeur avec mot de passe lecture écriture [Résolu]

Messages postés
122
Date d'inscription
jeudi 23 août 2012
Statut
Membre
Dernière intervention
11 septembre 2019
- - Dernière réponse : PYGOS69
Messages postés
122
Date d'inscription
jeudi 23 août 2012
Statut
Membre
Dernière intervention
11 septembre 2019
- 11 sept. 2019 à 15:18
Bonjour,

Je souhaite sauvegarder une feuille ver 1 nouveau classeur avec mot de passe.

Protection lecture écriture

Voici le code que j'utilise :

Dim Chemin2 As String 'Variable chemin pour sauvegarde
'
Chemin2 = "H:\DIR\25-commun\SERVICE\SAUVEGARDE DEMANDE DE SOUTIEN\" ' Indication du chemin pour sauvegarde

APPLICATION.DisplayAlerts = False

With ActiveWorkbook
.SaveAs Filename:=Chemin2 & ThisWorkbook.Sheets("Accueil").Range("b9") & " " & Format(Now, "yy-mm-dd hh_mm_ss")
APPLICATION.DisplayAlerts = False

.Close

End With
'
ActiveWorkbook.Save ' sauvegarde automatique
Sheets("Demande de soutien").Visible = False
Sheets("Demande de soutien").Visible = xlVeryHidden
APPLICATION.DisplayAlerts = True

Je souhaite rajouter la protection en lecture écriture avec mot de passe "Toto", par exemple.

Merci d'avance

Configuration: Windows / Internet Explorer 11.0
Afficher la suite 

1 réponse

Messages postés
997
Date d'inscription
lundi 2 juillet 2018
Statut
Membre
Dernière intervention
12 septembre 2019
116
0
Merci
Bonjour

ActiveWorkbook.Save ' sauvegarde automatique
Sheets("Demande de soutien").Visible = False
Sheets("Demande de soutien").Visible = xlVeryHidden
APPLICATION.DisplayAlerts = True

A rajouter
ActiveSheet.Protect "Toto"

Cordialement
PYGOS69
Messages postés
122
Date d'inscription
jeudi 23 août 2012
Statut
Membre
Dernière intervention
11 septembre 2019
2 -
Merci JCB40 !
Bien cordialement,
Commenter la réponse de JCB40