Bonjour,
Voilà, je souhaiterais écrire une procédure macro qui me permette de rendre
inaccessible une feuille avec demande de mot de passe.
Merci pour le coup de pouce,
Michel,
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
Julien
Bonjour Michir,
Voici un exemple. Le code est 123456
Cela te convient-il ?
Julien
'---------------------------------------------------------------- Sub AfficherFeuilleCachee() Dim Code As String Code = InputBox("", "Code ?") If Code = "123456" Then ActiveWorkbook.Sheets("FeuilleCachée").Visible = True ActiveWorkbook.Sheets("FeuilleCachée").Activate Else MsgBox "Code incorrect ! ", vbOKOnly + vbCritical, "" End If End Sub '----------------------------------------------------------------
"michir" a écrit dans le message de news: 4191f7dc$0$18542$
Bonjour, Voilà, je souhaiterais écrire une procédure macro qui me permette de rendre inaccessible une feuille avec demande de mot de passe. Merci pour le coup de pouce, Michel,
Bonjour Michir,
Voici un exemple. Le code est 123456
Cela te convient-il ?
Julien
'----------------------------------------------------------------
Sub AfficherFeuilleCachee()
Dim Code As String
Code = InputBox("", "Code ?")
If Code = "123456" Then
ActiveWorkbook.Sheets("FeuilleCachée").Visible = True
ActiveWorkbook.Sheets("FeuilleCachée").Activate
Else
MsgBox "Code incorrect ! ", vbOKOnly + vbCritical, ""
End If
End Sub
'----------------------------------------------------------------
"michir" <michir1789@wanadoo.fr> a écrit dans le message de news:
4191f7dc$0$18542$8fcfb975@news.wanadoo.fr...
Bonjour,
Voilà, je souhaiterais écrire une procédure macro qui me permette de
rendre
inaccessible une feuille avec demande de mot de passe.
Merci pour le coup de pouce,
Michel,
'---------------------------------------------------------------- Sub AfficherFeuilleCachee() Dim Code As String Code = InputBox("", "Code ?") If Code = "123456" Then ActiveWorkbook.Sheets("FeuilleCachée").Visible = True ActiveWorkbook.Sheets("FeuilleCachée").Activate Else MsgBox "Code incorrect ! ", vbOKOnly + vbCritical, "" End If End Sub '----------------------------------------------------------------
"michir" a écrit dans le message de news: 4191f7dc$0$18542$
Bonjour, Voilà, je souhaiterais écrire une procédure macro qui me permette de rendre inaccessible une feuille avec demande de mot de passe. Merci pour le coup de pouce, Michel,
michir
Merci Julien cela fonctionne parfaitement
Michel,
"Julien" a écrit dans le message de news: e#$
Bonjour Michir,
Voici un exemple. Le code est 123456
Cela te convient-il ?
Julien
'---------------------------------------------------------------- Sub AfficherFeuilleCachee() Dim Code As String Code = InputBox("", "Code ?") If Code = "123456" Then ActiveWorkbook.Sheets("FeuilleCachée").Visible = True ActiveWorkbook.Sheets("FeuilleCachée").Activate Else MsgBox "Code incorrect ! ", vbOKOnly + vbCritical, "" End If End Sub '----------------------------------------------------------------
"michir" a écrit dans le message de news: 4191f7dc$0$18542$
Bonjour, Voilà, je souhaiterais écrire une procédure macro qui me permette de rendre inaccessible une feuille avec demande de mot de passe. Merci pour le coup de pouce, Michel,
Merci Julien cela fonctionne parfaitement
Michel,
"Julien" <oniros_@_hotmial.com> a écrit dans le message de news:
e#$E1AzxEHA.2568@TK2MSFTNGP10.phx.gbl...
Bonjour Michir,
Voici un exemple. Le code est 123456
Cela te convient-il ?
Julien
'----------------------------------------------------------------
Sub AfficherFeuilleCachee()
Dim Code As String
Code = InputBox("", "Code ?")
If Code = "123456" Then
ActiveWorkbook.Sheets("FeuilleCachée").Visible = True
ActiveWorkbook.Sheets("FeuilleCachée").Activate
Else
MsgBox "Code incorrect ! ", vbOKOnly + vbCritical, ""
End If
End Sub
'----------------------------------------------------------------
"michir" <michir1789@wanadoo.fr> a écrit dans le message de news:
4191f7dc$0$18542$8fcfb975@news.wanadoo.fr...
Bonjour,
Voilà, je souhaiterais écrire une procédure macro qui me permette de
rendre
inaccessible une feuille avec demande de mot de passe.
Merci pour le coup de pouce,
Michel,
'---------------------------------------------------------------- Sub AfficherFeuilleCachee() Dim Code As String Code = InputBox("", "Code ?") If Code = "123456" Then ActiveWorkbook.Sheets("FeuilleCachée").Visible = True ActiveWorkbook.Sheets("FeuilleCachée").Activate Else MsgBox "Code incorrect ! ", vbOKOnly + vbCritical, "" End If End Sub '----------------------------------------------------------------
"michir" a écrit dans le message de news: 4191f7dc$0$18542$
Bonjour, Voilà, je souhaiterais écrire une procédure macro qui me permette de rendre inaccessible une feuille avec demande de mot de passe. Merci pour le coup de pouce, Michel,