kennt jemand eine Lösung, in der man in einer xls Datei hinterlegt (im Netzwerk), daß bestimmte User eine diese bestimmte ohne Schreibschutz öffnen können und sonstige nicht genannte User nur geschützt ?
mit Dank + Gruß
Walter
Private Sub Workbook_Open()
Select Case LCase(Environ("username")) 'Netzwerk-Name
Case "walter", "uduuh"
'nix tun
Case Else
If Not ActiveWorkbook.ReadOnly Then
ActiveWorkbook.ChangeFileAccess xlReadOnly
End If
End Select
End Sub