Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.10.2025 13:18:36
Übersicht von Excel Konstanten
16.10.2025 11:48:44
Makro von Excel in Word aufrufen
16.10.2025 11:16:26
SUMMEWENN erweitern
16.10.2025 09:40:53
Mehrere Konferenzen ohne Personenüberschneidung terminieren
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
804to808
804to808
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Hilfe bei Makro ...

Forumthread: Hilfe bei Makro ...

Hilfe bei Makro ...
03.10.2006 17:57:46
Sonnenpeter
Hallo zusammen,
ich habe da folgende Makro's gebastelt.

Sub BlattschutzEINAlle()
For Each sh In Sheets
sh.Protect Password = "MeinPasswort"
Next sh
End Sub



Sub BlattschutzAUSAlle()
For Each sh In Sheets
sh.Unprotect Password = "MeinPasswort"
Next sh
End Sub

Wie stelle ich es an wenn ich nur die Sheets "1 Woche" bis "53 Woche" schützen will?
Alle übrigen Sheets (insgesamt 10 weitere) sollen ausgeklammert werden.
Gruß Sonnenpeter
Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Hilfe bei Makro ...
03.10.2006 18:52:26
Herby
Hallo Sonnenpeter,
müsste nach dem Schema gehen:

Sub BlattschutzEINAlle()
Dim i As Long
Dim j As Integer
Dim Blattname As String
For i = 1 To Sheets.Count
Blattname = Sheets(i).Name
For j = 1 To 53
If Blattname = CStr(j & " Woche") Then
'MsgBox "Gefunden: " & Sheets(i).Name
Sheets(i).Protect Password = "xxx"
End If
Next j
Next i
End Sub

Viele Grüße
Herby
Anzeige
Danke ...........
03.10.2006 19:04:38
Sonnenpeter
Danke für die Hilfestellung Herby
Gruß Sonnenpeter
AW: Hilfe bei Makro ...
03.10.2006 18:53:20
Uduuh
Hallo,

Sub BlattschutzEINAlle()
For Each sh In Sheets
If Right(sh.name,5)="Woche" Then
sh.Protect Password = "MeinPasswort"
End If
Next sh
End Sub

Gruß aus’m Pott
Udo

Anzeige
Danke ....
03.10.2006 19:03:22
Sonnenpeter
Danke für Deine Hilfstellung Udo
Gruß aus Rheinhessen Sonnenpeter
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
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