Schutz nur für Spalte aufheben

Forumthread: Schutz nur für Spalte aufheben
2 Beiträge zu diesem Forumthread
Anzeige

Forumthread: Schutz nur für Spalte aufheben

28.01.2025 14:57:20

norbert

Guten Tag,
ich habe eine Tabelle die einen Schutz drin hat (nn).
Nun möchte ich gern per Makro das der Schutz nur für eine Spalte aufgehbon wird,
geht das ?

mfg norbert

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Schutz nur für Spalte aufheben

28.01.2025 15:07:01

Raimund
Danke Raimund Perfekt -)

28.01.2025 15:18:22

norbert

AW: Schutz nur für Spalte aufheben

28.01.2025 15:07:01

Raimund

Hi Norbert

So?

Sub SchutzAufhebenFuerSpalte()

    Dim ws As Worksheet

    Set ws = ThisWorkbook.Sheets("DeinTabellenblatt") ' Ändere den Blattnamen entsprechend



    ' Schutz aufheben

    ws.Unprotect "DeinPasswort" ' Ersetze "DeinPasswort" durch das tatsächliche Passwort



    ' Sperre alle Zellen

    ws.Cells.Locked = True



    ' Hebe den Schutz nur für die gewünschte Spalte auf (z. B. Spalte B)

    ws.Columns("B").Locked = False



    ' Setze den Schutz wieder auf

    ws.Protect "DeinPasswort" ' Ersetze "DeinPasswort" durch das tatsächliche Passwort

End Sub