Password-Schutz
Florian
ich habe ein Worksheet erstellt, in dem der Benutzer durch folgenden Code nicht speichern kann:
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Cancel = True
End Sub
Im selbigen Sheet befindet sich nun ein Image (Firmenlogo).Ich möchte nun gern, dass folgender Code (der bewirkt das gespeichert wird) mit einer Passwortabfrage versehen ist:
Private Sub Image1_Click()
Application.EnableEvents = False
ThisWorkbook.Save
Application.EnableEvents = True
End Sub
(Also das nur die Anwender per Klick auf das Firmenlogo speichern können, die auch das richtige Password eingeben, in z.B. einer dann erscheinenden Userform oder ähnlichem.)Viele Grüße, Florian U.