|
Excel : Zugriffsrechte für verschiedene User vergeben
Ralf_A am 22.12.2004 um 09:25 Uhr (0)
Hallo zusammen, ich habe mit Excel einen Urlaubsplaner erstellt. In den Zeilen die Mitarbeiter und in den Spalten die einzelnen Kalendertage. Trage ich in eine Zelle ein „U“ ein wird ein Urlaubstag abgezogen und ich kann am Ende der Tabelle sehen, wieviel Urlaub jeder Mitarbeiter noch hat, das funtioniert alles ganz super. Ich möchte die Datei für jeden auf einem Datenserver zugänglich machen. Jetzt meine Frage bezüglich der Zugriffsrechte. Für alle ist die Tabelle komplett sichtbar, Schreibrechte sollen j ...
| | In das Form Excel wechseln |
|
Excel : Zugriffsrechte für verschiedene User vergeben
Ralf_A am 06.01.2005 um 08:09 Uhr (0)
Hallo alle und frohes neues, Visual Basic ist nun mal nicht gerade so mein Ding. Ich habe noch etwas an der Datei gearbeitet und dabei Zeilen und Spalten getauscht. Ich habe die Datei mal angehängt. Es soll jeder Mitarbeiter alles sehen können. Mitarbeiter 1 darf über Passwort alles bearbeiten können. Die anderen Mitarbeiter dürfen nur in der jeweiligen Spalte von Zeile 3 bis 369 Einträge machen. Jeder Mitarbeiter ist mit seinem Namen als User angemeldet, arbeite mit Office 2000. Gruß Ralf
| | In das Form Excel wechseln |
|
Excel : Mappen per Makro anwählen
Ralf_A am 23.03.2006 um 11:29 Uhr (0)
Hallo Nicole,danke für deine Hilfe, leider ist es das noch nicht so ganz. Es soll immer eine bestimmte Mappe geöffnet werden, d.h ich brauche keine Auswahl. Was ich brauche wäre nur ein IF Abfrage ob die Mappe geöffnet ist. Ich habe die Abfrage mal formuliert, nur das funzt so nicht.Sub Makro7() If Datei geoeffnet ("Mappe2.xls") = True Then Windows("Mappe2.xls").Activate Else Workbooks.Open Filename:="Mappe2.xls" End IfEnd SubVielleicht findet sich ja noch jemand der mir weiter helfen kannDank im vor ...
| | In das Form Excel wechseln |
|
Excel : Excel nach Hause telefonieren
Ralf_A am 13.10.2008 um 08:53 Uhr (0)
Hallo Runkelruebe,Danke für deine Hilfe.Mein Makro sieht jetzt so aus:Private Declare Function GetUserName _ Lib "advapi32.dll" Alias "GetUserNameA" _ (ByVal lpBuffer As String, _ nSize As Long) _ As LongPrivate Sub Workbook_BeforeClose(Cancel As Boolean) Call bigbrotherEnd SubPublic Function Benutzername() As StringDim strName As StringDim lngErgebnis As LongApplication.VolatilestrName = String(256, Chr(0))lngErgebnis = GetUserName(strName, 256)If lngErgebnis 0 ThenstrName = _Left(strName, InStr(str ...
| | In das Form Excel wechseln |
|
Anzeige:
Anzeige: (Infos zum Werbeplatz)
 |
