salut
je voudrais mettre un mot de passe sur ma feuille, mais avec , Unprotect pas
de prob il me demande le mot de passe , si j'utilise ensuite Protect il ne
me demande plus rien, comment faire pour qu'il me demande de nouveau le mot
de passe
peut on par le code avec un bouton, retirer une protection avec mot de passe
et la remettre automatiquement ensuite en fin de macro
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Philippe.R
Bonsoir Gérard,
Sub prot() ' MPFE le 04/12/2003 par Philippe Raulet' 'protège le classeur Dim pASs As String ActiveWorkbook.Protect Structure:=True, Windows:úlse pASs = InputBox("Mot de passe ?") If pASs = "zaza" Then ThisWorkbook.Save Else Exit Sub End If End Sub
pourrait peut être servir de base ?
-- Amicales Salutations
Retirer A_S_ pour répondre. XL97 / XL2002
"gerard v" a écrit dans le message de news:bqntib$lh3$
salut je voudrais mettre un mot de passe sur ma feuille, mais avec , Unprotect pas de prob il me demande le mot de passe , si j'utilise ensuite Protect il ne me demande plus rien, comment faire pour qu'il me demande de nouveau le mot de passe
peut on par le code avec un bouton, retirer une protection avec mot de passe et la remettre automatiquement ensuite en fin de macro
merci
Bonsoir Gérard,
Sub prot()
' MPFE le 04/12/2003 par Philippe Raulet'
'protège le classeur
Dim pASs As String
ActiveWorkbook.Protect Structure:=True, Windows:úlse
pASs = InputBox("Mot de passe ?")
If pASs = "zaza" Then
ThisWorkbook.Save
Else
Exit Sub
End If
End Sub
"gerard v" <gerard.v@wanadoo.fr> a écrit dans le message de news:bqntib$lh3$1@news-reader3.wanadoo.fr...
salut
je voudrais mettre un mot de passe sur ma feuille, mais avec , Unprotect pas
de prob il me demande le mot de passe , si j'utilise ensuite Protect il ne
me demande plus rien, comment faire pour qu'il me demande de nouveau le mot
de passe
peut on par le code avec un bouton, retirer une protection avec mot de passe
et la remettre automatiquement ensuite en fin de macro
Sub prot() ' MPFE le 04/12/2003 par Philippe Raulet' 'protège le classeur Dim pASs As String ActiveWorkbook.Protect Structure:=True, Windows:úlse pASs = InputBox("Mot de passe ?") If pASs = "zaza" Then ThisWorkbook.Save Else Exit Sub End If End Sub
pourrait peut être servir de base ?
-- Amicales Salutations
Retirer A_S_ pour répondre. XL97 / XL2002
"gerard v" a écrit dans le message de news:bqntib$lh3$
salut je voudrais mettre un mot de passe sur ma feuille, mais avec , Unprotect pas de prob il me demande le mot de passe , si j'utilise ensuite Protect il ne me demande plus rien, comment faire pour qu'il me demande de nouveau le mot de passe
peut on par le code avec un bouton, retirer une protection avec mot de passe et la remettre automatiquement ensuite en fin de macro
