Blatt schützen

09/04/2010 - 11:07 von Berthold Erfämper | Report spam
Hallo NG-Gemeinde,

mein Problem. Ich habe eine grosse Datei mit vielen Tabellenblàttern.
Die einzelnen T-Blàtter sollen mit Kennwort geschützt werden. Da ich
aber hin und wieder einige Änderungen an einzelnen T-Blàttern vornehmen
muss, dachte ich mir die T-Blàtter per Makro zu schützen bzw. den Schutz
zu entfernen. Leider bekomme ich das nicht so hin wie ich wollte.
Vieleicht könnt Ihr mir ja bei meinem Problem(chen) helfen?

Danke für Anregungen oder Lösungen.

Berthold
 

Lesen sie die antworten

#1 Andreas Killer
09/04/2010 - 12:04 | Warnen spam
On 9 Apr., 11:07, Berthold Erfàmper wrote:

aber hin und wieder einige Änderungen an einzelnen T-Blàttern vornehmen
muss, dachte ich mir die T-Blàtter per Makro zu schützen bzw. den Schutz
zu entfernen. Leider bekomme ich das nicht so hin wie ich wollte.


Hier mal ein kleines Grundgerüst.

Andreas.

Sub Test()
Dim S As Worksheet
'Durchlaufe alle Blàtter
For Each S In Sheets
'Blatt geschützt?
If S.ProtectContents Then
S.Unprotect 'Passwort
Else
S.Protect 'Passwort, etc.
End If
Next
End Sub

Ähnliche fragen