Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.04.2024 23:30:16
Anzahl Jahre Zählen aus Datumreihe
16.04.2024 19:22:16
Von exceltabelle in word per steuerelement temarker
16.04.2024 18:50:53
Fehlermeldung bei Code - Excel speichern mit Bez. aus Zelle
16.04.2024 17:18:01
Projektplan-Tabelle oder Gantt ohne Balken
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1420to1424
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1420to1424
1420to1424
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Abfrage beim Speichern

Abfrage beim Speichern
16.04.2015 15:05:47
Airwin
hi,
ich habe wieder einmal ein problem, welches ich nicht lösen kann´. Ich möchte, wenn "speichern" gedrückt wird, dies nur möglich ist, wenn das richtige Passwort eingegeben wird (xxx).
Leider baue ich da ein Endlos-Schleife. Wie kann ich das lösen?
Um es zu veranschaulichen lade ich die Datei hoch.
Danke schon jetzt für euer Bemühen.
https://www.herber.de/bbs/user/97116.xlsm

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

Betreff
Datum
Anwender
Anzeige
AW: Abfrage beim Speichern
16.04.2015 15:11:51
Hajo_Zi 

Option Explicit
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim strpw As String
strpw = InputBox("Sie dürfen nicht Speichern !!!", "Speichern abgebrochen", "Passwort")
If strpw = "xxx" Then
Application.EnableEvents = False
ActiveWorkbook.Save
MsgBox "Datei wurde gespeichert", vbOKOnly, "Information"
Application.EnableEvents = True
Else
MsgBox "Falsches Passwort! Datei wird nicht gespeichert", vbOKOnly, "Information"
End If
End Sub

AW: Abfrage beim Speichern
16.04.2015 15:17:06
Airwin
Super, an das hätt ich auch denken können.
Danke für die rasche Antwort.
Airwin
Anzeige

Links zu Excel-Dialogen

InputBox

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige