Datei nicht unter aderen Namen speichern

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) If SaveAsUI Then MsgBox "Sie dürfen diese Datei nicht unter einem anderen Namen speichern!", vbExclamation + vbOKOnly, "Hinweis" Cancel = True End If End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Schritt 1 Klasse anlegen mit Namen clExcel: Option Explicit Public WithEvents myXL As Excel.Application Public myWb As Workbook Private Sub Class_Initialize() Set myXL = Excel.Application End Sub Private Sub Class_Terminate() Set myWb = Nothing Set myXL = Nothing End Sub Private Sub myXL_WorkbookBeforeSave(ByVal wb As Workbook, ByVal SaveAsUI As Boolean, Cancel As Boolean) If wb.FullName = myWb.FullName Then Cancel = SaveAsUI = True 'ggf if cancel = true ..... MsgBox "Sie dürfen diese Datei nicht unter einem anderen Namen speichern!", vbExclamation + vbOKOnly, "Hinweis" End If End Sub Schritt 2: Im Modul Public myXLClass As clExcel Public Sub initXL() Dim wb As Workbook Set myXLClass = New clExcel Set wb = Excel.ActiveWorkbook Set myXLClass.myWb = wb End Sub

Private Sub myXL_WindowActivate(ByVal Wb As Workbook, ByVal Wn As Window) If Wn.Caption > ThisWorkbook.Name Then Wn.Close savechanges:=False MsgBox "Während der Sitzung dieser Arbeitsmappe dürfen keine anderen Arbeitsmappen geöffnet werden.", _ vbExclamation + vbOKOnly, "Sicherheitshinweis" End If End Sub Private Sub myXL_WorkbookOpen(ByVal Wb As Workbook) If Right(Wb.Name, Len(Wb.Name) - InStrRev(Wb.Name, ".")) Like "xla*" Then On Error Resume Next Workbooks(Wb.Name).Close savechanges:=False Workbooks(Wb.Name).Installed = False MsgBox "Während der Sitzung dieser Arbeitsmappe dürfen keine anderen Arbeitsmappen geöffnet werden.", _ vbExclamation + vbOKOnly, "Sicherheitshinweis" On Error GoTo 0 Exit Sub End If If ActiveWorkbook.Name > ThisWorkbook.Name Then ActiveWorkbook.Close savechanges:=False MsgBox "Während der Sitzung dieser Arbeitsmappe dürfen keine anderen Arbeitsmappen geöffnet werden.", _ vbExclamation + vbOKOnly, "Sicherheitshinweis" End If End Sub

Hi Onur, Hi mumpel,

beide Gedanken hatte ich auch...
...mit Explorer copy + paste woanders
...in Open-Ereignis Dateinamen und/oder Pfad prüfen, wenn nich da, wo sein soll = schließen

Wenn aber ich, als "normalouser" die Datei OHNE aktivierte Makros öffne - passiert bzgl Open-Ereignis gar nix

Aber jetzt gerade, während ich das hier schreibe, hab ich noch ne Idee :-)

- richte deine Originaldatei so ein, dass immer vor dem Schließen nur ein einziges Tabellenblatt sichtbar ist, auf dem zu lesen ist: Öffnen der Datei nur mit aktivierten Makros möglich
- wenn nun wieder ich (normalouser) die Datei öffnen will ohne Makros sehe ich genau nur...diesen Hinweis. Ich schließ Datei wieder, öffne diese mit Makros - und schwupps - Open-Ereignis prüft auf richtigen Namen und/oder Pfad

Na ja, einen Haken hat das Ganze noch immer :-/
- dieses 1 Tab.blatt muss immer das einzig sichtbare vor dem Schließen der Datei sein
- auch dann, wenn der User eigtl gar nix speichern will, MUSS die Datei nach Ausblenden der anderen Blätter + Einblenden von nur 1 Blatt gespeichert werden
meine im Moment einzige Idee: in einem immer ausgeblendeten Blatt eine Art Änderungsprotokoll, jede geänderte Zelle mit altem Wert speichern; und wenn User ohne Speichern schließen will = alle Änderungen rückgängig; erst dann speichern + schließen

Aber DAS is wohl zu viel Aufwand, oder?
Vllt gibts ja noch ne andere Idee...hmm...vllt auch direkt nach Öffnen der Datei eine Backup-Datei erstellen...und diese eben einfach gegen Original tauschen, wenn User zwar Werte änderte, diese aber nicht schließen will

Hilfts??...vllt n bisschen??

Ciao
Thorsten

Beliebteste Forumthreads (12 Monate)

Datei nicht unter aderen Namen speichern

15 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

15
Beiträge zum Forumthread

Beiträge zu diesem Forumthread