VBA-Schleife?
17.06.2005 09:24:47
Jens
Erst einmal zum Hintergrund.
Ich habe eine große Tabelle mit zahlreichen Formeln und Berechnungen.
Diese Habe ich ausgeblendet, und mit einem Blattschutz versehen.
Es gibt natürlich zahlreiche Tools die den Blattschutz inkl.Passwort entfernen.
Viele dieser Tools sind aber nicht in der Lage, dass Passwort für das VBA-Projekt zu knacken. Jetzt mein Ansatz dazu ... ich habe mir überlegt ein Macro alle 15 Sekunden laufen zu lassen, welches automatisch den Blattschutz setzt (im Hintergrund). Leider bekomme ich es nur einmalig hin. Nicht im Loop oder in der Schleife. Vllt. hat ja jemand noch eine Idee.
Sub starten()
Application.ScreenUpdating = False
t = True
zeit = Time + TimeSerial(0, 0, 15)
Application.OnTime zeit, "alle_sperren"
End Sub
Sub alle_sperren()
Application.ScreenUpdating = False
For Each ws In ActiveWorkbook.Worksheets
ws.Protect password:="xxxx"
ws.Protect userinterfaceonly:=True
ws.EnableAutoFilter = True
ws.EnableOutlining = True
Next ws
End Sub
Liebe Grüße
Jens