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

Alle Blätter außer die augeblendeten schützen

Alle Blätter außer die augeblendeten schützen
23.08.2017 13:10:42
Vinz
Nochmal eine Anfrage bzgl eines macros, das alle Blätter sperrt und mit Passwort versieht:
In meiner Datei sind auch einige Blätter ausgeblendet - die sollen auch nicht geschützt werden... eght das?

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Alle Blätter außer die augeblendeten schützen
23.08.2017 13:23:49
Werner
Hallo Vinz,
teste mal:
Public Sub Schützen()
Dim ws As Worksheet
For Each ws in ThisWorkbook.Worksheets
If ws.Visible = True Then
ws.Protect
End If
Next ws
End Sub
Ohne Garantie, da ungetestet. Kurz mit dem Tablet geschrieben.
Gruß Werner
AW: Alle Blätter außer die augeblendeten schützen
27.08.2017 15:53:25
Vinz
Lieber Werner,
jetzt hab ichs gleich mal getestet, Sonntag hat man halt zeit :-)
funktioniert reibungslos! vielen Dank!
Vinz
Dann danke für die Rückmeldung. o.w.T.
27.08.2017 16:16:56
Werner
Anzeige

273 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige