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
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen