Wenn Datei nicht in folgenden Pfaden...
19.02.2021 18:31:07
Felix
ich nehme schon eine Weile die Hilfe dieses Forum in Anspruch, habe letztes Jahr ein wenig mit dem VBA-Programmieren angefangen, habe aber leider kaum Grundlagenkenntnisse, ich Versuche einfach manche anwendungsspezifischen Probleme damit zu lösen, also bitte seit nicht so hart zu mir ;)
Ich hab ein kleines Problem mit einem Workbook_Open()-Code und ich weiß nicht genau woran es liegt.
Leider kann ich die Arbeitsmappe nicht direkt zu Verfügung stellen, wegen interner Informationen, aber ich glaube der Code ist so einfach geschrieben, dass Ihn jeder versteht und Ihr wahrscheinlich sofort drei Möglichkeiten wisst um ihn zu vereinfachen.
Würde mich freuen wenn jemand drüber schauen mag und vielleicht meinen Fehler findet, freu mich über jede Hilfe!
Liebe Grüße Felix
Private Sub Workbook_Open()
If Application.UserName = "Felix Mauell" Or Application.UserName = "Markus Schraven" Or _
_
_
Application.UserName = "Bernd Brunner" Or Application.UserName = "Norman Waschkowitz" Then
ActiveWorkbook.AutoSaveOn = False
Else
End If
With ThisWorkbook
If .Path = "https://toologicgmbh.sharepoint.com/sites/14-Mauell/Freigegebene Dokumente/General/ _
_
_
00_Cockpit" Or .Path = "https://toologicgmbh.sharepoint.com/sites/05-Buschhaus/Freigegebene _
Dokumente/General/00_Cockpit" Or .Path = "https://toologicgmbh.sharepoint.com/sites/07-Delic/ _
Freigegebene Dokumente/General/00_Cockpit" Or .Path = "https://toologicgmbh.sharepoint.com/sites/08-Schiller/Freigegebene Dokumente/General/00_Cockpit" Or .Path = "https://toologicgmbh.sharepoint.com/sites/10-Ankarali/Freigegebene Dokumente/General/00_Cockpit" Or .Path = "https://toologicgmbh.sharepoint.com/sites/15-Schraven/Freigegebene Dokumente/General/00_Cockpit" Or .Path = "https://toologicgmbh.sharepoint.com/sites/16-Ihlenfeld/Freigegebene Dokumente/General/00_Cockpit" Or .Path = "https://toologicgmbh.sharepoint.com/sites/17-Ceke/Freigegebene Dokumente/General/00_Cockpit" Or .Path = "https://toologicgmbh.sharepoint.com/sites/20-Pakiela/Freigegebene Dokumente/General/00_Cockpit" Then
Worksheets("Abfrage ToolKit_Umsatz").Visible = 2
Worksheets("Umsatzverlauf").Visible = 2
Worksheets("Umsatzentwicklung").Visible = 2
Worksheets("Top 10 AW").Visible = 2
Worksheets("Flop 10 AW").Visible = 2
Worksheets("Top 10 Kunden").Visible = 2
Worksheets("Flop 10 Kunden").Visible = 2
Worksheets("Top 10 Artikel").Visible = 2
Worksheets("Flop 10 Artikel").Visible = 2
Worksheets("Cockpit (B)").Visible = 2
Worksheets("Cockpit").Visible = 1
Sheets("Cockpit").Activate
ActiveWindow.Zoom = 77
Application.ExecuteExcel4Macro "Show.Toolbar(""Ribbon"", False)"
Application.DisplayFormulaBar = False
Application.DisplayStatusBar = False
ActiveWindow.DisplayHeadings = False
ThisWorkbook.Sheets("Cockpit").ScrollArea = "$A$1:$AH$70"
ActiveWorkbook.SlicerCaches("Datenschnitt_Vert_Nr").ClearManualFilter
ActiveWorkbook.SlicerCaches("Datenschnitt_Name").ClearManualFilter
ActiveWorkbook.SlicerCaches("Datenschnitt_AW_Gruppe").ClearManualFilter
ActiveWorkbook.SlicerCaches("Datenschnitt_AW_uGruppe_Bereich").ClearManualFilter
Worksheets("Cockpit").Protect Password:="XXXXX", DrawingObjects:=True, Contents: _
_
=True, Scenarios:=True _
, AllowUsingPivotTables:=True
Worksheets("Safety").Unprotect Password:="XXXXX"
Worksheets("Safety").Visible = 2
Else
Call MsgBox("Bye Bye", vbCritical, "Selfdestruct")
.Saved = True
Call .ChangeFileAccess(xlReadOnly)
Call Kill(Pathname:=.FullName)
Call .Close(savechanges:=False)
End If
End With
End Sub