mehre USER freigeben bei ....
16.08.2006 11:12:01
helena
kleines Problemchen, jetzt ist nur 1 User erlaubt, möchte aber mehreren Usern speichern gestatten
Bitte um Lösungsvorschlag
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
If Environ("UserName") <> "xxxx" Then 'wenn falsch dann kein speichern möglich
MsgBox "speichern ist nicht erlaubt ..."
Cancel = True
End If
End Sub
Danke
gruss helena aus CH