Makro-Sicherheit: Hinweistext anbringen

Hallo
Ich erstelle Excel-Vorlagen für verschiedene externe User. Diese Vorlagen haben Ereignisprozeduren/Userforms welche beim öffnen der Datei starten müssen. Wenn jemand die Makro-Sicherheit auf hoch gestellt hat, dann funktionieren diese Ereignisprozeduren nicht. Excel gibt dem User auch keinen Hinweis, dass etwas nicht läuft.
Wie kann ich nun einen Hinweis anbringen für solche User, damit diese die Excel-Sicherheit mindestens auf mittel zurückstellen?. Dieser Hinweis sollte logischerweise bei Usern, welche die Makrosicherheit nicht auf hoch haben, auch nicht angezeigt werden.
Schwierigkeit: Der Hinweis muss immer angezeigt werden, wenn jemand die Datei öffnet und die Makros nicht laufen. Also auch dann, wenn die Datei mit Speichern unter bearbeitet wurde, und dann jemand anders weitergegeben wird.
Ich habe es versucht mit einem speziellen Tabellenblatt das sie Hinweise und Erklärungen trägt. Dieses ist standardmässig eingeblendet ist (alle anderen versteckt). Dieses Hinweis-Blatt wird durch eine Ereignisprozedur "..._open" weggezappt, bzw. bleibt eben nur dann stehen, wenn die Makros nicht laufen.
Das wäre ja auch gut so. Aber nun folgt der Pferdefuss mit dem Schliessen des Dikumentes. ich muss Speichern und Speichern unter abfangen und vor dem speichern das Hinweisblatt wieder hervorholen und danach wieder wegzappen, damit man normal weiterarbeiten kann. Dies habe ich versucht über ..-_beforeSave zulösen.
Das ist aber enorm komplex und gibt nur Fehler und verursacht gar Excel-Abstürze.
Gibt es eine einfache Idee?
Weiter unten ist ein ähnliche Anfrage (am 07.03.2005 Makro-Sicherheit), ich kann aber mein Problem darmit nicht lösen. Ich will auch gar nicht von aussen in die Makrosicherheit eingreifen (falls das ginge), weil ich dies auch für einen sinvollen Schutz halte.
Danke zum vorauss - viele Grüsse
Schoentalegg

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Option Explicit Private Sub ZeigeHinweis() Dim i As Integer Sheets(Sheets.Count).Visible = True For i = 1 To Sheets.Count - 1 Sheets(i).Visible = xlSheetVeryHidden Next i End Sub Private Sub VersteckeHinweis() Dim i As Integer, Sa As Boolean Sa = ThisWorkbook.Saved For i = 1 To Sheets.Count - 1 Sheets(i).Visible = True Next i Sheets(Sheets.Count).Visible = xlSheetVeryHidden ThisWorkbook.Saved = Sa End Sub Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) Dim Sh As Worksheet Dim fn Dim bo As Boolean Set Sh = ActiveSheet Cancel = True On Error GoTo Fehler Application.ScreenUpdating = False If SaveAsUI Then fn = Application.GetSaveAsFilename(ThisWorkbook.Name, "Excel-Dateien (*.xls), *.xls", , "Datei speichern") If fn = False Then GoTo Fehler ZeigeHinweis Application.EnableEvents = False Application.StatusBar = "Speichert..." ThisWorkbook.SaveAs fn Else ZeigeHinweis Application.EnableEvents = False Application.StatusBar = "Speichert..." ThisWorkbook.Save End If Fehler: Application.EnableEvents = True VersteckeHinweis Sh.Activate Application.StatusBar = False Application.ScreenUpdating = True If Err.Number > 0 Then MsgBox Err.Description End Sub Private Sub Workbook_Open() VersteckeHinweis ThisWorkbook.Saved = True End Sub

Hallo schoentalegg,
jaja, der Teufel steckt im Detail...
Habe das ganze nochmals überarbeitet:

Option Explicit
Private Sub MappeSpeichern(Optional fn)
Dim Sh As Worksheet
Dim bo As Boolean
Set Sh = ActiveSheet
On Error GoTo Fehler
Application.ScreenUpdating = False
If IsMissing(fn) Then
ZeigeHinweis
Application.StatusBar = "Speichert '" & ThisWorkbook.Name & "'..."
Application.EnableEvents = False
ThisWorkbook.Save
Else
ZeigeHinweis
Application.EnableEvents = False
Application.StatusBar = "Speichert '" & fn & "'..."
ThisWorkbook.SaveAs fn
End If
Fehler:
VersteckeHinweis
Sh.Activate
Application.StatusBar = False
Application.ScreenUpdating = True
If Err.Number > 0 Then MsgBox Err.Description
Application.EnableEvents = True
End Sub
Private Sub ZeigeHinweis()
Dim i As Integer
Sheets(Sheets.Count).Visible = True
For i = 1 To Sheets.Count - 1
Sheets(i).Visible = xlSheetVeryHidden
Next i
End Sub
Private Sub VersteckeHinweis()
Dim i As Integer, Sa As Boolean
Sa = ThisWorkbook.Saved
For i = 1 To Sheets.Count - 1
Sheets(i).Visible = True
Next i
Sheets(Sheets.Count).Visible = xlSheetVeryHidden
ThisWorkbook.Saved = Sa
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim aw
If Not ThisWorkbook.Saved Then
aw = MsgBox("Sollen ihre Änderungen in '" & ThisWorkbook.Name & "' gespeichert werden?", vbYesNoCancel + vbExclamation)
If aw = vbYes Then
MappeSpeichern
ElseIf aw = vbNo Then
ThisWorkbook.Saved = True
Else 'Abbrechen
Cancel = True
End If
End If
End Sub
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim fn
Cancel = True
If SaveAsUI Then
fn = Application.GetSaveAsFilename(ThisWorkbook.Name, "Excel-Dateien (*.xls), *.xls", , "Datei speichern")
If fn = False Then Exit Sub
MappeSpeichern fn
Else
MappeSpeichern
End If
End Sub
Private Sub Workbook_Open()
VersteckeHinweis
Sheets(1).Activate
ThisWorkbook.Saved = True
End Sub

Bitte um ausführliche Prüfung und Rückmeldung! ;-)
Gruß Matthias

Beliebteste Forumthreads (12 Monate)

Makro-Sicherheit: Hinweistext anbringen

12
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Makro-Sicherheit: Hinweistext anbringen

12 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

12
Beiträge zum Forumthread

Beiträge zu diesem Forumthread