Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
196to200
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
196to200
196to200
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Schreibschutz

Schreibschutz
02.01.2003 21:23:26
Atze
hi,
hoffe alle sind gut und gesund gerutscht!?? :)

so nun zu meinem problem:
ich meine exeldatei schreibgeschuetzt!!!
wenn ich die datei nach dem benutzen schliessen will kommt die meldung: änderungen speichern..usw.
das möchte ich gern vermeiden diese meldung weil ich sie ja mit absicht schreibgschuetzt habe bzw. bietet er mir bei dieser meldung auch das ja an ....kann ich diese meldung vermeiden oder sie ersetzen durch eine msg-box??? Fazit: änderungen verwerfen??!!

gruss atze

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: Schreibschutz
02.01.2003 21:33:21
andreas e
hallo atze
über Application.DisplayAlerts = False
kannst du diese meldung unterdrücken ,
nicht vergessen danach wieder auf true zu setzen !

gruß
andreas e
http://www.skripteundaufgaben.de viele kostenlose Downloads und Lösungsansätze zu EXCEL und mehr

Re: Schreibschutz
02.01.2003 22:10:30
Atze
hmm...hatte ich auch schon gefunden...aber ich schliesse die datei nicht per macro sondern normal über exel menue bzw. kreuz!!
oder hab ich etwas falsch verstanden...??
Re: Schreibschutz
02.01.2003 22:19:14
andreas e
hallo atze,
dann schreib das doch in den code bei Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.DisplayAlerts = False
End Sub
dann brauchst keinen button
gruß
andreas e
Anzeige
Re: Schreibschutz
03.01.2003 12:16:29
Atze
..hat nicht ganz geklappt...aber dein Ansatz hat mich auf die lösung gebracht...oder ich hab dich falsch verstanden...egal wie
hauptsache es funktioniert!!!
mein code:
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.DisplayAlerts = False
ActiveWorkbook.Close
Application.DisplayAlerts = True
End Sub

Vielen Dank!!! :)) atze

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige