Makrosteuerung bei Excelstart
23.09.2015 14:38:22
r2d2
wenn man eine Excel-Datei mit Shift öffnet, kann man den "Startcode" der unter "DieseArbeitsmappe" steht unterdrücken, alle anderen Makros in Modulen gehen aber (zumindest ist das bei mir so). Nun möchte ich, daß wenn jemand die Datei mit Shift öffnet, auch die anderen Makros nicht funktionieren.
Hierzu habe ich von Rudi folgenden Code bekommen:
Private Sub Workbook_BeforeClose(Cancel As Boolean)
CheckNameExists
With Names("Makro")
.Value = 0
.Visible = False
End With
End Sub
Private Sub Workbook_Open()
CheckNameExists
With Names("Makro")
.Value = 1
.Visible = False
End With
End Sub
Sub CheckNameExists()
Dim n As Name
On Error Resume Next
Set n = Names("Makro")
On Error GoTo 0
If n Is Nothing Then
Set n = Me.Names.Add("Makro", 1)
End If
End Sub
und im Modul dann
Sub makro1()
If [Makro] = 1 Then
MsgBox "makro1"
End If
End Sub
Das funktioniert auch soweit, nur wenn man das Kreuzchen rechts oben drückt (Fenster schließen) und dann abbricht, ist der Wert auch 0 und die Makros gehen dann auch nicht mehr (was sie aber bei Abbruch weiter sollen).Kann man das irgendwie abfangen?
Ich poste das extra, da beim anderen Post keine Reaktion mehr erfolgt.
Danke.
Gruß
r2d2