Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
744to748
744to748
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Blattschutz wird nicht aktiviert

Forumthread: Blattschutz wird nicht aktiviert

Blattschutz wird nicht aktiviert
20.03.2006 18:57:01
Hannes
schönen Abend,
hat jemand eine Idee,warum bei Aufruf des Makros "Speichern"
der Blattschutz nicht aktiviert wird...obwohl die
MSG-Box aber aufgerufen wird ?!
Sub schutz_akt()
Dim i As Integer
For i = 1 To Sheets.Count
Sheets(i).Protect Password:="+"
MsgBox "xxx"
Next
End Sub
Sub speichern()
ActiveWorkbook.Save
End Sub
'in Diese Arbeitsmappe

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
schutz_akt
End Sub

Danke !
Grüße Hannes
Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Blattschutz wird nicht aktiviert
20.03.2006 19:39:21
ChrisL
Hallo Hannes
Wollte schon fast husten dass es bei mir funktioniert, bis ich merkte dass es auch nicht tut. Total unlogisch für mich... muss ein Bug sein :-)
Jedenfalls so funktioniert es...

Sub schutz_akt()
Dim i As Integer
For i = 1 To ThisWorkbook.Sheets.Count
ThisWorkbook.Sheets(i).Protect Password:="+"
MsgBox "xxx"
Next
End Sub



Sub speichern()
Call schutz_akt
ActiveWorkbook.Save
End Sub

Gruss
Chris
Anzeige
AW: Leerlauf
20.03.2006 21:39:09
Hannes
hallo Chris,
du hast recht,ist ziemlich unlogisch...
da braucht man das Ereignis dann gar nicht ausführen lassen,
wenn die Schleife ohnehin ins "Leere" geht...
Grüße Hannes
;

Beliebteste Forumthreads (12 Monate)

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