Partage d'un fichier excel

Une approche parmi d'autres.
Dans un module ordinaire :

'''''''''''''''''''''
Declare Function GetComputerName& Lib "kernel32" _
Alias "GetComputerNameA" (ByVal lbbuffer As String, nsize As Long)

Function nomPC()
Dim S As String
S = Space(64)
GetComputerName S, Len(S)
nomPC = Application.Trim(S)
End Function
'''''''''''''''''''''

Dans le module ThisWorkbook :

'''''''''''''''''''''
Private Sub Workbook_Open()
Dim Feuille As Worksheet
For Each Feuille In Sheets
Feuille.Visible = True
Next Feuille
If nomPC = "POSTE01" Then
Sheets("Feuil1").Visible = False
ElseIf nomPC = "POSTE02" Then
Sheets("Feuil2").Visible = False
End If
End Sub
'''''''''''''''''''''

--
Gaenonius

Bonjour / bonsoir à toute et tous,


Est-il possible de partager un fichier excel entre 2 postes
informatique (réseau) sachant que :

- le poste 1 n'a accès qu'à la feuille 1
- le poste 2 n'a accès qu'à la feuille 2
- toutes les macros sont disponibles poste 1 et 2

Merci d'avance.

Dom.