Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: 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

Anzeige

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

Anzeige
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
;

Forumthreads zu verwandten Themen

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