Tabellen Schutz aufheben
16.06.2007 18:21:00
Walter
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
Anzeige