Gruppieren und verschlüsseln beim Schließen
05.02.2018 13:36:27
Bence
habe eine größere Datenbank in Excel geschrieben. Ab einer Spalte x soll diese aber nur einem bestimmten Personenkreis sichtbar gemacht werden. Dafür wurde ab Spalte x gruppiert. Die Gruppierung kann man nur mit Passwort öffnen, also nach Entfernen des Blattschutzes.
Jedes mal beim Schließen der Tabelle sollen die Spalten wieder geschlossen werden und der PW Schutz automatisch wieder aktiviert werden.
Private Sub Workbook_BeforeClose(Cancel As Boolean)
If ActiveSheet.ProtectContents = False Then
ActiveSheet.Outline.ShowLevels RowLevels:=0, ColumnLevels:=1
ActiveSheet.Protect Password:="KBAMondo", UserInterfaceOnly:=True, DrawingObjects:=True, _
Contents:=True, Scenarios:=True
Else
Exit Sub
End If
End Sub
Display alerts sollten angezeigt werden, denn manchmal will man speichern, manchmal nicht. Das sollte aber keinen Einfluss auf die Gruppierung und den PW Schutz haben.
Oder gibt es sogar eine ganz andere Methode?
Danke schon mal im Voraus für kurze Hilfe.
Anzeige