Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Code implementieren und speichern

Code implementieren und speichern
29.06.2005 16:10:44
Stephan
Hey xlFreaks
Will folgenden Code in Arbeitsmappe bekommen, um das Speichern zu verhindern :

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Cancel = True
MsgBox "Diese Datei bitte nicht überspeichern!"
End Sub

Problem ist nur. Nun kann ich das Teil ja nicht mehr speichern. Den implementierten Code. Habe ich sozudagen selbst ausgesperrt. Danke für etwaige Hilfe...
Anzeige

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Code implementieren und speichern
29.06.2005 16:18:05
Peter
Servus,
bau halt ne Abfrage vorher ein. Wobei sicher ist das auch nicht.
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim strpw As String
strpw = Application.InputBox("Bitte geben Sie ein Passwort ein !!!", "Passwort")
If strpw <> "1234" Or strpw = False Then
MsgBox "Sie haben kein Recht zum Speichern , Aktion abgebrochen !!!"
Cancel = True
End If
End Sub

MfG Peter
Anzeige
Gute Idee, Danke
29.06.2005 16:23:55
Stephan
Thx
AW: Code implementieren und speichern
29.06.2005 16:20:03
IngGi
Hallo Stephan,
so kannst du erst ab morgen nicht mehr speichern:

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
If Date > "29.06.2005" Then
Cancel = True
MsgBox "Diese Datei bitte nicht überspeichern!"
End IF
End Sub

Gruß Ingolf
Anzeige
Besten Dank
29.06.2005 16:31:36
Stephan
Besten Dank Ingolf !
AW: Code implementieren und speichern
29.06.2005 16:28:41
bst
Auch Hallo,
oder auch so.
cu, Bernd
--
Option Explicit

Sub SaveIt()
   Application.EnableEvents = False
   ThisWorkbook.Save
   Application.EnableEvents = True
End Sub

Anzeige
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige