mot de passe

[Evelyne]

re bonsoir les forumistes !!(c'est pas trop beau comme nom;non !)

j'ai due mal redigée ma question,

Est-il possible de limiter l'accés d'une feuil de classeur par un mot de passe
merci

Evelyne

 

[Jean-Marc]

Bonjour

voici une macro à insérer dans ThisWorkbook

Option Explicit
Private Const MOTPASSE As String = "advance"


Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Dim reponse$
If Sh.CodeName = "Feuil1" Then
ActiveWindow.Visible = False
reponse$ = Application.InputBox _
(prompt:="Veuillez entrer votre mot de passe.", _
Type:=2)
If reponse$ <> MOTPASSE Then
Application.EnableEvents = False
Sheets(OldSheet).Activate
Application.EnableEvents = True
End If
Else
OldSheet = ActiveSheet.CodeName
End If
Windows(1).Visible = True
End Sub

Salutations

Jean-Marc

 

[@Christophe@]

Bonsoir

Evelyne, voici un petit fichier mots de passe avec plusieur utilisateur possible, et possibilité de geré le tous sous Administrateur.

Bonne soirée

@Christophe@

 

[Evelyne]

pour jean-marc tout d'abord merci !

j'ai copiée la macro dans un classeur vierge et apparement ça bloque sur "oldsheet"???
j'ai essayée pa mal de modif mais en vain

pour chrystophe , merci egalement
je telecharge
a +

evelyne

 

[Fredrennes]

Pourquoi ne pas tout simplement insérer un mot de passe au moment du "save as" ?

Qd nous cliquons sur "enregistrer sous", l'encart grisé apparait....sur cet encart, en haut à droite, vous allez dans outils puis options générales et là, vous pouvez insérer un mot de passe pour accéder au fichier ou bien pour le modifier par ex....

Peut-être ai-je mal compris la question mais sinon, c'est assez simple de la sorte.

Amicalement
Fred

 

[evelyne]

bonjour Fredrennes
non non le mot de passe que je voudrais intaller n'est pas pour empecher l'ouverture du classeur , mais une fois ouvert ,empecher l'acces a un onglet
sauf par le passage du mot de passe
a +
Evelyne

 

[jpierre]

Salut a tous,

Le probleme de mettre un mot de passe n'est pas entierement viable , car il suffit que je desactive les macros et j'accede à tou tes les feuilles.

J'ai résolu le probleme en contournant cette demande d'acceptation

Si la personne n'accepte pas les macro, elle est dirigé vers un feuille qui qui lui demande d'accepter les macros pour avoir accés aux diverses feuilles.

Sheets(1).Visible = True (feuille avec demande acceptation macro)

Autres feuilles : Sheets(i).Visible = xlVeryHidden

de plus, je desactive les commandes et passe en mode plein ecran
'Application.CommandBars(1).Enabled = False
'Application.DisplayFullScreen = True



a +

JPIERRE