Nun, ich habe ein Problem mit VBA Code in einer
Excel Arbeitsmappe bei der ich nicht weiterkomme.
Folgenden VBA Code will ich in die A_Mappe integrieren
Private Sub Workbook_open()
End Sub
Private Sub Workbook_Activate()
Application.CommandBars("Worksheet Menu Bar").Enabled = False
Application.CommandBars("Formatting").Visible = False
Application.CommandBars("Standard").Visible = False
End Sub
Private Sub Workbook_Deactivate()
Application.CommandBars("Worksheet Menu Bar").Enabled = True
Application.CommandBars("Formatting").Visible = True
Application.CommandBars("Standard").Visible = True
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.CommandBars("Worksheet Menu Bar").Enabled = True
Application.CommandBars("Formatting").Visible = True
Application.CommandBars("Standard").Visible = True
End Sub
Ebenso diesen Code
Private Sub Workbook_Activate()
Application.ExecuteExcel4Macro "Show.Toolbar(""Ribbon"", False)"
End Sub
Private Sub Workbook_Deactivate()
Application.ExecuteExcel4Macro "Show.Toolbar(""Ribbon"", True)"
End Sub
Sinn und Zweck soll sein,
dass diese Arbeitsmappe gedownloadet werden kann und
der Downloader mit "Seiner" Excel Version ( XP. 2007, 2010, 2013)
immer nur die Datei sieht ohne die
Commandbars oder Ribbons zu sehen.
Diese Arbeitsmappe habe ich mit Blattschutz- aber zum eingeben von Daten
so versehen, dass "geschütze" und "benutzbare" Bereiche vorhanden sind.
Meine Frage:
Kann ich beide VBA Commands in der gleiche Arbeitsmappe
irgendwie so integrieren, verknüpfen so dass man
egal welche Excel Version man hat keine Schaltflächen mehr sieht oder bearbeiten kann.
Danke für jede Hilfe
Günter
|