Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 19:29:30
24.04.2024 18:49:56
24.04.2024 17:19:09
Anzeige
Archiv - Navigation
1704to1708
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

Tabellenblätter einblenden und Schutz aufheben

Tabellenblätter einblenden und Schutz aufheben
01.08.2019 20:42:18
wolfgang
Guten Abend,
ich möchte gern die ausgeblendeten Sheets einblenden und den Schutz aufheben.
ABER das Blatt/Sheet "Autokorrekt" darf NICHT eingeblendet werden !
Passwort "ww"
mfg
wolfgang

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

Betreff
Datum
Anwender
Anzeige
AW: Tabellenblätter einblenden und Schutz aufheben
01.08.2019 21:24:56
Werner
Hallo Wolfgang,
so:
Public Sub aaa()
Dim ws As Worksheet
For Each ws In ThisWorkbook.Worksheets
With ws
If .Visible = False Then
.Visible = .Name  "Autokorrekt"
If .Name  "Autokorrekt" Then
.Unprotect "ww"
End If
End If
End With
Next ws
End Sub
Gruß Werner
Danke Werner Super -)
01.08.2019 21:41:33
wolfgang
Gerne u. Danke für die Rückmeldung. o.w.T.
01.08.2019 21:43:54
Werner
Anzeige

300 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige