Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1140to1144
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
Speichern verbot über VBA umgehen
Andy
Hallo,
ich möchte durch eine Userform (UserForm1), die man nur durch ein Passwort aufrufen kann und durch das Klicken auf einen Comman Button das Speichern wieder erlauben.
Das Speichern Unter soll wieterhin gesperrt bleiben.
Jetzt weiß ich aber nicht genau wie ich das schreiben soll.
Nach dem Speichern muss auch eine neue MsgBox kommen, die dem User das Speichern bestätigt.
Das ist der Code der das Speichern untersagt. Der Code befindet sich im VBA Code Bereich DieseArbeitsmappe.
Ich selber kann nur Speichern wenn ich die Makro Sicherheit hoch nehme.

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
If SaveAsUI Then
MsgBox """Speichern Unter"" ist  nicht erlaubt", vbInformation, "Info"
Cancel = True
End If
If Not SaveAsUI Then
MsgBox "Das ""Speichern"" geht nur über den Editor Bereich", vbInformation, "Info"
Cancel = True
End If
End Sub

Hoffe das mir kann einer helfen kann,
Andy

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Speichern verbot über VBA umgehen
02.03.2010 07:19:35
xr8k2
Hallo Andy,
Setze einfach vor dem .save - Befehl deines UserformCommandbuttonSpeichernCodes ein
Application.Enableevents = false
Damit wird das Auslösen des BeforeSave - Ereignisses unterbunden und die Mappe kann gespeichert werden.
Danach aber nicht vergessen die Events wieder einzuschalten
Application.Enableevents = true
Gruß,
xr8k2
AW: Speichern verbot über VBA umgehen
02.03.2010 08:06:59
Andy
Hallo xr8k2,
das ist perfekt, besten Dank.
Gruß,
Andy
Anzeige

18 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige