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

Signaler
Messages postés
184
Date d'inscription
jeudi 23 août 2012
Statut
Membre
Dernière intervention
6 juillet 2020
-
Messages postés
184
Date d'inscription
jeudi 23 août 2012
Statut
Membre
Dernière intervention
6 juillet 2020
-
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

1 réponse

Messages postés
2028
Date d'inscription
lundi 2 juillet 2018
Statut
Membre
Dernière intervention
14 août 2020
326
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
Messages postés
184
Date d'inscription
jeudi 23 août 2012
Statut
Membre
Dernière intervention
6 juillet 2020
2
Merci JCB40 !
Bien cordialement,