Blattschutz per VBA

Computer: Software & Programmierung Visual Basic
#1

Hallo zusammen,

ich als absoluter Anfänger habe folgende Frage:

Ich möchte in einer Arbeitsmappe mit mehreren Tabellenblättern in sämtlichen Blätter den Blattschutz aktivieren.
Mit folgendem Code habe ich es geschafft, dass in der aktuellen Arbeitsmappe (in der ich den Code erstellt habe) die ersten drei Blätter mit dem Passwort „Test“ geschützt werden. Der Zugriff auf alle Zellen wird hier verweigert.

Sub SchutzEin()
DateiName.Tabelle1.Protect „Test“
DateiName.Tabelle2.Protect „Test“
DateiName.Tabelle3.Protect „Test“

MsgBox „Blattschutz ist gesetzt!“

End Sub

Jetzt möchte ich mit meinem Makro allerdings die Blätter anderen Arbeitsmappe schützen, wir kann ich das realisieren.
Beispiel für dem Ablauf wäre:

  1. Makro Start
  2. Zu schützende Datei auswählen
  3. Passwort auswählen
  4. Alle Blätter werden geschützt
  5. Makro Ende

Für Hilfe von Euch wäre ich sehr dankbar. Würde mir sehr viel Arbeit sparen.

Freundliche Grüße
Ulli

#2

Sorry, mein bisheriger Code lautet anders:

Sub SchutzEin()
Tabelle1.Protect „Test“
Tabelle2.Protect „Test“
Tabelle3.Protect „Test“
MsgBox „Blattschutz ist gesetzt!“

End Sub

[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]

#3

Hallo,

Sub Makro1()
 Dim strPassword As String
 Dim shMysheet As Worksheet
 Workbooks.Open Filename:=InputBox("Dateiname mit Pfad eingeben")
 strPassword = InputBox("Password eingeben!")
 For Each shMysheet In Sheets
 shMysheet.Protect Password:=strPassword, DrawingObjects:=True, Contents:=True, Scenarios:=True
 Next
 ActiveWindow.Close
End Sub

Gruß, Bernd

[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]