|
Hallo zusammen,
ich habe eine Datei mit einem Dashboard erstellt, dieses Dashboard wird durch eine andere Datei gefüttert... diese Datei wird von der eigentlichen Dashboard-Datei durch einen Code geöffnet. Geht diese Datei auf, soll sie durch einen Code minimiert werden... so, dass der User mit dieser Datei auch nicht viel anfangen kann. Geschützt ist die Datei aber je weniger er von der Datei weiß und mitbekommt, desto besser. Diese Datei ist die Datei, die ich regelmäßig update und die neusten Daten der Dashboarddatei liefert. Es gibt ca. 10 verschiedenen Dashboards-Datei, die sich unterschiedliche Daten jeweils aus der einen Datendatei abgreifen...
Mein Problem ist folgendes... manchmal gehen zwar beide Dateien auf aber es gibt keine Verbindung der Verlinkungen. Dann funktioniert ab und zu die Minimierung der Datendatei nicht oder der Fullscreen wird nicht aktiviert... hier mal den Code, den ich für die einzelnen Datei geschrieben habe:
Dashboarddatei:
in "DieseArbeitsmappe" eingefühgt:
Private Sub workbook_open()
'
' öffnenDatenbank Makro
Application.DisplayFormulaBar = False
With ActiveWindow
.DisplayHorizontalScrollBar = False
.DisplayVerticalScrollBar = False
.DisplayWorkbookTabs = False
End With
ActiveWindow.DisplayHeadings = False
On Error GoTo FEHLER
Dim Blatt As Worksheet, wksActive As Worksheet
Dim s As String
Application.ScreenUpdating = False
Set wksActive = ActiveSheet
For Each Blatt In Worksheets
Blatt.Activate
With ActiveWindow
.DisplayHeadings = False
End With
Next Blatt
wksActive.Activate
FEHLER:
On Error GoTo 0
Application.ScreenUpdating = True
Application.DisplayFullScreen = True
ActiveWorkbook.FollowHyperlink Address:="Adresse des freigegebenen Links über onedrive"
End Sub
und hier der Link der Datendatei:
Private Sub Workbook_Open()
Workbooks("Name der Datei").Activate
Application.DisplayFormulaBar = False
With ActiveWindow
.DisplayHorizontalScrollBar = False
.DisplayVerticalScrollBar = False
.DisplayWorkbookTabs = False
End With
ActiveWindow.DisplayHeadings = False
Application.WindowState = xlMinimized
On Error GoTo FEHLER
Dim Blatt As Worksheet, wksActive As Worksheet
Dim s As String
Application.ScreenUpdating = False
Set wksActive = ActiveSheet
For Each Blatt In Worksheets
Blatt.Activate
With ActiveWindow
.DisplayHeadings = False
End With
Next Blatt
wksActive.Activate
FEHLER:
On Error GoTo 0
Application.ScreenUpdating = False
Application.DisplayFullScreen = True
End Sub
Hat jemand eine Idee warum diese codes nicht immer einwandfrei funktionieren bzw. die Verlinkung manchmal nicht funktionert?
hier noch ein paar allgemeins Daten:
- Microsoft Windows 10 Enterprise
- 64-Bit-Prozessor
- Microsoft 365 Apps for Enterprise (öffnet immer über die App nicht über den Browser)
Vielen Dank und viele Grüße
Hape
|