Hallo,
cih habe versucht mir ein Makro zu basteln, dass in alle Blätter einer xls Datei (xls 2007) einen Blattschutz setzt und mich auffordert ein Passwort in ein Pop Up Fenster einzugeben.
Wichtig ist außerdem, dass alle Blätte NACH dem Blattschutz trotzdenm noch formatiert werden können, sowie Kommentare eingegeben werden dürfen (Objekte bearbeiten).
So sieht mein Makro derzeit aus:
Option Explicit
Dim WsTabelle As Worksheet
Sub SCHUTZ_mit_Passwort()
For Each WsTabelle In Sheets
Dim Kennwort As String
Kennwort = InputBox("Bitte Kennwort eingeben: ", „Kennworteingabe“)
WsTabelle.Protect Password:=Kennwort
ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:= _
True, AllowFormattingCells:=True, AllowFormattingColumns:=True, _
AllowFormattingRows:=True
Next WsTabelle
End Sub
Ich werde zwar nach dem PW gefragt, aber leider für jedes einzelne Blatt und die Formatierungen etc, sind auch nur im ersten Blatt möglich…
Also scheint irgendetwas mit meiner Wiederholung nicht zu stimmen.
Ich bin auch totaler Anfänger mit VBA…
Danke für Eure Hilfe.
Liebe Grüße
Daniela