Discussion :

[OLIV420]

Bonjour,

j'aimerais savoir s'il est possible :

1. d'une part que le lancement d'une macro nécessite la saisie d'un mot de passe

2. d'autre part qu'une macro se lance automatiquement à l'ouverture d'un fichier

J'ai une base de données avec des macros associées à des objets sur lesquels l'utilisateur clic, j'aimerais que certaines macros ne puisse être utiliser que par des managers d'où l'idée de demander un mot de passe lors avant l'exécution de la macro.

je précise que je ne connais rien au langage VBA, si vous pouviez m'indiquer avec précision les manipulations et les codes à insérer.

Par avance merci.

[ESVBA]

Oui et Oui...

Exemple de macro nécessitant un mot de passe :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Sub MacroTraitementAdministrateur
   '--- Code à ajouter à toutes les macro existantes
    dim R as string
    R = InputBox ("Votre code d'accès administrateur SVP", "Saisie mot du passe")
    if R<> "BonCode" then Exit Sub           'Ici le mote de passe est BonCode
   '--- Fin du code à ajouter
 
   'Code normal existant
 
End Sub

A force, c'est très pénible pour l'administrateur.


Pour qu'une macro s'éxécute automatiquement, il faut qu'elle se trouve dans "ThisWorkbook" et qu'elle se nomme :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private Sub Workbook_Open()
       'Ici le code à lancer au démarrage
End Sub

Attention, il faut que les macro-commandes soient autorisées au démarrage sinon aucunes macro.

Pour autoriser une macro, il est préférable de demander (INPUTBOX) au démarrage le mot de passe dans "Workbook_Open" puis de placer le jeton (autorisation) dans une variable public. Il suffit de faire le test dans chaque macro. Mais chaque utilisateur (surtout administrateur) doit refermer le fichier.

ESVBA

[PPz78]

Tu peux aussi récupérer le nom de l'utilisateur courant :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
Public Declare Function GetUserName Lib "advapi32.dll" _
Alias "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long
 
 
Sub info()
    MsgBox ReturnDommainUserName & " - " & ReturnUserName
End Sub
 
Function ReturnDommainUserName() As String
' Récupération du User Name
Dim rString As String * 255, sLen As Long, tString As String
    tString = ""
    On Error Resume Next
    sLen = GetUserName(rString, 255)
    sLen = InStr(1, rString, Chr(0))
    If sLen > 0 Then
        tString = Left(rString, sLen - 1)
    Else
        tString = rString
    End If
    On Error GoTo 0
    ReturnDommainUserName = UCase(Trim(tString))
End Function
 
Function ReturnUserName() As String
' Récupération de l'application UserName
    ReturnUserName = Application.UserName
End Function

La suite dépend de la configuration du système informatique

PPz

[ESVBA]

bonjour ppz78,

je précise à OLIV420 se présentant comme un néophyte en VBA que ta solution est plus performante. Mais qu'il faut au minimum un compte Windows pour Administrateur et Autres utilisateurs.

De plus, il faut obliger la fermeture du compte au lancement de l'économiseur d'écran. Option que l'administrateur peut changer (cas limité dans le cas d'une écriture directe de la clé dans le registre lors de l'identification de l'administrateur)

Le fichier est sur réseau ? Il y a encore des utilisations mono compte sur de vieilles machines.


ESVBA

[PPz78]

OK

La solution que je propose est destinée aux grosses structures.
Dans ma boite il y a plus de 3000 utilisateurs potentiels !!!

A+

[OLIV420]

Bonjour,

merci pour vos réponses, j'ai testé les exmples donnés par ESVBA qui me conviennent.

En effet le fichier est en réseau et utilise les fonctions de partage.

Par contre j'ai un autre soucis avec une autre macro. Je vous explique, le fichier contient quatre feuilles, les informations renseignées sur la première sont reprises dans les autres. Il s'agit de dossier client. Je voudrais créer une macro pour supprimer un dossier client. Mon idée était de se placer sur le nom du dossier dans la première feuille dans la colonne A et de lancer la macro qui suprimait la ligne sélectionnée et les mêmes numéros de ligne sur les 3 autres feuilles. j'ai créé la macro suivante mais ça ne fonctionne pas, pouvez cous m'aider? merci:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
Sub suppressionligne()
'
' suppressionligne Macro
'
 
'
    ActiveCell.Rows("1:1").EntireRow.Select
    Selection.Delete Shift:=xlUp
    Sheets("Feuille 1").Select
    ActiveCell.Offset(-15, 0).Rows("1:1").EntireRow.Select
    ActiveCell.Offset(-15, -1).Range("A1").Activate
    Selection.Delete Shift:=xlUp
    Sheets("Feuille 2").Select
    ActiveCell.Offset(4, 0).Rows("1:1").EntireRow.Select
    Selection.Delete Shift:=xlUp
    Sheets("feuille 3").Select
    ActiveCell.Offset(4, 0).Rows("1:1").EntireRow.Select
    Selection.Delete Shift:=xlUp
    Sheets("feuille 4").Select
    ActiveCell.Rows("1:1").EntireRow.Select
    Selection.Delete Shift:=xlUp
    Sheets("Feuille 1").Select
    ActiveCell.Offset(-1, 0).Range("A1").Select
End Sub

[PPz78]

Bonsoir,

Comme il s'agit d'une autre question, il est préférable d'ouvrir un autre fil de discussion.

A+