Microsoft Excel

Herbers Excel/VBA-Archiv

Blattschutz nicht bei Makros

Betrifft: Blattschutz nicht bei Makros von: Herr Vorragend
Geschrieben am: 13.10.2020 13:01:14

Hallo zusammen,

gibt es eine Möglichkeit Blätter zu schützen, sodass eine manuelle Eingabe in die Zellen nicht mehr möglich ist, aber der VBA-Code noch aufs Blatt zugreifen kann ohne für jedes Blatt den Befehl

Sheets("").unprotect.passwort:="123" und nach dem Code Sheets("").protect.passwort:="123"

einzugeben?

Gruß David

Betrifft: AW: Blattschutz nicht bei Makros
von: Nepumuk
Geschrieben am: 13.10.2020 13:07:49

Hallo David,

in das Modul "DieseArbeitsmappe":

Option Explicit

Private Sub Workbook_Open()
    Dim objWorksheet As Worksheet
    For Each objWorksheet In Worksheets
        objWorksheet.Protect Password:="123", UserInterfaceOnly:=True
    Next
End Sub

Damit können Makros die meisten Aktionen ausführen ohne den Blattschutz aufzuheben.

Gruß
Nepumuk

Betrifft: AW: Blattschutz nicht bei Makros
von: Herr Vorragend
Geschrieben am: 13.10.2020 13:24:47

Super, funktioniert so wie ich es haben will! Danke für die schnelle Rückmeldung

Betrifft: AW: Blattschutz nicht bei Makros
von: Thomas
Geschrieben am: 13.10.2020 13:12:52

Ja... mit
Dim ps  as String
ps="123"
'Blattschutz aufheben
For i = 1 To Sheets.Count Sheets(i).UnProtect ps 
Next i
 'Blattschutz setzen
For i = 1 To Sheets.Count Sheets(i).Protect ps 
Next i 


Betrifft: AW: Blattschutz nicht bei Makros
von: Herr Vorragend
Geschrieben am: 13.10.2020 13:26:05

Danke für deinen Ansatz :)

Gruß David