http://www.meo-x.net

 

 

 

 

Schutz vor Überschreiben einfügen

Sub BlattSchutzEin()
    Sheets("Tabelle1").Protect
End Sub

Sub BlattSchutzPwdEin()
    Sheets("Tabelle1").Protect Password:="meopwd"
End Sub

 

Schutz vor Überschreiben entfernen

Sub BlattSchutzAus()
    Sheets("Tabelle1").Unprotect
End Sub

Sub BlattSchutzPwdAus()
    Sheets("Tabelle1").Unprotect Password:=InputBox("Password eingeben!")  '"meopwd"
End Sub

• MS-Excel-VBA-Makro aufzeichnen
• LEHRGANG: MS-Excel-VBA (pdf)