Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
automatischer Blattschutz |
26.06.2019 12:06:38 |
MaDe |
|
|
|
26.06.2019 12:10:48 |
Gast38211 |
|
|
|
26.06.2019 12:49:55 |
MaDe |
|
|
|
26.06.2019 13:17:28 |
Werner |
|
|
|
26.06.2019 16:24:38 |
Gast26941 |
|
|
|
26.06.2019 16:50:06 |
Werner |
|
|
|
26.06.2019 16:54:50 |
MaDe |
|
|
|
26.06.2019 17:31:30 |
Werner |
|
|
|
26.06.2019 17:39:48 |
jofed |
|
|
Von:
MaDe |
Datum:
26.06.2019 12:06:38 |
Views:
756 |
Rating:
|
Antwort:
|
Thema:
automatischer Blattschutz |
Liebe Leute ich habe ein kleines Problem,
ich möchte eine Datei mit einem automatischen Blattschutz (+Passwort) beim Schließen der Datei schützen.
Mit nachfolgendem Code müsste es eigentlich funktionieren. Und tatsächlich wird ein Blattschutz eingefügt, allerdings fehlt das Passwort.
Das bedeutet, dass man über den Button Blattschutz aufheben ohne eine Passworteingabe den Schutz aufheben kann.
Kann mir jemand sagen, wo das Problem liegt?
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim xSheet As Worksheet
Dim xPsw As String
xPsw = "Blattschutz"
For Each xSheet In Worksheets
xSheet.Protect xPsw
xSheet.Protect AllowFormattingCells:=True
Next
End Sub
|
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
Bitte geben Sie ein aussagekräftiges Thema an.
Bitte geben Sie eine gültige Email Adresse ein!
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
automatischer Blattschutz |
26.06.2019 12:06:38 |
MaDe |
|
|
|
26.06.2019 12:10:48 |
Gast38211 |
|
|
|
26.06.2019 12:49:55 |
MaDe |
|
|
|
26.06.2019 13:17:28 |
Werner |
|
|
|
26.06.2019 16:24:38 |
Gast26941 |
|
|
|
26.06.2019 16:50:06 |
Werner |
|
|
|
26.06.2019 16:54:50 |
MaDe |
|
|
|
26.06.2019 17:31:30 |
Werner |
|
|
|
26.06.2019 17:39:48 |
jofed |
|
|