accès bloqué à un utilisateur

[basma]

Bonjour.

J'ai créé un fichier excel sur un folder partagé C:\Fiche\Zoé.xls

Je désire bloquer l'accès à un utilisateur si un de ses collègues est déjà dans un fichier.
1) Si Robert veut ouvrir le fichier mais que Marie est déjà connectée, Robert reçoit un message bloquant du style: "un utilsateur est déjà connecté. Veuillez ré-essayer plus tard"
2) + bouton OK => si on clique sur le bouton OK, le fichier excel se ferme automatiquement.


Est-ce possible via une macro ????

D'avance merci pour vos explications toujours pertinentes!

Basma

 

[wilfried_42]

Re : accès bloqué à un utilisateur

bonjour basma

on va reserver 2 celleule, un pour bloquer le double lancement et une pour le nom exemple Feuille "BLOQUE" cellule A1 et A2

Private Sub Workbook_Open()
if sheets("BLOQUE").range("A1").value = true then 
MsgBox "Deja utilisé par " & sheets("BLOQUE").range("A2").value & chr(10) & "Re-essayez plus tard"
thisworkbook.close false
application.quit
end if
' Maintenant on va Bloquer le fichier avec une sauvegarde pour enregistrer le bloquage
Sheets("BLOQUE").range("A1").value = true
thisworkbook.save
sheets("BLOQUE").Range("A2").value = InputBox "Nom de l'utilisateur"
thisworkbook.save
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Sheets("BLOQUE").Range("A1").Value = False
Sheets("BLOQUE").Range("A2").Value = ""
ThisWorkbook.Save
Application.Quit
End Sub

 

[basma]

Re : accès bloqué à un utilisateur

Ok, Wilfried !
je vais essayer ta solution.

Merci beaucoup !!!!!!!!


bonjour basma

on va reserver 2 celleule, un pour bloquer le double lancement et une pour le nom exemple Feuille "BLOQUE" cellule A1 et A2

Private Sub Workbook_Open()
if sheets("BLOQUE").range("A1").value = true then 
MsgBox "Deja utilisé par " & sheets("BLOQUE").range("A2").value & chr(10) & "Re-essayez plus tard"
thisworkbook.close false
application.quit
end if
' Maintenant on va Bloquer le fichier avec une sauvegarde pour enregistrer le bloquage
Sheets("BLOQUE").range("A1").value = true
thisworkbook.save
sheets("BLOQUE").Range("A2").value = InputBox "Nom de l'utilisateur"
thisworkbook.save
End Sub

[/QUOTE]