Hallo und einen guten Mogen.
ich möchte bei Excel einig Zellen schützen, so dass die Formeln nicht überschrieben werden können.
bisher bin habe ich immer die Eingabefelder über Format Zellen Schutz entsichert und habe anschleisend das Blat geschüzt.
Doch wie kann ich alle Blätter einer Mappe schützen? oder mus ich das bei jeden einzelnen Blatt den schutz einzeln aktiviren?
cu Naseweis
Moin, Naseweis,
Doch wie kann ich alle Blätter einer Mappe schützen?
alle Blätter markieren (Shift + Reiter auswählen) und dann auf Extras > Schutz
oder mus ich das bei jeden einzelnen Blatt den schutz
einzeln aktiviren?
Die zu schützenden Zellen musst Du natürlich für jedes Blatt angeben.
Gruß Ralf
Hi Ralf,
Danke schön, probier das mit den Reiter markierne gleich mal aus.
[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]
Hallo Naseweis,
das Setzen des Formates geschützt/ungeschützt geht mit der schon beschriebenen Methode des markierens aller Blätter.
Das Aktivieren des Schutzes evtl. mit Passwort geht hingegen nur Blatt für Blatt.
Zwei kleine Makros, die ich mal vor langer Zeit geschrieben habe,
lässt das Aktivieren des Schutzes für alle Blätter in der Mappe zu.
Rufe unter Extras/Makro die Visual Basic-Umgebung auf, wähle dort „Diese Arbeitsmappe“ unf kopiere bei Makros hinein.
Sub BlattSchutz()
Dim wks As Worksheet
myPwd = Application.InputBox(„Passwort eingeben“)
myPwd2 = Application.InputBox(„Wiederholung“)
If myPwd = myPwd2 Then
For Each wks In ActiveWorkbook.Worksheets
wks.Protect Password:=myPwd
Next wks
Else: MsgBox („Passwort übereinstimmend eingeben“)
End If
End Sub
Sub Aufheben()
Dim wks As Worksheet
myPwd = Application.InputBox(„Passwort eingeben“)
For Each wks In ActiveWorkbook.Worksheets
wks.Unprotect Password:=myPwd
Next wks
End Sub
Viel Erfolg
Ullrich Sander