Datei Personengebunden öffnen

[M.Wichmann]

Guten Morgen,

ich habe ein neues Projekt.
Ich bin verantwortlich für die Zusammenführung und Auswertung aller Statistiken der verschiedenen Bereiche unserer Firma.

Momentan stört mich son bisschen daran das jede Abteilung seine eigenen Statistiken auf seinem Laufwerk nutzt, und ich muss mir dann immer die Zahlen über Bezüge sammeln.

Jetzt kam ich auf den Gedanken aus diesen ganzen Einzeldateien eine große zu machen.
Ansich ja kein Problem.

Jetzt aber meine Frage, um das für die Einzelnen Personen besser zu händeln, ist es auf einfache Art möglich das bei öffnen der Datei ein Fenster auf geht, die Person bzw Abteilung muss angeben wer er is, und dann geht das entsprechende Datenblatt auf und derjenige kann seine Zahlen eingeben. Im Idealfall sogar so, das man die anderen Blätter garnicht sieht.

Achso, zu bedenken wäre dabei noch, das wir leider  verschiedene Excel Versionen haben. Ich glaub die älteste ist 2003.

[Peter]

Hallo,

dein Vorhaben wäre mit VBA sicher machbar - allerdings kann ich dir da mangels VBA-Kenntnis nicht weiterhelfen.

Ich werfe aber mal einen anderen Hut in den Ring: Du setzt XL2010 ein und da könntest du evtl. das Addin Power Query installieren und die Daten damit 'einsammeln'.

Schau dir dazu mal diese Seite an - evtl. ist das eine Alternative zu VBA.

[M.Wichmann]

Danke für die Antwort.

Aber mir gehts da um was anderes, in der Vergangenheit war es öfter mal so, das jemand seine datei umbennent, oder in nen anderen Ordner schiebt. Und schon stehn meine Auswertungen ohne Daten da. Oder anderer Fall, jetzt zum Jahreswechsel mußte ja alles neu gemacht werden, und ich sitz da und muß mir wieder alle Bezüge verlinken.  Und das will ich umgehen.

Eine Datei, und wenn es denn ohne weiteres geht, jeder Benutzer sieht sofort seinen b ereich.

[Peter]

Hallo,

ok, das

in der Vergangenheit war es öfter mal so, das jemand seine datei umbennent, oder in nen anderen Ordner schiebt

ist natürlich ein KO-Kriterium, wobei ich demjenigen auf die Finger hauen würde.

In dem Fall ist das Zusammenführen in eine Datei vermutlich die bessere Alternative - da werden sich die VBA-Experten sicher bald melden.

[Rabe]

Hi,

dein Vorhaben wäre mit VBA sicher machbar - allerdings kann ich dir da mangels VBA-Kenntnis nicht weiterhelfen.

hier ist ein Beispiel-Code für "DieseArbeitsmappe":

Option Explicit

Private Sub Workbook_Open()
  Dim s As String
 
  s = VBA.Environ("Username")
  
  'Datei generell schreibgeschützt öffnen 
  'Ausdruck.Open(FileName, UpdateLinks, ReadOnly, Format, Password, WriteResPassword, IgnoreReadOnlyRecommended, Origin, Delimiter, Editable, Notify, Converter, AddToMru, Local, CorruptLoad) 
  If Environ("username") <> "rab" Then
     Application.DisplayAlerts = False
     Workbooks.Open ThisWorkbook.FullName, , True
  End If
  
  With ThisWorkbook
     Select Case s                     'Tabellen, Bereiche und Formularschaltflächen ausblenden, je nach Account 
     Case Is = "rab", "har", "smi":
        For i = 1 To Sheets.Count
           .Sheets(i).Visible = True   'alle Tabellen einblenden 
           .Sheets(i).Unprotect 'Password:="test" 
        Next i
        .Sheets("Tabelle1").Visible = True
        '.Range("1:46").EntireRow.Hidden = False     'definierter Bereich einblenden 
        '.Range("48:60").EntireRow.Hidden = True     'definierter Bereich ausblenden 
        '.Sheets("Tabelle2").DrawingObjects("Button 1").Visible = True    'Button einblenden 
        .Sheets("Tabelle1").Range("K1:K3") = ""      'Bereich leeren 

     Case Is = "sl", "spe", "aml":
        For i = 1 To Sheets.Count
           .Sheets(i).Visible = True
        Next i
        .Sheets("Tabelle1").Visible = True
     Case Is = "tig":
        For i = 1 To Sheets.Count
           .Sheets(i).Visible = False                'alle Blätter ausblenden 
           .Sheets(i).Protect 'Password:="Test" 
        Next i
        .Sheets("Tabelle1").Visible = True           'nur Tabelle1 einblenden 
     Case Is = "tim", "smi", "bs", "brm":
        For i = 1 To Sheets.Count
           .Sheets(i).Visible = False
        Next i
        .Sheets("Tabelle3").Visible = True           'Tabelle3 einblenden 
     Case Else
        'für alle anderen Datei schreibgeschützt öffnen 
        'Ausdruck.Open(FileName, UpdateLinks, ReadOnly, Format, Password, WriteResPassword, IgnoreReadOnlyRecommended, Origin, Delimiter, Editable, Notify, Converter, AddToMru, Local, CorruptLoad) 
        Application.DisplayAlerts = False
        Workbooks.Open ThisWorkbook.FullName, , True
        Call drei_Blätter_zeigen                     'nur drei bestimmte Blätter einblenden 
        .Sheets("Anzeige").Activate
        '.Sheets("Anzeige").Visible = True 
        ' 
        'For i = 1 To Sheets.Count 
        '   If .Sheets(i).Name <> "Anzeige" Then 
        '     .Sheets(i).Visible = False          'Alle außer Anzeige ausblenden 
        '   End If 
        'Next i 
     End Select
  End With
  Application.DisplayAlerts = True
  
End Sub

und hier das Makro für die drei Blätter:

Option Explicit

Sub drei_Blätter_zeigen()      '3 definierte Blätter anzeigen 
  Sheets("Anzeige").Visible = True
  Sheets("Daten-Eingabe").Visible = True
  Sheets("Datenbank").Visible = True
  
'   oder 
'   For i = 1 To Sheets.Count 
'      If Sheets(i).Name <> "Anzeige" And Sheets(i).Name <> "Daten-Eingabe" And Sheets(i).Name <> "Datenbank" Then 
'         Sheets(i).Visible = False 
'      End If 
'   Next i 
End Sub

Sub alle_zeigen()      'alle Blätter anzeigen 
  For i = 1 To Sheets.Count
     Sheets(i).Visible = True
  Next i
End Sub

[M.Wichmann]

Danke,

habe ich das richtig verstanden??

Eine neue Mappe erstellen, dann Code1 in "DieseArbeitsmappe" und den 2. Code in jede Tabelle.

So gerade probiert und wenn ich Macros aktiviere springt der VBA Editor an.

Fehlermeldung und markiert das:

 Private Sub Workbook_Open()

[Rabe]

Hi,

Eine neue Mappe erstellen, dann Code1 in "DieseArbeitsmappe" und den 2. Code in jede Tabelle.

nein, aktuelle Datei, in der Du das haben willst.
Code 1 hinter "DieseArbeitsmappe"
Code 2 in ein allgemeines Modul

hier nochmal der Beginn des ersten Codes:

Option Explicit

Private Sub Workbook_Open()
 Dim s As String
 Dim i As Long

 s = VBA.Environ("Username")
 
'  'Datei generell schreibgeschützt öffnen 
'  'Ausdruck.Open(FileName, UpdateLinks, ReadOnly, Format, Password, WriteResPassword, IgnoreReadOnlyRecommended, Origin, Delimiter, Editable, Notify, Converter, AddToMru, Local, CorruptLoad) 
'  If Environ("username") <> "rab" Then 
'     Application.DisplayAlerts = False 
'     Workbooks.Open ThisWorkbook.FullName, , True 
'  End If 
 
 With ThisWorkbook

und hier sder zweite Code erweitert:

Option Explicit

Sub drei_Blätter_zeigen()      '3 definierte Blätter anzeigen 
  
  Call eines_zeigen
  
  Sheets("Anzeige").Visible = True
  Sheets("Daten-Eingabe").Visible = True
  Sheets("Datenbank").Visible = True
  
  '   oder 
  '   For i = 1 To Sheets.Count 
  '      If Sheets(i).Name <> "Anzeige" And Sheets(i).Name <> "Daten-Eingabe" And Sheets(i).Name <> "Datenbank" Then 
  '         Sheets(i).Visible = False 
  '      End If 
  '   Next i 
End Sub

Sub alle_zeigen()      'alle Blätter anzeigen 
  Dim i As Long
  
  For i = 1 To Sheets.Count
     Sheets(i).Visible = True
  Next i
End Sub

Sub eines_zeigen()
  Dim i As Long
  
  For i = 1 To Sheets.Count
        If Sheets(i).Name <> "Daten-Eingabe" Then
           Sheets(i).Visible = False
        End If
  Next i
End Sub

  restriktives Öffnen.xlsb (Größe: 21,54 KB / Downloads: 7)

[M.Wichmann]

Habe ich so gemacht, Code 1 in DieseArbeitsmappe  und für code 2 ein Modul erstellt. 
Wieder Fehler.

Und bei deiner Datei flackern die sheets kurz und dann is alles ganz normal.

[Rabe]

Hi,

Habe ich so gemacht, Code 1 in DieseArbeitsmappe  und für code 2 ein Modul erstellt. 
Wieder Fehler.

Und bei deiner Datei flackern die sheets kurz und dann is alles ganz normal.

hast Du auch die Usernamen (Windows/Netzwerk Accountnamen) angepasst?
Case Is = "rab", "har", "smi":

Da solltest Du die tatsächlich vorkommenden Namen eintragen.

Vorher kannst Du Dir die mit
msgbox s
anzeigen lassen.

[M.Wichmann]

Hi, sorry aber das ist nicht das woran ich dachte. ( was ist zb falls man mal an einem anderen Rechner ist und will das öffnen??)

Ich dachte eher daran, wenn man die Datei öffnet, kommt ein Fenster wo man einen Namen bzw Abteilung auswählt, oder man muss es eingeben( was evtl zu Tippfehlern führen kann) und nach dem bestätigen geht das entsprechende Blatt auf.

Aber wenn das zu aufwendig wird lass ich es, ich bin schon nebenbei dabei die Quelldateien in einem Ordner zu sammeln( die Benutzer haben nur noch Verknüpfungen). Einige werden das nichtmal merken^^
Und meine Datei zum auswerten baue ich mit meinem neuen Wissen der letzten Tage auch um, um die Diagramme über Pivot zu machen.  


Meine Vorgänger haben 8 Einzeltabellen gehabt, und ich mache das jetzt mit einer.