Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Vertraulichkeitsbezeichnung via VBA

Forumthread: Vertraulichkeitsbezeichnung via VBA

Vertraulichkeitsbezeichnung via VBA
18.06.2023 17:47:35
SteffenS

Hallo Zusammen,

besteht die Möglichkeit mittels VBA die Vertraulichkeitsbezeichnung für Dateien automatisch zu setzen.
Die Datei welche dies setzen soll verfügt über die Bezeichnung. Ich möchte diese aber auf alle im Verzeichnis abgelegten Dateien auf einmal setzen.
Das heißt Datei öffnen, Label setzen und Datei mit speichern schließen.

Ist dies möglich und wenn ja wie kann ich dies erreichen?

Danke Euch schon mal.

VG Steffen

Anzeige

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Vertraulichkeitsbezeichnung via VBA
18.06.2023 19:07:00
Yal
Hallo Steffen,

ich habe leider 365 nicht. Liefert der Markorekorder dafür keine Aufzeichnung?

VG
Yal


AW: Vertraulichkeitsbezeichnung via VBA
18.06.2023 19:39:39
Nepumuk
Hallo Steffen,

was ist bitte eine "Vertraulichkeitsbezeichnung" in Office?

Gruß
Nepumuk


AW: Vertraulichkeitsbezeichnung via VBA
19.06.2023 10:49:05
Yal
Hallo zusammen,

Daten werden innerhalb eines Unternehmens meist in "öffentlich", "Intern", "Confidential", "Secret" eingestuft. Secret sind u.a. alle Daten vom Personalabteilung, wer wo wohnt, verdient, verehiratet, usw. Confidential ist oft, was wirtschaftliche Schaden fürs Unternehmen mit sich bringen könnte: ein Forma weisst genau, woher die Zustaten seinen Fertigspeisen kommen, aber es sollte vermieden werden, dass jeder davon erfährt.

Ab Stufe Intern sind besondere Vorkehrung zu treffen, sodass die Daten dementsprechend geschützt werden. Z.B. ab Confidential könnte 2 Faktor Authentifizierung notwendig sein, Versand nur über verschlüsselte Email, usw.

Ein wichtige Punkt dabei ist, dass jede einzelne Dokument selbst hervorheben soll, welche Stufe es unterliegt, sodass der Anwender weisst, wie er die Datei behandeln darf. Microsoft Office unterstüzt die Speicherung und die Klassifizierung durch spezielle Dateieigenschaften. Aber es bleibt, dass jedes Dokument einzel eingestuft werden muss. Daher die Frage des TE.

VG
Yal


Anzeige
AW: Vertraulichkeitsbezeichnung via VBA
18.06.2023 21:34:57
Pappawinni
Das ist etwas auf Enterprise Level. Da könnte es schwierig werden. Ich hab dazu jedenfalls keinen Zugang mehr...


;

Forumthreads zu verwandten Themen

Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Infobox / Tutorial

Vertraulichkeitsbezeichnung in Excel über VBA setzen


Schritt-für-Schritt-Anleitung

Um die Vertraulichkeitsbezeichnung in Excel mittels VBA zu setzen, kannst Du die folgenden Schritte befolgen:

  1. Öffne Excel und die VBA-Entwicklungsumgebung:

    • Drücke ALT + F11, um den VBA-Editor zu öffnen.
  2. Erstelle ein neues Modul:

    • Klicke im Menü auf Einfügen und wähle Modul.
  3. Füge den VBA-Code ein:

    • Nutze den folgenden Code, um die Vertraulichkeitsbezeichnung für eine Datei zu setzen:
    Sub SetSensitivityLabel()
       Dim wb As Workbook
       Set wb = ThisWorkbook 'Aktuelle Arbeitsmappe
    
       'Hier den gewünschten Sensitivity Label setzen
       wb.SensitivityLabel = "Vertraulich" ' Beispiel: Label setzen
    
       'Speichern und Schließen der Datei
       wb.Save
       wb.Close
    End Sub
  4. Führe das Makro aus:

    • Drücke F5, um das Makro auszuführen und die Vertraulichkeitsbezeichnung zu setzen.
  5. Automatisierung für mehrere Dateien:

    • Um die Bezeichnung für alle Dateien in einem Verzeichnis zu setzen, kannst Du eine Schleife über die Dateien erstellen. Hier ein Beispiel:
    Sub SetSensitivityLabelForAllFiles()
       Dim folderPath As String
       Dim fileName As String
       Dim wb As Workbook
    
       folderPath = "C:\Dein\Pfad\Hier\" ' Ändere den Pfad zu Deinem Verzeichnis
       fileName = Dir(folderPath & "*.xlsx")
    
       Do While fileName <> ""
           Set wb = Workbooks.Open(folderPath & fileName)
           wb.SensitivityLabel = "Vertraulich"
           wb.Save
           wb.Close
           fileName = Dir
       Loop
    End Sub

Häufige Fehler und Lösungen

  • Fehler: "Objekt unterstützt diese Eigenschaft oder Methode nicht."

    • Lösung: Stelle sicher, dass Du die richtige Version von Excel verwendest, die Sensitivity Labels unterstützt (Office 365 oder später).
  • Fehler: "Datei kann nicht geöffnet werden."

    • Lösung: Überprüfe den Dateipfad und stelle sicher, dass die Dateien nicht schreibgeschützt sind.

Alternative Methoden

Falls Du keinen Zugang zu VBA hast, kannst Du auch die Vertraulichkeitsbezeichnung manuell über die Excel-Oberfläche hinzufügen:

  1. Gehe zu Datei > Informationen.
  2. Wähle Schutz der Arbeitsmappe und dann Sensitivity Label.
  3. Wähle die gewünschte Vertraulichkeitsbezeichnung aus.

Praktische Beispiele

  1. Vertraulichkeitsbezeichnung für sensible Daten:

    • Wenn Du eine Excel-Datei mit Personalinformationen hast, kannst Du die Bezeichnung "Confidential" setzen, um sicherzustellen, dass die Daten geschützt sind.
  2. Zusammenarbeit mit externen Partnern:

    • Setze die Bezeichnung "Intern", um sicherzustellen, dass die Informationen nicht an Dritte weitergegeben werden.

Tipps für Profis

  • Batch-Prozess: Automatisiere den Prozess für regelmäßige Dokumente, indem Du den VBA-Code in ein geplantes Makro umwandelst.
  • Versionierung: Nutze die Versionierung in Excel, um Änderungen nachzuverfolgen, während Du die Vertraulichkeitsbezeichnung änderst.
  • Dokumentation: Halte immer eine Dokumentation von Änderungen an Sensitivity Labels für interne Audits bereit.

FAQ: Häufige Fragen

1. Kann ich die Vertraulichkeitsbezeichnung für bereits gespeicherte Dateien ändern?
Ja, Du kannst das VBA-Skript anpassen, um die Bezeichnung für bereits gespeicherte Dateien zu ändern.

2. Welche Excel-Version benötige ich für die Nutzung von Sensitivity Labels?
Die Nutzung von Sensitivity Labels ist in Excel Office 365 und späteren Versionen verfügbar. Stelle sicher, dass Deine Version aktuell ist.

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige