Datei nur öffnen, wenn Makros aktiviert sind?
silex1
da ich ein VBA Vollpfosten bin, ich aber dies benötige, hät ich mal ne Frage.
In meiner erstellten Datei sind Makros enthalten. Diese werden benötigt, damit alles reibungslos funktioniert.
Kann meine Datei beim Aufruf prüfen ob die Makros aktiviert wurden?
Wenn ja starten, wenn nein Infobox ausgeben und bei ok drücken wortlos beenden! Wäre cool!
Hier noch der (zusammengeklaute) Code, in den dies ggf. eingebaut werden muss! Bitte nicht mich verhauen wg. SELECT oder anderen Fehlern, bin stolz aud diesen! :-))
Sub Workbook_Open()
For Each c In Application.CommandBars
c.Enabled = False
Next
If Application.DisplayFormulaBar = True Then
Application.DisplayFormulaBar = False
End If
Dim objBar As CommandBar
Dim objPopUp As CommandBarPopup
Dim objBtn As CommandBarButton
Dim strBar As String
strBar = "Navigation"
On Error Resume Next
Application.CommandBars(strBar).Delete
On Error GoTo 0
Set objBar = Application.CommandBars.Add( _
Name:=strBar, _
Position:=msoBarTop, _
MenuBar:=False, _
Temporary:=True)
Set objBtn = objBar.Controls.Add
With objBtn
.Caption = "Start!"
.OnAction = "Start"
.TooltipText = "Bitte Button drücken, bevor neue Daten angelegt werden sollen!"
'Style = msoButtonCaption
.Style = msoButtonIconAndCaption
.FaceId = 18
.BeginGroup = True
End With
'hier folgen noch weiter Button´s
With objBtn
.Caption = "Hilfe"
.OnAction = "Hilfe"
.TooltipText = "Bedienungsanleitung"
.Style = msoButtonIconAndCaption
.FaceId = 49
.BeginGroup = True
End With
objBar.Visible = True
Msg = "Die überarbeitete Vorlage wird ohne Gewährleistung jeglicher Art, zur Verfügung _
gestellt." & vbCr & "In keinem Fall übernehme ich die Haftung für Schäden gleich welcher Art, _
_
die durch die Verwendung dieser Vorlagen entstanden sein könnten." & vbCr & "" &
vbCr & "Verwenden Sie diese Vorlage nicht, wenn Sie sich mit dem Haftungsauschluss nicht _
einverstanden erklären." & vbCr & "" & vbCr
MsgBox Msg, vbExclamation Or vbOKOnly, "Willkommen!"
Sheets("Berechnung").Select
Range("B2").Select
End Sub
Mit dankbaren grüßen, Rene
Anzeige