ich habe für mich ein nicht lösbare Aufgabe.
Folgende Aufgabe:
Ich habe meine Datei so abgesichert, dass die Daten nur gesehen werden können wenn 'Makros aktiviert' ist. D.h. Zum Dateiöffnen wird, wenn Makros nicht aktiviert werden,eine Dummy-Mappe angezeigt.
Werden Makros aktiviert werden alle Mappe über Workbook_Open eingeblendet und die Dummy-Mappe ausgeblendet.
Das gleiche läuft Rückwärts, wenn die Datei (mit Workbook_BeforeClose) geschlossen wird.
Das Ganz soll natürlich auch funktionieren, wenn SaveAs ausgeführt wird.
Hier soll aber die Mappe, die gerade sichtbar aus dem Bildschirm sichtbar bleiben in der gespeicherten Version natürlich die Dummy-Mappe.
Es könnte ja ein 'Schlauer' auf die Idee kommen, die mit SaveAs gespeicherte Datei nochmals mit SaveAs speichern. In der ersten SaveAs-Datei wäre beim nächsten Öffnen alles sichtbar.
Wenn ich das Ganze mit 'Workbook_BeforeSave' verfolge, erscheint bei mir die Dummy-Mappe.
Hier mein Code
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim ff As Workbook
Dim mm As Worksheet
Dim anz As Integer
Dim KeyMappe As String
KeyMappe = "Key"
Dim ASheet As Worksheet
Set ff = ThisWorkbook
Set ASheet = ActiveSheet
For anz = 1 To ff.Sheets.Count
Set mm = ff.Sheets(anz)
If mm.Name = KeyMappe Then mm.Visible = True
Next anz
For anz = 1 To ff.Sheets.Count
Set mm = ff.Sheets(anz)
If mm.Name KeyMappe Then mm.Visible = False
Next anz
End Sub
Habt Ihr vielleicht eine gute Idee?
Gruß Günter