Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: 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?
Anzeige

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
Anzeige
Dann danke für die Rückmeldung. o.w.T.
27.08.2017 16:16:56
Werner
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige