Wie kann ich in einem Tabellenblatt eine Meldung
anzeigen lassen kann, wenn in der Arbeitsmappe die
Makroausführung blockiert ist.
(Wenn z. B. eine Arbeitsmappe aus einer eMail heraus geöffnet
wird.)
Lösung:
Erstell ein neues Blatt
'KeinMakro'
und schreib die Meldung "Bitte Datei mit Makros aktivieren neu
öffnen" hinein.
In 'DieseArbeitsmappe' (VBA > ALT
+ F11) kommt folgender Code:
Private Sub Workbook_BeforeClose(Cancel As
Boolean)
Dim wks As Worksheet
Sheets("KeinMakro").Visible = xlSheetVisible
For Each wks In Worksheets
If wks.Name <> "KeinMakro" Then
wks.Visible = xlSheetVeryHidden
Next
End Sub
Private Sub Workbook_Open()
Dim wks As Worksheet
For Each wks In Worksheets
wks.Visible = xlSheetVisible
Next
Sheets("KeinMakro").Visible = xlSheetVeryHidden
End Sub