ich versuche gerade in meine excel Tabelle einen Blattschutz einzubauen. Das klappt problemlos.
Allerdings sind meine Eingabefelder von VBA beeinträchtigt durch den Blattschutz.
Außerdem möchte ich beim Öffnen der Datei direkt eine Info erzeugen, das vor Bearbeitung die Datei gespeichert werden soll unter neuem Namen und
ich möchte das die Gruppierungen in den unterschiedlichen tabellenblättern weiterhin funktionieren.
Ich habe es mit folgenden Code versucht, allerdings wird dieser bei Start nicht ausgeführt. Habe diesen in DieseArbeitsmappe eingefügt.
Sub Workook_Open()
Call Worksheets(2).Protect(Password:="131313", UserInterfaceOnly:=True)
'______________________________________________________________________________________________________________
ActiveSheet.Protect UserInterfaceOnly:=True, Password:="131313"
ActiveSheet.EnableOutlining = True 'für Gliederung
ActiveSheet.EnableAutoFilter = True 'für Autofilter
'______________________________________________________________________________________________________________
MsgBox "Vor Bearbeitung der Datei, speichern unter gewünschten Dateinamen! Keine Bearbeitung in der Ursprungsdatei!"
End Sub