Blattschutz aufheben aus TextIndex 010498

Forumthread: Blattschutz aufheben aus TextIndex 010498
1 Beitrag zu diesem Forumthread
Anzeige
VBA Beispiele zu verwandten Themen

Forumthread: Blattschutz aufheben aus TextIndex 010498

02.09.2005 16:00:41

Jürgen

Hi, habe aus dem o.g. Index das Makro übernommen,
leider gibt es eine Fehlermeldung "Laufzeitfehler #13# Typen unverträglich"
Habe im File-Upload mal eine Bildschirm-Kopie beigefügt,
https://www.herber.de/bbs/user/26268.xls
kann mir vielleicht jemand sagen was ich falsch mache!!
Muss jetzt leider weg, kann erst am Montag antworten!!
Besten Dank an alle die helfen können.

1
Beitrag zum Forumthread

Beitrag zu diesem Forumthread

Betreff

Datum

Anwender

AW: Blattschutz aufheben aus TextIndex 010498

02.09.2005 20:43:32

serge

AW: Blattschutz aufheben aus TextIndex 010498

02.09.2005 20:43:32

serge

Hi Jürgen
wenn es der Blatschutz sein soll versuchs mal so:


Sub blattschutzausein()
'Alle Tabellen-Blattschutz ausschalten
For Each WsTabelle In Sheets
WsTabelle.Unprotect password:="pass"
Next WsTabelle
'Alle Tabellen-Blattschutz einschalten
For Each WsTabelle In Sheets
WsTabelle.Protect password:="pass"
Next WsTabelle
End Sub

Serge