kann mir jemand helfen und ein Makro schreiben, mit dem ich ein Blatschutz mit Kennwort erzeugen kann. Wenn möglich mit dem Einlesen des Kennwortes aus einer Zelle.
Vielen Dank für eure Hilfe
Paul
Sub KennwortSetzen()
ActiveSheet.Protect ThisWorkbook.Sheets("Tabelle1").Range("A1").Value
End Sub
Gruß, Rene
Sub KennwortSetzen()
ActiveSheet.Unprotect ThisWorkbook.Sheets("Tabelle1").Range("A1").Value
End Sub
Sub BlattschutzEin()
ActiveSheet.Protect Password = Sheets("Tabelle1").Range("A2").Value
End Sub
Sub BlattschutzAus()
ActiveSheet.Unprotect Password = Sheets("Tabelle1").Range("A2").Value
End Sub
Gruß SP