Passwrtschutz u. Problem b. schliessen o. speicher
13.01.2004 09:22:46
Thomas
ich habe meine Datei durhc ein Passwort per Makro geschützt (es muss per makro erfolgen).
Wenn beim schliessen auf nachfrage "Möchten sie die Änderungen speichern" mit nein geantwortet wird (was auch sicher vorkommen wird) werden die Blätter leider nicht geschützt und falls die makros am Anfang deaktivert werden ist die ganze Datei einsichtbar.
Wo habe ich den Fehler gemacht?
Liegt es am Code oder gibt es eine andere alternative?
Wäre super falls mir jemand helfen könnte!
Thomas
Ich bin wie folgt vorgegangen:
Sheetsxlveryhidden für alle Blätter wird aktiviert durch den
Befehle in DieseArbeitsmappe:
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Worksheets("Aufgaben").Visible = xlVeryHidden
Worksheets("Gestion").Visible = xlVeryHidden
Worksheets("Reel").Visible = xlVeryHidden
Worksheets("Datenbasis").Visible = xlVeryHidden
Worksheets("Marken und Linien").Visible = xlVeryHidden
Worksheets("Nutzungshinweise").Visible = xlVeryHidden
Worksheets("Steuerung").Visible = xlVeryHidden
Application.CalculateBeforeSave = True
Application.Calculation = xlAutomatic
Application.ScreenUpdating = True
End Sub