Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
876to880
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
876to880
876to880
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Tabellen Schutz aufheben

Tabellen Schutz aufheben
16.06.2007 18:21:00
Walter
Guten Abend,
ich möchte gern mit einem Makro bei alle Tabellen den Schutz aufheben und auch wieder Schließen.
Habe bis zu 88 Tabellen in der Datei !
'----- alle Tabellen Schutz aufheben ------------------------

Private Sub CommandButton4_Click()
If Not IstBerechtigtSpeichern Then
MsgBox "Sie haben keine Berechtigung,            " & Chr(13) _
& Chr(13) & "den Tabellenschutz zu entfernen !   " & Chr(13) _
& Chr(13) & "  " & Chr(13) _
& Chr(13), 48, " Hinweis !"
Exit Sub
Else
ActiveSheet.Unprotect (getStrPasswort)
ScrollArea = ""
End If
End Sub


Mit der aktiven Tabelle funktioniert es.
mfg Walter B

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Tabellen Schutz aufheben
16.06.2007 18:33:44
Hajo_Zi
Hallo Walter,

Option Explicit
Dim WsTabelle As Worksheet
Private Sub Aufheben()
For Each WsTabelle In Sheets
WsTabelle.Unprotect ("Passwort")
Next WsTabelle
End Sub
Private Sub Schutz()
For Each WsTabelle In Sheets
WsTabelle.Protect ("Passwort")
Next WsTabelle
End Sub



Spitzenmäßig o.k. -)
16.06.2007 19:08:00
Walter
Hallo Halo, Danke funktioniert alles!
mfg Walter B
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige